octave 06 and 08WIP

This commit is contained in:
Andrew 2019-12-17 00:29:33 +07:00
parent e9d7aa3900
commit c3777e550b
15 changed files with 303 additions and 0 deletions

View 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