octave 06 and 08WIP
This commit is contained in:
parent
e9d7aa3900
commit
c3777e550b
15 changed files with 303 additions and 0 deletions
13
1sem/octave/06/print_num_bin.m
Normal file
13
1sem/octave/06/print_num_bin.m
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
function s = print_num_bin(n, prec)
|
||||
neg = n < 0;
|
||||
n = abs(n);
|
||||
v = 2^prec;
|
||||
n = round(n * v);
|
||||
s = dec2bin(n);
|
||||
s = [s(1:length(s)-prec) "." s(length(s)-prec+1:end)];
|
||||
dp = strfind(s, ".");
|
||||
s = [s(1:dp) s(dp+1:dp+prec)];
|
||||
if neg
|
||||
s = ["-" s];
|
||||
end
|
||||
end
|
||||
Loading…
Add table
Add a link
Reference in a new issue