diff options
Diffstat (limited to '2.3-1/macros/FunctionAnnotation/FA_SZ_FACTOR.sci')
| -rw-r--r-- | 2.3-1/macros/FunctionAnnotation/FA_SZ_FACTOR.sci | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/2.3-1/macros/FunctionAnnotation/FA_SZ_FACTOR.sci b/2.3-1/macros/FunctionAnnotation/FA_SZ_FACTOR.sci new file mode 100644 index 00000000..d816ff75 --- /dev/null +++ b/2.3-1/macros/FunctionAnnotation/FA_SZ_FACTOR.sci @@ -0,0 +1,20 @@ +function opout = FA_SZ_FACTOR(inval) + +// 17-Dec-2016 -- Author : Shamik Guha + +inval=string(inval); +if (isnum(inval)) then + in_num = eval(inval) ; + out=factor(in_num); + //disp(out); + +else + error(36, "Wrong input argument "+inval+"."); + +end + + +out=(length(out)); +opout=string(out); + +endfunction |