diff options
| author | Shashank | 2017-05-29 12:40:26 +0530 |
|---|---|---|
| committer | Shashank | 2017-05-29 12:40:26 +0530 |
| commit | 0345245e860375a32c9a437c4a9d9cae807134e9 (patch) | |
| tree | ad51ecbfa7bcd3cc5f09834f1bb8c08feaa526a4 /modules/integer/macros | |
| download | scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.tar.gz scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.tar.bz2 scilab_for_xcos_on_cloud-0345245e860375a32c9a437c4a9d9cae807134e9.zip | |
CMSCOPE changed
Diffstat (limited to 'modules/integer/macros')
103 files changed, 934 insertions, 0 deletions
diff --git a/modules/integer/macros/%i_1_s.bin b/modules/integer/macros/%i_1_s.bin Binary files differnew file mode 100755 index 000000000..5dcb1d845 --- /dev/null +++ b/modules/integer/macros/%i_1_s.bin diff --git a/modules/integer/macros/%i_1_s.sci b/modules/integer/macros/%i_1_s.sci new file mode 100755 index 000000000..c46e61a8f --- /dev/null +++ b/modules/integer/macros/%i_1_s.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_1_s(a,b) + // a<b + r=double(a)<b +endfunction diff --git a/modules/integer/macros/%i_2_s.bin b/modules/integer/macros/%i_2_s.bin Binary files differnew file mode 100755 index 000000000..b12d21a6b --- /dev/null +++ b/modules/integer/macros/%i_2_s.bin diff --git a/modules/integer/macros/%i_2_s.sci b/modules/integer/macros/%i_2_s.sci new file mode 100755 index 000000000..461d4568c --- /dev/null +++ b/modules/integer/macros/%i_2_s.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_2_s(a,b) + // a>b + r=double(a)>b +endfunction diff --git a/modules/integer/macros/%i_3_s.bin b/modules/integer/macros/%i_3_s.bin Binary files differnew file mode 100755 index 000000000..c836982a5 --- /dev/null +++ b/modules/integer/macros/%i_3_s.bin diff --git a/modules/integer/macros/%i_3_s.sci b/modules/integer/macros/%i_3_s.sci new file mode 100755 index 000000000..dd60427fa --- /dev/null +++ b/modules/integer/macros/%i_3_s.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_3_s(a,b) + // a<=b + r=double(a)<=b +endfunction diff --git a/modules/integer/macros/%i_4_s.bin b/modules/integer/macros/%i_4_s.bin Binary files differnew file mode 100755 index 000000000..1ba7013f5 --- /dev/null +++ b/modules/integer/macros/%i_4_s.bin diff --git a/modules/integer/macros/%i_4_s.sci b/modules/integer/macros/%i_4_s.sci new file mode 100755 index 000000000..29aec9055 --- /dev/null +++ b/modules/integer/macros/%i_4_s.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_4_s(a,b) + // a>=b + r=double(a)>=b +endfunction diff --git a/modules/integer/macros/%i_Matplot.bin b/modules/integer/macros/%i_Matplot.bin Binary files differnew file mode 100755 index 000000000..297e7c839 --- /dev/null +++ b/modules/integer/macros/%i_Matplot.bin diff --git a/modules/integer/macros/%i_Matplot.sci b/modules/integer/macros/%i_Matplot.sci new file mode 100755 index 000000000..c6a19a487 --- /dev/null +++ b/modules/integer/macros/%i_Matplot.sci @@ -0,0 +1,52 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_Matplot(z,strf,rect,nax,frameflag,axesflag) + + [N,M]=size(z) + opts=[]; + isframeflag=%f + isaxesflag=%f + narg=0 + if exists("strf","local")==1 then + opts=[opts,"frameflag="+part(strf,2),"axesflag="+part(strf,3)], + isframeflag=%t + isaxesflag=%t + narg=narg+1 + end + if exists("rect","local")==1 then + opts=[opts,"rect=rect"], + end + if exists("nax" ,"local")==1 then + opts=[opts,"nax=nax"] + end + if exists("frameflag" ,"local")==1 then + if isframeflag then + error(msprintf(gettext("%s: ''%s'' already defined by the ''%s'' argument."),"%%i_Matplot","frameflag","strf")) + end + opts=[opts,"frameflag=frameflag"] , + end + if exists("axesflag" ,"local")==1 then + if isaxesflag then + error(msprintf(gettext("%s: ''%s'' already defined by the ''%s'' argument."),"%%i_Matplot","axesflag","strf")) + end + opts=[opts,"axesflag=axesflag"] , + end + if size(opts,2)+1-narg <argn(2) then + error(msprintf(gettext("%s: Wrong value for input argument: ''%s'', ''%s'', ''%s'', ''%s'' or ''%s'' expected.\n"),"%%i_Matplot","strf","rect","nax","frameflag","axesflag")); + end + + + + Max=stacksize();Max=int((Max(1)-Max(2))/3) + if Max<M*N+100 then stacksize(Max+M*N*1.5),end + execstr("Matplot(double(z),"+strcat(opts,",")+")") + +endfunction diff --git a/modules/integer/macros/%i_a_s.bin b/modules/integer/macros/%i_a_s.bin Binary files differnew file mode 100755 index 000000000..8bb18021b --- /dev/null +++ b/modules/integer/macros/%i_a_s.bin diff --git a/modules/integer/macros/%i_a_s.sci b/modules/integer/macros/%i_a_s.sci new file mode 100755 index 000000000..5e5014fda --- /dev/null +++ b/modules/integer/macros/%i_a_s.sci @@ -0,0 +1,17 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_a_s(a,b) + if b==[] then + if mtlb_mode() then r=[],else r=a,end + else + r=a+iconvert(b,inttype(a)) + end +endfunction diff --git a/modules/integer/macros/%i_champ.bin b/modules/integer/macros/%i_champ.bin Binary files differnew file mode 100755 index 000000000..fba230acc --- /dev/null +++ b/modules/integer/macros/%i_champ.bin diff --git a/modules/integer/macros/%i_champ.sci b/modules/integer/macros/%i_champ.sci new file mode 100755 index 000000000..2a4e2e817 --- /dev/null +++ b/modules/integer/macros/%i_champ.sci @@ -0,0 +1,13 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_champ(x,y,fx,fy,varargin) + champ(double(x),double(y),double(fx),double(fy),varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_champ1.bin b/modules/integer/macros/%i_champ1.bin Binary files differnew file mode 100755 index 000000000..c796d2fb5 --- /dev/null +++ b/modules/integer/macros/%i_champ1.bin diff --git a/modules/integer/macros/%i_champ1.sci b/modules/integer/macros/%i_champ1.sci new file mode 100755 index 000000000..22e1460ba --- /dev/null +++ b/modules/integer/macros/%i_champ1.sci @@ -0,0 +1,13 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_champ1(x,y,fx,fy,varargin) + champ1(double(x),double(y),double(fx),double(fy),varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_contour.bin b/modules/integer/macros/%i_contour.bin Binary files differnew file mode 100755 index 000000000..546e7c35e --- /dev/null +++ b/modules/integer/macros/%i_contour.bin diff --git a/modules/integer/macros/%i_contour.sci b/modules/integer/macros/%i_contour.sci new file mode 100755 index 000000000..38f23d8b6 --- /dev/null +++ b/modules/integer/macros/%i_contour.sci @@ -0,0 +1,13 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_contour(x,y,z,varargin) + contour(double(x),double(y),double(z),varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_contour2d.bin b/modules/integer/macros/%i_contour2d.bin Binary files differnew file mode 100755 index 000000000..e892cb094 --- /dev/null +++ b/modules/integer/macros/%i_contour2d.bin diff --git a/modules/integer/macros/%i_contour2d.sci b/modules/integer/macros/%i_contour2d.sci new file mode 100755 index 000000000..05951f558 --- /dev/null +++ b/modules/integer/macros/%i_contour2d.sci @@ -0,0 +1,13 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_contour2d(x,y,z,varargin) + contour2d(double(x),double(y),double(z),varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_d_s.bin b/modules/integer/macros/%i_d_s.bin Binary files differnew file mode 100755 index 000000000..ff7ae7b8f --- /dev/null +++ b/modules/integer/macros/%i_d_s.bin diff --git a/modules/integer/macros/%i_d_s.sci b/modules/integer/macros/%i_d_s.sci new file mode 100755 index 000000000..8c47a7f1d --- /dev/null +++ b/modules/integer/macros/%i_d_s.sci @@ -0,0 +1,17 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// Copyright (C) 2013 - Samuel GOUGEON : http://bugzilla.scilab.org/13000 + +// 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.1-en.txt + +function r = %i_d_s(a,b) + if b==[] then + r = [] + else + r = a./iconvert(b,inttype(a)) + end +endfunction diff --git a/modules/integer/macros/%i_fft.bin b/modules/integer/macros/%i_fft.bin Binary files differnew file mode 100755 index 000000000..87142ce04 --- /dev/null +++ b/modules/integer/macros/%i_fft.bin diff --git a/modules/integer/macros/%i_fft.sci b/modules/integer/macros/%i_fft.sci new file mode 100755 index 000000000..3e4408d49 --- /dev/null +++ b/modules/integer/macros/%i_fft.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function x=%i_fft(varargin) + n=size(varargin) + for k=1:n,varargin(k)=double(varargin(k)),end + x=fft(varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_j_i.bin b/modules/integer/macros/%i_j_i.bin Binary files differnew file mode 100755 index 000000000..7a561225e --- /dev/null +++ b/modules/integer/macros/%i_j_i.bin diff --git a/modules/integer/macros/%i_j_i.sci b/modules/integer/macros/%i_j_i.sci new file mode 100755 index 000000000..6714812c4 --- /dev/null +++ b/modules/integer/macros/%i_j_i.sci @@ -0,0 +1,27 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_j_i(a,n) + if or(n<0) then + r=double(a).^double(n) + else + if size(a,"*")==1 then + r=iconvert(double(a).^double(n),inttype(a)) + else + if size(n,"*")<>1 then + error(43) + else + n=double(n) + r=a + for i=2:n,r=r.*a,end + end + end + end +endfunction diff --git a/modules/integer/macros/%i_j_s.bin b/modules/integer/macros/%i_j_s.bin Binary files differnew file mode 100755 index 000000000..191e79ce2 --- /dev/null +++ b/modules/integer/macros/%i_j_s.bin diff --git a/modules/integer/macros/%i_j_s.sci b/modules/integer/macros/%i_j_s.sci new file mode 100755 index 000000000..c009605cb --- /dev/null +++ b/modules/integer/macros/%i_j_s.sci @@ -0,0 +1,26 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_j_s(a,n) + if or(int(n)<>n)|or(n<0) then + r=double(a).^n + else + if size(a,"*")==1 then + r=iconvert(double(a).^n,inttype(a)) + else + if size(n,"*")<>1 then + error(43) + else + r=a + for i=2:n,r=r.*a,end + end + end + end +endfunction diff --git a/modules/integer/macros/%i_l_s.bin b/modules/integer/macros/%i_l_s.bin Binary files differnew file mode 100755 index 000000000..5dc8e4aec --- /dev/null +++ b/modules/integer/macros/%i_l_s.bin diff --git a/modules/integer/macros/%i_l_s.sci b/modules/integer/macros/%i_l_s.sci new file mode 100755 index 000000000..791f19ee3 --- /dev/null +++ b/modules/integer/macros/%i_l_s.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_l_s(a,b) + + if b==[] then r=[],end + r=a\iconvert(b,inttype(a)) +endfunction diff --git a/modules/integer/macros/%i_m_s.bin b/modules/integer/macros/%i_m_s.bin Binary files differnew file mode 100755 index 000000000..201177ed8 --- /dev/null +++ b/modules/integer/macros/%i_m_s.bin diff --git a/modules/integer/macros/%i_m_s.sci b/modules/integer/macros/%i_m_s.sci new file mode 100755 index 000000000..a9209b9db --- /dev/null +++ b/modules/integer/macros/%i_m_s.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_m_s(a,b) + + if b==[] then r=[],end + r=a*iconvert(b,inttype(a)) +endfunction diff --git a/modules/integer/macros/%i_mfprintf.bin b/modules/integer/macros/%i_mfprintf.bin Binary files differnew file mode 100755 index 000000000..eeda214f6 --- /dev/null +++ b/modules/integer/macros/%i_mfprintf.bin diff --git a/modules/integer/macros/%i_mfprintf.sci b/modules/integer/macros/%i_mfprintf.sci new file mode 100755 index 000000000..2b7eeb7e4 --- /dev/null +++ b/modules/integer/macros/%i_mfprintf.sci @@ -0,0 +1,26 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// Copyright (C) DIGITEO - 2010 - Allan CORNET +// +// 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.1-en.txt + + +function %i_mfprintf(id, fmt, varargin); + + if type(id) == 8 then + id = int(id); + end + + for k=1:size(varargin) + if type(varargin(k)) == 8 then + varargin(k) = double(varargin(k)) + end + end + + mfprintf(id, fmt, varargin(:)); + +endfunction diff --git a/modules/integer/macros/%i_mprintf.bin b/modules/integer/macros/%i_mprintf.bin Binary files differnew file mode 100755 index 000000000..9d41f1e8b --- /dev/null +++ b/modules/integer/macros/%i_mprintf.bin diff --git a/modules/integer/macros/%i_mprintf.sci b/modules/integer/macros/%i_mprintf.sci new file mode 100755 index 000000000..9f6673b69 --- /dev/null +++ b/modules/integer/macros/%i_mprintf.sci @@ -0,0 +1,18 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_mprintf(fmt,varargin); + for k=1:size(varargin) + if type(varargin(k))==8 then + varargin(k)=double(varargin(k)) + end + end + mprintf(fmt,varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_msprintf.bin b/modules/integer/macros/%i_msprintf.bin Binary files differnew file mode 100755 index 000000000..d2220294a --- /dev/null +++ b/modules/integer/macros/%i_msprintf.bin diff --git a/modules/integer/macros/%i_msprintf.sci b/modules/integer/macros/%i_msprintf.sci new file mode 100755 index 000000000..809da0c87 --- /dev/null +++ b/modules/integer/macros/%i_msprintf.sci @@ -0,0 +1,18 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_msprintf(fmt,varargin); + for k=1:size(varargin) + if type(varargin(k))==8 then + varargin(k)=double(varargin(k)) + end + end + r=msprintf(fmt,varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_n_s.bin b/modules/integer/macros/%i_n_s.bin Binary files differnew file mode 100755 index 000000000..30e2366c1 --- /dev/null +++ b/modules/integer/macros/%i_n_s.bin diff --git a/modules/integer/macros/%i_n_s.sci b/modules/integer/macros/%i_n_s.sci new file mode 100755 index 000000000..997fb9489 --- /dev/null +++ b/modules/integer/macros/%i_n_s.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_n_s(a,b) + // a<>b + r=double(a)<>b +endfunction diff --git a/modules/integer/macros/%i_o_s.bin b/modules/integer/macros/%i_o_s.bin Binary files differnew file mode 100755 index 000000000..98ba26414 --- /dev/null +++ b/modules/integer/macros/%i_o_s.bin diff --git a/modules/integer/macros/%i_o_s.sci b/modules/integer/macros/%i_o_s.sci new file mode 100755 index 000000000..84bf47138 --- /dev/null +++ b/modules/integer/macros/%i_o_s.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_o_s(a,b) + // a==b + r=double(a)==b +endfunction diff --git a/modules/integer/macros/%i_p_i.bin b/modules/integer/macros/%i_p_i.bin Binary files differnew file mode 100755 index 000000000..fbaa79a73 --- /dev/null +++ b/modules/integer/macros/%i_p_i.bin diff --git a/modules/integer/macros/%i_p_i.sci b/modules/integer/macros/%i_p_i.sci new file mode 100755 index 000000000..8954abcec --- /dev/null +++ b/modules/integer/macros/%i_p_i.sci @@ -0,0 +1,32 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_p_i(a,n) + if or(n<0) then + r=double(a)^n + else + if size(a,"*")==1 then + r=iconvert(double(a)^double(n),inttype(a)) + else + if size(n,"*")<>1 then + error(43) + else + n=double(n) + r=a + if size(a,1)==size(a,2) then + for i=2:n,r=r*a,end + else + mprintf(gettext("Warning: Syntax \""vector ^ scalar\"" is obsolete. It will be removed in Scilab 6.0.\n Use \""vector .^ scalar\"" instead.\n")); + for i=2:n,r=r.*a,end + end + end + end + end +endfunction diff --git a/modules/integer/macros/%i_p_s.bin b/modules/integer/macros/%i_p_s.bin Binary files differnew file mode 100755 index 000000000..0ce9eb2a7 --- /dev/null +++ b/modules/integer/macros/%i_p_s.bin diff --git a/modules/integer/macros/%i_p_s.sci b/modules/integer/macros/%i_p_s.sci new file mode 100755 index 000000000..6cde476b8 --- /dev/null +++ b/modules/integer/macros/%i_p_s.sci @@ -0,0 +1,31 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_p_s(a,n) + if or(int(n)<>n)|or(n<0) then + r=double(a)^n + else + if size(a,"*")==1 then + r=iconvert(double(a)^n,inttype(a)) + else + if size(n,"*")<>1 then + error(43) + else + r=a + if size(a,1)==size(a,2) then + for i=2:n,r=r*a,end + else + mprintf(gettext("Warning: Syntax \""vector ^ scalar\"" is obsolete. It will be removed in Scilab 6.0.\n Use \""vector .^ scalar\"" instead.\n")); + for i=2:n,r=r.*a,end + end + end + end + end +endfunction diff --git a/modules/integer/macros/%i_plot2d.bin b/modules/integer/macros/%i_plot2d.bin Binary files differnew file mode 100755 index 000000000..44a5436d2 --- /dev/null +++ b/modules/integer/macros/%i_plot2d.bin diff --git a/modules/integer/macros/%i_plot2d.sci b/modules/integer/macros/%i_plot2d.sci new file mode 100755 index 000000000..e55da2cda --- /dev/null +++ b/modules/integer/macros/%i_plot2d.sci @@ -0,0 +1,16 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_plot2d(varargin) + for k=1:min(2,size(varargin)) + varargin(k)=double(varargin(k)) + end + plot2d(varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_plot2d1.bin b/modules/integer/macros/%i_plot2d1.bin Binary files differnew file mode 100755 index 000000000..01d408c98 --- /dev/null +++ b/modules/integer/macros/%i_plot2d1.bin diff --git a/modules/integer/macros/%i_plot2d1.sci b/modules/integer/macros/%i_plot2d1.sci new file mode 100755 index 000000000..8aa7e570c --- /dev/null +++ b/modules/integer/macros/%i_plot2d1.sci @@ -0,0 +1,13 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_plot2d1(str,x,y,varargin) + plot2d1(str,double(x),double(y),varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_plot2d2.bin b/modules/integer/macros/%i_plot2d2.bin Binary files differnew file mode 100755 index 000000000..52457d155 --- /dev/null +++ b/modules/integer/macros/%i_plot2d2.bin diff --git a/modules/integer/macros/%i_plot2d2.sci b/modules/integer/macros/%i_plot2d2.sci new file mode 100755 index 000000000..f37300bfd --- /dev/null +++ b/modules/integer/macros/%i_plot2d2.sci @@ -0,0 +1,13 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function %i_plot2d2(str,x,y,varargin) + plot2d2(str,double(x),double(y),varargin(:)) +endfunction diff --git a/modules/integer/macros/%i_q_s.bin b/modules/integer/macros/%i_q_s.bin Binary files differnew file mode 100755 index 000000000..596440244 --- /dev/null +++ b/modules/integer/macros/%i_q_s.bin diff --git a/modules/integer/macros/%i_q_s.sci b/modules/integer/macros/%i_q_s.sci new file mode 100755 index 000000000..0e1563949 --- /dev/null +++ b/modules/integer/macros/%i_q_s.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_q_s(a,b) + + if b==[] then r=[],end + r=a.\iconvert(b,inttype(a)) +endfunction diff --git a/modules/integer/macros/%i_r_s.bin b/modules/integer/macros/%i_r_s.bin Binary files differnew file mode 100755 index 000000000..9e8750fd5 --- /dev/null +++ b/modules/integer/macros/%i_r_s.bin diff --git a/modules/integer/macros/%i_r_s.sci b/modules/integer/macros/%i_r_s.sci new file mode 100755 index 000000000..71ee42b71 --- /dev/null +++ b/modules/integer/macros/%i_r_s.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_r_s(a,b) + + if b==[] then r=[],end + r=a/iconvert(b,inttype(a)) +endfunction diff --git a/modules/integer/macros/%i_s_s.bin b/modules/integer/macros/%i_s_s.bin Binary files differnew file mode 100755 index 000000000..e8fc101bd --- /dev/null +++ b/modules/integer/macros/%i_s_s.bin diff --git a/modules/integer/macros/%i_s_s.sci b/modules/integer/macros/%i_s_s.sci new file mode 100755 index 000000000..463a86971 --- /dev/null +++ b/modules/integer/macros/%i_s_s.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt +function r=%i_s_s(a,b) + if b==[] then + if mtlb_mode() then r=[],else r=a,end + else + r=a-iconvert(b,inttype(a)) + end +endfunction diff --git a/modules/integer/macros/%i_sign.bin b/modules/integer/macros/%i_sign.bin Binary files differnew file mode 100755 index 000000000..b1c5d60ff --- /dev/null +++ b/modules/integer/macros/%i_sign.bin diff --git a/modules/integer/macros/%i_sign.sci b/modules/integer/macros/%i_sign.sci new file mode 100755 index 000000000..e943f0533 --- /dev/null +++ b/modules/integer/macros/%i_sign.sci @@ -0,0 +1,16 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_sign(m) + it=inttype(m) + r=m; + r(1:$)=iconvert(1,it) + r(find(m<iconvert(0,it)))=iconvert(-1,it) +endfunction diff --git a/modules/integer/macros/%i_string.bin b/modules/integer/macros/%i_string.bin Binary files differnew file mode 100755 index 000000000..f207b36a7 --- /dev/null +++ b/modules/integer/macros/%i_string.bin diff --git a/modules/integer/macros/%i_string.sci b/modules/integer/macros/%i_string.sci new file mode 100755 index 000000000..8fcfca2c0 --- /dev/null +++ b/modules/integer/macros/%i_string.sci @@ -0,0 +1,13 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function str=%i_string(i) + str=string(double(i)) +endfunction diff --git a/modules/integer/macros/%i_x_s.bin b/modules/integer/macros/%i_x_s.bin Binary files differnew file mode 100755 index 000000000..91442f1af --- /dev/null +++ b/modules/integer/macros/%i_x_s.bin diff --git a/modules/integer/macros/%i_x_s.sci b/modules/integer/macros/%i_x_s.sci new file mode 100755 index 000000000..7e73f6e3e --- /dev/null +++ b/modules/integer/macros/%i_x_s.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%i_x_s(a,b) + + if b==[] then r=[],end + r=a.*iconvert(b,inttype(a)) +endfunction diff --git a/modules/integer/macros/%s_1_i.bin b/modules/integer/macros/%s_1_i.bin Binary files differnew file mode 100755 index 000000000..9b62a97b6 --- /dev/null +++ b/modules/integer/macros/%s_1_i.bin diff --git a/modules/integer/macros/%s_1_i.sci b/modules/integer/macros/%s_1_i.sci new file mode 100755 index 000000000..6f60c303b --- /dev/null +++ b/modules/integer/macros/%s_1_i.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_1_i(a,b) + // a<b + r=a<double(b) +endfunction diff --git a/modules/integer/macros/%s_2_i.bin b/modules/integer/macros/%s_2_i.bin Binary files differnew file mode 100755 index 000000000..1ba91fe05 --- /dev/null +++ b/modules/integer/macros/%s_2_i.bin diff --git a/modules/integer/macros/%s_2_i.sci b/modules/integer/macros/%s_2_i.sci new file mode 100755 index 000000000..5f1c4e68f --- /dev/null +++ b/modules/integer/macros/%s_2_i.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_2_i(a,b) + // a>b + r=a>double(b) +endfunction diff --git a/modules/integer/macros/%s_3_i.bin b/modules/integer/macros/%s_3_i.bin Binary files differnew file mode 100755 index 000000000..9a157430c --- /dev/null +++ b/modules/integer/macros/%s_3_i.bin diff --git a/modules/integer/macros/%s_3_i.sci b/modules/integer/macros/%s_3_i.sci new file mode 100755 index 000000000..c9465b99e --- /dev/null +++ b/modules/integer/macros/%s_3_i.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_3_i(a,b) + // a<=b + r=a<=double(b) +endfunction diff --git a/modules/integer/macros/%s_4_i.bin b/modules/integer/macros/%s_4_i.bin Binary files differnew file mode 100755 index 000000000..4ed50e242 --- /dev/null +++ b/modules/integer/macros/%s_4_i.bin diff --git a/modules/integer/macros/%s_4_i.sci b/modules/integer/macros/%s_4_i.sci new file mode 100755 index 000000000..cc7bff085 --- /dev/null +++ b/modules/integer/macros/%s_4_i.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_4_i(a,b) + // a>=b + r=a>=double(b) +endfunction diff --git a/modules/integer/macros/%s_a_i.bin b/modules/integer/macros/%s_a_i.bin Binary files differnew file mode 100755 index 000000000..e9b43e769 --- /dev/null +++ b/modules/integer/macros/%s_a_i.bin diff --git a/modules/integer/macros/%s_a_i.sci b/modules/integer/macros/%s_a_i.sci new file mode 100755 index 000000000..85155fed1 --- /dev/null +++ b/modules/integer/macros/%s_a_i.sci @@ -0,0 +1,17 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_a_i(a,b) + if a==[] then + if mtlb_mode() then r=[],else r=b,end + else + r=iconvert(a,inttype(b))+b + end +endfunction diff --git a/modules/integer/macros/%s_d_i.bin b/modules/integer/macros/%s_d_i.bin Binary files differnew file mode 100755 index 000000000..a5c399fb7 --- /dev/null +++ b/modules/integer/macros/%s_d_i.bin diff --git a/modules/integer/macros/%s_d_i.sci b/modules/integer/macros/%s_d_i.sci new file mode 100755 index 000000000..c9aaef67e --- /dev/null +++ b/modules/integer/macros/%s_d_i.sci @@ -0,0 +1,18 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// Copyright (C) 2013 - Samuel GOUGEON : http://bugzilla.scilab.org/13000 +// +// 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.1-en.txt + + +function r = %s_d_i(a,b) + if a==[] then + r = [] + else + r = iconvert(a,inttype(b))./b + end +endfunction diff --git a/modules/integer/macros/%s_i_i.bin b/modules/integer/macros/%s_i_i.bin Binary files differnew file mode 100755 index 000000000..94e83e13d --- /dev/null +++ b/modules/integer/macros/%s_i_i.bin diff --git a/modules/integer/macros/%s_i_i.sci b/modules/integer/macros/%s_i_i.sci new file mode 100755 index 000000000..678edfb5c --- /dev/null +++ b/modules/integer/macros/%s_i_i.sci @@ -0,0 +1,23 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function M=%s_i_i(varargin) + rhs=argn(2) + M=varargin($) + is=inttype(M) + if rhs<=4 then //type conversion + M(varargin(1:$-2))=iconvert(varargin($-1),is) + else //hypermatrix syntax + if varargin($-1)<>[] then varargin($-1)=iconvert(varargin($-1),is),end + M=mlist(["hm","dims","entries"],int32(size(M)),M(:)) + varargin($)=M; + M=generic_i_hm(0,varargin(:)) + end +endfunction diff --git a/modules/integer/macros/%s_j_i.bin b/modules/integer/macros/%s_j_i.bin Binary files differnew file mode 100755 index 000000000..c14c3e799 --- /dev/null +++ b/modules/integer/macros/%s_j_i.bin diff --git a/modules/integer/macros/%s_j_i.sci b/modules/integer/macros/%s_j_i.sci new file mode 100755 index 000000000..9f535a0ed --- /dev/null +++ b/modules/integer/macros/%s_j_i.sci @@ -0,0 +1,28 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_j_i(a,n) + isn=inttype(n) + if or(double(iconvert(a,isn))<>a)|or(n<0) then + r=a.^double(n) + else + if size(a,"*")==1 then + r=iconvert(a.^double(n),inttype(n)) + else + if size(n,"*")<>1 then + error(43) + else + n=double(n) + r=a + for i=2:n,r=r.*a,end + end + end + end +endfunction diff --git a/modules/integer/macros/%s_l_i.bin b/modules/integer/macros/%s_l_i.bin Binary files differnew file mode 100755 index 000000000..52d5f5c73 --- /dev/null +++ b/modules/integer/macros/%s_l_i.bin diff --git a/modules/integer/macros/%s_l_i.sci b/modules/integer/macros/%s_l_i.sci new file mode 100755 index 000000000..247a55e01 --- /dev/null +++ b/modules/integer/macros/%s_l_i.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_l_i(a,b) + + if a==[] then r=[],end + r=iconvert(a,inttype(b))\b +endfunction diff --git a/modules/integer/macros/%s_m_i.bin b/modules/integer/macros/%s_m_i.bin Binary files differnew file mode 100755 index 000000000..695be28c8 --- /dev/null +++ b/modules/integer/macros/%s_m_i.bin diff --git a/modules/integer/macros/%s_m_i.sci b/modules/integer/macros/%s_m_i.sci new file mode 100755 index 000000000..dc575475c --- /dev/null +++ b/modules/integer/macros/%s_m_i.sci @@ -0,0 +1,16 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_m_i(a,b) + + if a==[] then r=[],end + r=iconvert(a,inttype(b))*b + +endfunction diff --git a/modules/integer/macros/%s_n_i.bin b/modules/integer/macros/%s_n_i.bin Binary files differnew file mode 100755 index 000000000..ec3134492 --- /dev/null +++ b/modules/integer/macros/%s_n_i.bin diff --git a/modules/integer/macros/%s_n_i.sci b/modules/integer/macros/%s_n_i.sci new file mode 100755 index 000000000..664d397d9 --- /dev/null +++ b/modules/integer/macros/%s_n_i.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_n_i(a,b) + // a<>b + r=a<>double(b) +endfunction diff --git a/modules/integer/macros/%s_o_i.bin b/modules/integer/macros/%s_o_i.bin Binary files differnew file mode 100755 index 000000000..d81f66485 --- /dev/null +++ b/modules/integer/macros/%s_o_i.bin diff --git a/modules/integer/macros/%s_o_i.sci b/modules/integer/macros/%s_o_i.sci new file mode 100755 index 000000000..42858ff25 --- /dev/null +++ b/modules/integer/macros/%s_o_i.sci @@ -0,0 +1,14 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_o_i(a,b) + // a==b + r=a==double(b) +endfunction diff --git a/modules/integer/macros/%s_p_i.bin b/modules/integer/macros/%s_p_i.bin Binary files differnew file mode 100755 index 000000000..ec0a47084 --- /dev/null +++ b/modules/integer/macros/%s_p_i.bin diff --git a/modules/integer/macros/%s_p_i.sci b/modules/integer/macros/%s_p_i.sci new file mode 100755 index 000000000..8dea09ff3 --- /dev/null +++ b/modules/integer/macros/%s_p_i.sci @@ -0,0 +1,32 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_p_i(a,n) + isn=inttype(n) + if or(double(iconvert(a,isn))<>a)|or(n<0) then + r=a^double(n) + else + if size(a,"*")==1 then + r=iconvert(a^double(n),inttype(n)) + else + if size(n,"*")<>1 then + error(43) + else + n=double(n) + r=a + if size(a,1)==size(a,2) then + for i=2:n,r=r*a,end + else + for i=2:n,r=r.*a,end + end + end + end + end +endfunction diff --git a/modules/integer/macros/%s_q_i.bin b/modules/integer/macros/%s_q_i.bin Binary files differnew file mode 100755 index 000000000..a9548fbde --- /dev/null +++ b/modules/integer/macros/%s_q_i.bin diff --git a/modules/integer/macros/%s_q_i.sci b/modules/integer/macros/%s_q_i.sci new file mode 100755 index 000000000..3025f167b --- /dev/null +++ b/modules/integer/macros/%s_q_i.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_q_i(a,b) + + if a==[] then r=[],end + r=iconvert(a,inttype(b)).\b +endfunction diff --git a/modules/integer/macros/%s_r_i.bin b/modules/integer/macros/%s_r_i.bin Binary files differnew file mode 100755 index 000000000..126ec5a4d --- /dev/null +++ b/modules/integer/macros/%s_r_i.bin diff --git a/modules/integer/macros/%s_r_i.sci b/modules/integer/macros/%s_r_i.sci new file mode 100755 index 000000000..a565df53b --- /dev/null +++ b/modules/integer/macros/%s_r_i.sci @@ -0,0 +1,15 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_r_i(a,b) + + if a==[] then r=[],end + r=iconvert(a,inttype(b))/b +endfunction diff --git a/modules/integer/macros/%s_s_i.bin b/modules/integer/macros/%s_s_i.bin Binary files differnew file mode 100755 index 000000000..efd0330ae --- /dev/null +++ b/modules/integer/macros/%s_s_i.bin diff --git a/modules/integer/macros/%s_s_i.sci b/modules/integer/macros/%s_s_i.sci new file mode 100755 index 000000000..c970edd13 --- /dev/null +++ b/modules/integer/macros/%s_s_i.sci @@ -0,0 +1,17 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_s_i(a,b) + if a==[] then + if mtlb_mode() then r=[],else r=-b,end + else + r=iconvert(a,inttype(b))-b + end +endfunction diff --git a/modules/integer/macros/%s_x_i.bin b/modules/integer/macros/%s_x_i.bin Binary files differnew file mode 100755 index 000000000..fd339e481 --- /dev/null +++ b/modules/integer/macros/%s_x_i.bin diff --git a/modules/integer/macros/%s_x_i.sci b/modules/integer/macros/%s_x_i.sci new file mode 100755 index 000000000..039ee7d78 --- /dev/null +++ b/modules/integer/macros/%s_x_i.sci @@ -0,0 +1,16 @@ +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) INRIA - +// +// 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.1-en.txt + + +function r=%s_x_i(a,b) + + if a==[] then r=[],end + r=iconvert(a,inttype(b)).*b + +endfunction diff --git a/modules/integer/macros/buildmacros.bat b/modules/integer/macros/buildmacros.bat new file mode 100755 index 000000000..c4e35ec40 --- /dev/null +++ b/modules/integer/macros/buildmacros.bat @@ -0,0 +1 @@ +@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;
\ No newline at end of file diff --git a/modules/integer/macros/buildmacros.sce b/modules/integer/macros/buildmacros.sce new file mode 100755 index 000000000..05242db39 --- /dev/null +++ b/modules/integer/macros/buildmacros.sce @@ -0,0 +1,9 @@ +//------------------------------------ +// Allan CORNET INRIA 2005 +//------------------------------------ +if (isdef("genlib") == %f) then + exec(SCI+"/modules/functions/scripts/buildmacros/loadgenlib.sce"); +end +//------------------------------------ +genlib("integerlib","SCI/modules/integer/macros",%f,%t); +//------------------------------------ diff --git a/modules/integer/macros/cleanmacros.bat b/modules/integer/macros/cleanmacros.bat new file mode 100755 index 000000000..5079dfd71 --- /dev/null +++ b/modules/integer/macros/cleanmacros.bat @@ -0,0 +1,3 @@ +@del *.bin 2>NUL +@del lib 2>NUL +@del names 2>NUL
\ No newline at end of file diff --git a/modules/integer/macros/lib b/modules/integer/macros/lib Binary files differnew file mode 100755 index 000000000..e3f6f24f8 --- /dev/null +++ b/modules/integer/macros/lib diff --git a/modules/integer/macros/names b/modules/integer/macros/names new file mode 100755 index 000000000..50117a2c9 --- /dev/null +++ b/modules/integer/macros/names @@ -0,0 +1,49 @@ +%i_1_s +%i_2_s +%i_3_s +%i_4_s +%i_Matplot +%i_a_s +%i_champ +%i_champ1 +%i_contour +%i_contour2d +%i_d_s +%i_fft +%i_j_i +%i_j_s +%i_l_s +%i_m_s +%i_mfprintf +%i_mprintf +%i_msprintf +%i_n_s +%i_o_s +%i_p_i +%i_p_s +%i_plot2d +%i_plot2d1 +%i_plot2d2 +%i_q_s +%i_r_s +%i_s_s +%i_sign +%i_string +%i_x_s +%s_1_i +%s_2_i +%s_3_i +%s_4_i +%s_a_i +%s_d_i +%s_i_i +%s_j_i +%s_l_i +%s_m_i +%s_n_i +%s_o_i +%s_p_i +%s_q_i +%s_r_i +%s_s_i +%s_x_i |