summaryrefslogtreecommitdiff
path: root/src/Scilab2C/SCI2CTests/test999_WorkingDir
diff options
context:
space:
mode:
Diffstat (limited to 'src/Scilab2C/SCI2CTests/test999_WorkingDir')
-rw-r--r--src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci38
1 files changed, 10 insertions, 28 deletions
diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
index 378ded91..716d61e3 100644
--- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
+++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
@@ -1,38 +1,20 @@
-//SCI2C: DEFAULT_PRECISION= FLOAT
+//SCI2C: DEFAULT_PRECISION= DOUBLE
function mainfunction()
-//test lev
+//test variance
-//reals
-b=[1 2 3 4]
+c=[4 2 3 ;8 8 4; 3 4 5]
+d=[4 2 3 ;8 8-1*%i 4; 3+4*%i 4 5]
-disp(lev(b))
-[u,v]=lev(b)
-disp(u)
-disp(v)
-
-[x,y,z]=lev(b)
-disp(x)
-disp(y)
-disp(z)
-
-//complexes
-
-c=[1+2*%i 2 3-3*%i 4+%i]
-
-disp(lev(c))
-
-[uc,vc]=lev(c)
-disp(uc)
-disp(vc)
-
-[xc,yc,zc]=lev(c)
-disp(xc)
-disp(yc)
-disp(zc)
+disp (variance(c))
+disp (variance(c,1))
+disp (variance(c,2))
+disp (variance(d))
+disp (variance(d,1))
+disp (variance(d,2))
endfunction