(XD::Math:Hex->Double)HEX转双精度浮点数

st788796

2. 
   
3. (defun XD::Math:Hex->Doble (lst / sign e m res)
   
4.   (if (and (eq (length lst) 8)
   
5.            (vl-every '(lambda (x) (and (= (type x) 'INT) (< -1 x 256))) lst)
   
6.       )
   
7.     (progn (setq lst  (reverse lst)
   
8.                  sign (lsh (car lst) -7)
   
9.                  e    (- (+ (* (logand (car lst) 127) 16) (lsh (nth 1 lst) -4)) 1023)
   
10.                  m    (1+ (* (expt 2. -52)
    
11.                              (+        (* (expt 256. 6) (logand (nth 1 lst) 15))
    
12.                                 (* (expt 256. 5) (nth 2 lst))
    
13.                                 (* (expt 256. 4) (nth 3 lst))
    
14.                                 (* (expt 256. 3) (nth 4 lst))
    
15.                                 (* (expt 256. 2) (nth 5 lst))
    
16.                                 (* 256 (nth 6 lst))
    
17.                                 (nth 7 lst)
    
18.                              )
    
19.                           )
    
20.                       )
    
21.                  res  (* (expt -1. sign) m (expt 2. e))
    
22.            )
    
23.            res
    
24.     )
    
25.   )
    
26. )

<br /> (defun XD::Math:Hex->Doble (lst / sign e m res)<br />   (if (and (eq (length lst) 8)<br />            (vl-every '(lambda (x) (and (= (type x) 'INT) (< -1 x 256))) lst)<br />       )<br />     (progn (setq lst  (reverse lst)<br />                  sign (lsh (car lst) -7)<br />                  e    (- (+ (* (logand (car lst) 127) 16) (lsh (nth 1 lst) -4)) 1023)<br />                  m    (1+ (* (expt 2. -52)<br />                              (+        (* (expt 256. 6) (logand (nth 1 lst) 15))<br />                                 (* (expt 256. 5) (nth 2 lst))<br />                                 (* (expt 256. 4) (nth 3 lst))<br />                                 (* (expt 256. 3) (nth 4 lst))<br />                                 (* (expt 256. 2) (nth 5 lst))<br />                                 (* 256 (nth 6 lst))<br />                                 (nth 7 lst)<br />                              )<br />                           )<br />                       )<br />                  res  (* (expt -1. sign) m (expt 2. e))<br />            )<br />            res<br />     )<br />   )<br /> )

1. 
   
2. _$ (rtos (xd::math:double->dec '(129 82 140 98 55 49 27 65)) 2 15)
   
3. "445517.8462384121"
   
4. 
   

复制代码

yuren008

做个对论坛有益的人。