最大代码：将十进制转换为二进制，反之亦然

Question

我必须创建一个最大值代码，它会自动将十进制（如40.75）转换为二进制数，反之亦然..但我在转换.75部分时遇到了麻烦。

这是我能够制作的代码。

bin_integ(n) := simplode(values(n, 2));
values([arg]) := block
(   

    [n: first(arg), b: if length(arg) > 1 then second(arg) else 10, v: [ ], q],   


    do (      


       [n, q]: divide(n, b),     

       v: cons(q, v),   

       if n=0 then return(v)
   )
);

bin_integ(40);

此代码仅适用于整数。当我尝试输入40.75时，它说语法错误。 我已经搜索过其他算法，这些算法在其他编程语言中进行转换（例如c ++和java），并试图在Maxima中复制它。但是，它仍然无效

click to view the screencapture of my work in maxima