diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci | 45 | ||||
-rw-r--r-- | src/matrixOperations/interfaces/int_eye.h | 38 |
2 files changed, 60 insertions, 23 deletions
diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci index f0958f7a..f4700edf 100644 --- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci +++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci @@ -1,56 +1,55 @@ //SCI2C: DEFAULT_PRECISION= DOUBLE function mainfunction()
-//test multiplication +//test division //d0d0 -disp (5*3) +disp (5/3) //d0z0 -disp (1*%i) +disp (1/%i) //z0d0 -disp (%i*1) +disp (%i/5) //z0z0 -disp (%i*3*%i) +disp (%i/(3*%i)) -a=[1 2 3; 4 5 6] +a=[1 2 3; 5 5 6] c=[4 2 3 ;8 8 4; 3 4 5] b=[1+%i,2+4*%i 3+1*%i; 4 5 6+2*%i] d=[4 2 3 ;8 8-1*%i 4; 3+4*%i 4 5] -e=[4 2 ;3 8 ;8-1*%i 4; 3+4*%i 4] //d2d2 -disp(a*c) -disp(a.*a) +disp(a/c) +disp(a./a) //d2z2 -disp(a*d) -disp(a.*b) +disp(a/d) +disp(a./b) //z2d2 -disp(e*a) -disp(b.*a) +disp(d/c) +disp(b./a) //z2z2 -disp(b*d) -disp(b.*b) +disp(b/d) +disp(b./b) //d2d0 -disp(a*1) +disp(a/2) //d0d2 -disp(1*a) +disp(1/a) //d2z0 -disp(a*%i) +disp(a/%i) //z0d2 -disp(%i*a) +disp(%i/a) //z2d0 -disp(b*1) +disp(b/5) //d0z2 -disp(1*b) +disp(1/b) //z2z0 -disp(b*%i) +disp(b/%i) //z0z2 -disp(%i*b) +disp(%i/b) endfunction diff --git a/src/matrixOperations/interfaces/int_eye.h b/src/matrixOperations/interfaces/int_eye.h new file mode 100644 index 00000000..2d0407d3 --- /dev/null +++ b/src/matrixOperations/interfaces/int_eye.h @@ -0,0 +1,38 @@ +/* + * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab + * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET + * + * This file must be used under the terms of the CeCILL. + * This source file is licensed as described in the file COPYING, which + * you should have received as part of this distribution. The terms + * are also available at + * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt + * + */ + +/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ + +#ifndef __INT_EYE_H__ +#define __INT_EYE_H__ + +#define s0eyes0(in) seyes(in) + +#define d0eyed0(in) deyes(in) + +#define c0eyec0(in) ceyes(in) + +#define z0eyez0(in) zeyes(in) + +#define s2eyes2(in,size,out) seyea(out, size[0], size[1]) + +#define d2eyed2(in,size,out) deyea(out, size[0], size[1]) + +#define c2eyec2(in,size,out) ceyea(out, size[0], size[1]) + +#define z2eyez2(in,size,out) zeyea(out, size[0], size[1]) + +#define s0s0eyes2(in1,in2,out) seyea(out,in1,in2) + +#define d0d0eyed2(in1,in2,out) deyea(out,in1,in2) + +#endif /* !__INT_EYE_H__ */ |