16进制转float ----很粗的计算
本帖最后由 流氓兔 于 2022-1-30 06:44 编辑(setq aa (xx-16-to-10 "404FC593"))
(setq bb (xx-10-to-2 aa));;"1000000010011111100010110010011"
(setq n "1001111110001011001001")
(setq i (strlen n) m 0 j -1.00000000000000000)
(setq k 1)
(repeat i
(setq f(substr n k 1))
(setq m(+ m (* (expt 2.00000000000000000 j) (atoi f))))
(setq k(1+ k))
(setqj(1- j))
)
m
(setq result (* (* (expt -1 0)(1+ m)) (expt 2 1))
)
(rtos result 2 100)
欢迎高手 完善 单精度 双精度
大神来补充一下
页:
[1]