二进制双精度浮点数转换成十进制

marting · 发表于 2021-1-13 21:33:16

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(123 82 149 98 55 49 27 65) to 445517.846238412

双精度浮点64位数字到十进制

reverse 表
转换每个二进制到十进制
然后连接起来

01000001 00011011 00110001 00110111
01100010 10001100 01010010 10000001

第一位是符号位, 0 正数 1 是负数
接下的 11 位是指数位， 10000010001 转换成10进制 1041 ， - 1023 得到指数位 = 18
最后的 52 位是尾数， 1011001100010011011101100010100011000101001010000001
需要在前面添加 "1." (包括小数点) ， 1.1011001100010011011101100010100011000101001010000001
转成十进制为 1.69951570983280952909
然后乘以 2^18 = 262144
1.66... x 262144 = 445517.846238412

yuren008 · 发表于 2021-1-14 09:56:51

做个对论坛有益的人。

st788796 · 发表于 2021-1-26 22:34:22

一个进制转换网页工具

http://www.binaryconvert.com/res ... 4050051056052049050

st788796 · 发表于 2021-1-31 14:07:46

纠正一下，445517.846238412 -> 0x411B3137628C5281 -> (129 82 140 98 55 49 27 65)

double B2D(BYTE *pData) {
//double 型的格式8个字节
// S/E/M
//-1/-----------11/------.....52/
//获取符号位,1表示负数，0表示正数；
int sign = int(pData[0] >> 7);
cout << "sign= "<<sign << endl;
//指数位 11位
int e = int(pData[0] & 0x7F) * 16 + int(pData[1]>>4) - 1023;
cout << "e = " << e << endl;
// M 位
double m = pow (2,-52)*(pow(256,6) *int(pData[1] &0x0F) + pow(256, 5)* int(pData[2]) + pow(256,4)* int(pData[3]) + pow(256, 3) * int(pData[4]) + pow(256, 2) * int(pData[5]) + 256 * int(pData[6]) + int(pData[7])) +1;
cout << "m = " << m << endl;
double res = pow(-1, sign) * m * pow(2, e);
return res;
}

复制代码

st788796 · 发表于 2021-1-31 14:52:45

本帖最后由 st788796 于 2021-1-31 17:10 编辑

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

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

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

复制代码

_$

st788796 · 发表于 2021-1-31 16:58:31

double -> HEX

_$ (xdrx_string_format "%016llx" 445517.846238412)
"411b3137628c5281"

复制代码

账号		自动登录	找回密码
密码			立即注册

[研讨] 二进制双精度浮点数转换成十进制

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。