diff options
| author | nutricato | 2009-02-20 15:23:23 +0000 |
|---|---|---|
| committer | nutricato | 2009-02-20 15:23:23 +0000 |
| commit | 2e4a11f37d735f8cbddbd7daeb31fea9e5a30f4e (patch) | |
| tree | f9fc89c5a2d3c23cde18ef939b8e17b6814dae90 /src/Scilab2C/SCI2CTests | |
| parent | 7b6c1fe485aa3f6047bb94701d371cd0ab77e4ab (diff) | |
| download | scilab2c-2e4a11f37d735f8cbddbd7daeb31fea9e5a30f4e.tar.gz scilab2c-2e4a11f37d735f8cbddbd7daeb31fea9e5a30f4e.tar.bz2 scilab2c-2e4a11f37d735f8cbddbd7daeb31fea9e5a30f4e.zip | |
Diffstat (limited to 'src/Scilab2C/SCI2CTests')
| -rw-r--r-- | src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/LinComb.sci | 9 | ||||
| -rw-r--r-- | src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci | 20 |
2 files changed, 21 insertions, 8 deletions
diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/LinComb.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/LinComb.sci index 8fb0b683..9f74b454 100644 --- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/LinComb.sci +++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/LinComb.sci @@ -1,4 +1,4 @@ -//SCI2C: NIN= 4 +//SCI2C: NIN= 6 //SCI2C: NOUT= 1 //SCI2C: OUT(1).TP= IN(1).TP
//SCI2C: OUT(1).SZ(1)= IN(2).SZ(1) @@ -6,8 +6,11 @@ //SCI2C: DEFAULT_PRECISION= DOUBLE -function z = LinComb(a,x,b,y) +function z = LinComb(a,x,b,y,t1,t2) -z = a*x+b*y; +t1 = a*x; +t2 = b*y; +z = t1+t2; +// z = a*x+b*y; endfunction diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci index 6a30b4c5..35d5456d 100644 --- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci +++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci @@ -1,11 +1,21 @@ -//SCI2C: DEFAULT_PRECISION= FLOAT +//SCI2C: DEFAULT_PRECISION= DOUBLE
-//test pow +function mainfunction()
-function mainfunction() +s1 = 2; s2 = 3; -a=[1.2 6.1 3.6; 1.7 4.9 7.1]; +a = 2; b = 4; -disp(a(1,2)) +A = ones(3,4); B = ones(3,4); +t1 = 0; +t2 = 0; +C = LinComb(s1,a,s2,b,t1,t2); // s1*a+s2*b + +T1 = A; +T2 = A; +D = LinComb(s1,A,s2,B,T1,T2); // s1*A+s2*B + +disp(C); +disp(D); endfunction |