summaryrefslogtreecommitdiff
path: root/2.3-1/tests/unit_tests/test305_Moebius/XYgrid.sci
diff options
context:
space:
mode:
Diffstat (limited to '2.3-1/tests/unit_tests/test305_Moebius/XYgrid.sci')
-rw-r--r--2.3-1/tests/unit_tests/test305_Moebius/XYgrid.sci32
1 files changed, 32 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/test305_Moebius/XYgrid.sci b/2.3-1/tests/unit_tests/test305_Moebius/XYgrid.sci
new file mode 100644
index 00000000..0957237d
--- /dev/null
+++ b/2.3-1/tests/unit_tests/test305_Moebius/XYgrid.sci
@@ -0,0 +1,32 @@
+//SCI2C: NIN= 2
+//SCI2C: NOUT= 2
+//SCI2C: OUT(1).TP= IN(1).TP
+//SCI2C: OUT(1).SZ(1)= IN(2).SZ(2)
+//SCI2C: OUT(1).SZ(2)= IN(1).SZ(2)
+//SCI2C: OUT(2).TP= IN(1).TP
+//SCI2C: OUT(2).SZ(1)= IN(2).SZ(2)
+//SCI2C: OUT(2).SZ(2)= IN(1).SZ(2)
+//SCI2C: DEFAULT_PRECISION= DOUBLE
+
+// ------------------------------------
+// this script emulate the matlab meshgrid
+// only for bidimensional mesh.
+// ------------------------------------
+
+function [X,Y] = XYgrid(x,y)
+
+n = length(x);
+m = length(y);
+
+X=zeros(m,n);
+Y=zeros(m,n);
+
+for k=1:m
+ X(k,1:n)=x;
+end
+
+for h=1:n
+ Y(1:m,h)=y';
+end
+
+endfunction