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

st788796

2. 
   
3. (defun XD::Math:Double->Hex (d / str i lst)
   
4.   (if (eq (type d) 'REAL)
   
5.     (progn
   
6.       (setq str        (xdrx_string_format "%016llx" d)
   
7.             i        1
   
8.       )
   
9.       (repeat (/ (strlen str) 2)
   
10.         (setq lst (cons (substr str i 2) lst)
    
11.               i          (+ 2 i)
    
12.         )
    
13.       )
    
14.       (mapcar 'xd::math:hex2dec lst)
    
15.     )
    
16.   )
    
17. )
    
18. 
    

<br /> (defun XD::Math:Double->Hex (d / str i lst)<br />   (if (eq (type d) 'REAL)<br />     (progn<br />       (setq str        (xdrx_string_format "%016llx" d)<br />             i        1<br />       )<br />       (repeat (/ (strlen str) 2)<br />         (setq lst (cons (substr str i 2) lst)<br />               i          (+ 2 i)<br />         )<br />       )<br />       (mapcar 'xd::math:hex2dec lst)<br />     )<br />   )<br /> )<br /> <br />

1. 
   
2. _$ (xd::math:double->hex 445517.846238412)
   
3. (129 82 140 98 55 49 27 65)
   
4. _$

复制代码

kmliro_2017

谢谢分享！！！！！