Mercurial > forge

annotate extra/integration/crule2d.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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
1 function [bpx,bpy,wfxy] = crule2d (nquadx,nquady)
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
2 %
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
3 %usage: [bpx,bpy,wfxy] = crule2d (nquadx,nquady);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
4 %
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
5 [bpxv,wfxv]=crule(nquadx);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
6 [bpyv,wfyv]=crule(nquady);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
7 % [bpx,bpy]=meshgrid(bpxv,bpyv);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
8 % [wfx,wfy]=meshgrid(wfxv,wfyv);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
9 [bpx,bpy]=meshdom(bpxv,bpyv);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
10 [wfx,wfy]=meshdom(wfxv,wfyv);
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
11 wfxy=wfx.*wfy;
6b33357c7561 Initial revision
pkienzle
parents:
diff changeset
12 endfunction