summaryrefslogtreecommitdiff
path: root/2.3-1/macros/FunctionAnnotation/FA_SZ_DEC2BASE.sci
blob: 4cd6467d01f2e22a73f74b87e0ee35d670696355 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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