diff options
| -rw-r--r-- | src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci index 07f7ddb5..6ac51616 100644 --- a/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci +++ b/src/Scilab2C/Scilab2C/FunctionAnnotation/FA_TP_MAX.sci @@ -13,8 +13,19 @@ function opout = FA_TP_MAX(in1,in2) // ------------------------------ // --- Check input arguments. --- // ------------------------------ -SCI2CNInArgCheck(argn(2),2,2); +SCI2CNInArgCheck(argn(2),1,2); + +if (argn(2)==1) then +select (in1), + case 's' then opout = 'c' + case 'c' then opout = 'c' + else opout = 'z', +end +end + + +if (argn(2)==2) then in1Pin2 = in1+in2; opout = in1; @@ -27,5 +38,6 @@ elseif (in1Pin2 == 'sc') elseif (in1Pin2 == 'dc') opout = 'z'; end +end endfunction |