diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci | 24 |
1 files changed, 21 insertions, 3 deletions
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci index afbd98ab..9f0523b7 100644 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci +++ b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_PREC.sci @@ -1,5 +1,5 @@ -function opout = FA_TP_PREC(in1,in2) -// function opout = FA_TP_PREC(in1,in2) +function opout = FA_TP_PREC(in1,in2,in3) +// function opout = FA_TP_PREC(in1,in2,in3) // ----------------------------------------------------------------- // // Status: @@ -19,8 +19,9 @@ function opout = FA_TP_PREC(in1,in2) // ------------------------------ // --- Check input arguments. --- // ------------------------------ -SCI2CNInArgCheck(argn(2),2,2); +SCI2CNInArgCheck(argn(2),2,3); +if (argn(2)==2) then in1Pin2 = in1+in2; select (in1Pin2), @@ -30,5 +31,22 @@ select (in1Pin2), case 'cc' then opout = 's', else opout = 'd', end +end + +if (argn(2)==3) then +in1Pin2 = in1+in2+in3; + +select (in1Pin2), + case 'sss' then opout = 's', + case 'ssc' then opout = 's', + case 'scs' then opout = 's', + case 'scc' then opout = 's', + case 'ccc' then opout = 's', + case 'ccs' then opout = 's', + case 'csc' then opout = 's', + case 'css' then opout = 's', + else opout = 'd', +end +end endfunction |