diff options
| author | siddhu8990 | 2017-04-19 14:57:49 +0530 |
|---|---|---|
| committer | siddhu8990 | 2017-04-19 14:57:49 +0530 |
| commit | 1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f (patch) | |
| tree | 34e52b33707a829c1d8484428c96d3f1f6ce2b3a /macros/FunctionAnnotation/FA_SZ_DEC2BASE.sci | |
| parent | 9e506f48291533cba7b4c555b0d2e98f234bfbe3 (diff) | |
| download | scilab2c-1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f.tar.gz scilab2c-1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f.tar.bz2 scilab2c-1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f.zip | |
Merged Shamik's work
Diffstat (limited to 'macros/FunctionAnnotation/FA_SZ_DEC2BASE.sci')
| -rw-r--r-- | macros/FunctionAnnotation/FA_SZ_DEC2BASE.sci | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/macros/FunctionAnnotation/FA_SZ_DEC2BASE.sci b/macros/FunctionAnnotation/FA_SZ_DEC2BASE.sci new file mode 100644 index 00000000..c5f39abd --- /dev/null +++ b/macros/FunctionAnnotation/FA_SZ_DEC2BASE.sci @@ -0,0 +1,30 @@ +function opout = FA_SZ_DEC2BASE(in1val,in2val) + +// 07-Sep-2016 -- Author : Shamik Guha + + +in1val=string(in1val); +in2val=string(in2val); +if (isnum(in1val)) then + in1_num = eval(in1val) ; + in2_num = eval(in2val) ; + out=dec2base(in1_num,in2_num); + //disp(out); + +else + error(36, "Wrong input argument '+in1val+'."); + +end +if (in2_num>10) then + out=sci2exp(out); + opout=string(length(out)-2); + //disp(opout); + out=string(out); +else + out=eval(out); + //disp(out); + opout=string(floor(log10(abs(out)+1))+1); + //disp(opout); + out=string(out); +end +endfunction |