diff options
| author | torset | 2009-02-17 14:08:06 +0000 |
|---|---|---|
| committer | torset | 2009-02-17 14:08:06 +0000 |
| commit | d9e49a8bd451a54a8d3f2d2dbc996450ce26de60 (patch) | |
| tree | 8a6f3e07f1604f3b53342715dc16c752d2858434 | |
| parent | fde5f7914c9b74fad2c8208e93995d1d19611142 (diff) | |
| download | scilab2c-d9e49a8bd451a54a8d3f2d2dbc996450ce26de60.tar.gz scilab2c-d9e49a8bd451a54a8d3f2d2dbc996450ce26de60.tar.bz2 scilab2c-d9e49a8bd451a54a8d3f2d2dbc996450ce26de60.zip | |
Adjust FA_TP_MAX to be use with one argument
| -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 |