diff options
| author | torset | 2009-02-10 14:06:53 +0000 |
|---|---|---|
| committer | torset | 2009-02-10 14:06:53 +0000 |
| commit | db8e453cc7a696d6461afdfc83faa86fad5ab7be (patch) | |
| tree | 82fb6a8d2b7e00fa58e420c2568cdcfdc9ac2258 /src/Scilab2C | |
| parent | 9cea656d20e16294356b99e360d93ab64e3e1e54 (diff) | |
| download | scilab2c-db8e453cc7a696d6461afdfc83faa86fad5ab7be.tar.gz scilab2c-db8e453cc7a696d6461afdfc83faa86fad5ab7be.tar.bz2 scilab2c-db8e453cc7a696d6461afdfc83faa86fad5ab7be.zip | |
Some modif in Lev functions
Diffstat (limited to 'src/Scilab2C')
| -rw-r--r-- | src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionLev.sci | 38 | ||||
| -rw-r--r-- | src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci | 20 |
2 files changed, 57 insertions, 1 deletions
diff --git a/src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionLev.sci b/src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionLev.sci new file mode 100644 index 00000000..274567db --- /dev/null +++ b/src/Scilab2C/SCI2CTests/Mes_tests/signalProcessing/mainfunctionLev.sci @@ -0,0 +1,38 @@ +//SCI2C: DEFAULT_PRECISION= DOUBLE + +function mainfunction()
+ +//test lev + +//reals + +b=[1 2 3 4] + +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) + + +endfunction diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci index cdca2826..378ded91 100644 --- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci +++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci @@ -1,8 +1,11 @@ -//SCI2C: DEFAULT_PRECISION= DOUBLE +//SCI2C: DEFAULT_PRECISION= FLOAT function mainfunction()
//test lev + +//reals + b=[1 2 3 4] disp(lev(b)) @@ -16,5 +19,20 @@ 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) + endfunction |