From 74f515c607592aa4bfbd03bdbd68fb365d71e60f Mon Sep 17 00:00:00 2001
From: torset
Date: Wed, 11 Feb 2009 11:14:05 +0000
Subject: Update

---
 .../test999_WorkingDir/scilabcode/mainfunction.sci | 38 ++++++----------------
 1 file changed, 10 insertions(+), 28 deletions(-)

(limited to 'src/Scilab2C/SCI2CTests/test999_WorkingDir')

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
-- 
cgit