16进制转float ----很粗的计算

流氓兔

(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))               
    (setq  j(1- j))

    )
    m
(setq result (  * (* (expt -1 0)(1+ m)) (expt 2 1)  )

  )
  (rtos result 2 100)
欢迎高手 完善 单精度 双精度

流氓兔

大神来补充一下