blob: 340dd2a59669838dec12ae7d4659daaf0ecf5b21 (
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 opout1 = FA_SZ_DEC2OCT(inval1)
// 07-Sep-2016 -- Author : Shamik Guha
// ------------------------------
// --- Check input arguments. ---
// ------------------------------
//SCI2CNInArgCheck(argn(2),2,2);
//insize=string(insize);
inval1=string(inval1);
disp(inval1);
if (isnum(inval1)) then
in_num1 = eval(inval1) ;
out1=dec2oct(in_num1);
disp(out1);
else
error(36, "Wrong input argument '+inval1+'.");
end
out1=eval(out1);
opout1=string(floor(log10(abs(out1)+1))+1);
out1=string(out1);
disp(opout1);
endfunction
|
