Mercurial > forge

diff extra/integration/grule2d.m @ 0:6b33357c7561 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author pkienzle
date Wed, 10 Oct 2001 19:54:49 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/extra/integration/grule2d.m	Wed Oct 10 19:54:49 2001 +0000
@@ -0,0 +1,12 @@
+function [bpx,bpy,wfxy] = grule2d (nquadx,nquady)
+%
+%usage:  [bpx,bpy,wfxy] = grule2d (nquadx,nquady);
+%
+	[bpxv,wfxv]=grule(nquadx);
+	[bpyv,wfyv]=grule(nquady);
+%	[bpx,bpy]=meshgrid(bpxv,bpyv);
+%	[wfx,wfy]=meshgrid(wfxv,wfyv);
+	[bpx,bpy]=meshdom(bpxv,bpyv);
+	[wfx,wfy]=meshdom(wfxv,wfyv);
+	wfxy=wfx.*wfy;
+endfunction