Float浮点数转二进制串和十六进制串

首页 > 代码库 > Float浮点数转二进制串和十六进制串

Float浮点数转二进制串和十六进制串

2024-10-01 22:18:39 217人阅读

#include <String.au3>
#include <Array.au3>
#cs
0.125 0000003e
12.25 00004441
-0.125 000000be
1.3    6666a63f 1.299999952316284
0.3125 0000a030
0.2    c8cc4c3e 0.199999928474426
0.3    9899993e 0.299999952316284
#ce

Local $aArray = StringSplit("0.125,12.25,-0.125,1.3,0.3125,0.2,0.3", ",")
For $i = 1 To UBound($aArray)-1
ConsoleWrite(@LF&‘----------------------------------------‘&@LF&@LF)
Local $floatHex=FloatToHex($aArray[$i])
ConsoleWrite(‘=>‘ &$floatHex& @LF)
ConsoleWrite(@LF)
BinaryToFloat($floatHex)

;1位符号位+8位指数+23位尾数
Func FloatToHex($floatStr)
;符号位正数为0 负数为1
Local $pegativeStr = ‘0‘
If StringInStr($floatStr, "-") <> 0 Then $pegativeStr = ‘1‘
Local $pos = StringInStr($floatStr, ".")
;小数点左边的值
Local $left = StringLeft($floatStr, $pos - 1)
;小数点右边的值
Local $right = StringRight($floatStr, StringLen($floatStr) - StringLen($left) - 1)
Local $binaryStr = DecimalToBinary(Number($left)) & FloatSmailDecimalToBinary(Number(‘0.‘ & $right, 3))
ConsoleWrite($floatStr & ‘=>‘ & $binaryStr & @LF)
;二进制串中，从左边算起第一个数字1的位置例 1100.01 值为1
Local $leftOnePos = StringInStr($binaryStr, "1", 0, 1);
;二进制串中，小数点的位置例 1100.01 值为5
Local $decimalPos = StringInStr($binaryStr, ".");
;指数部分为二进制浮点数正规化后，小数点移动的位数+127
;0.0011 2-5=-3     1001.01 5-1=4移动次数需再减1
Local $exponent = $decimalPos - $leftOnePos + 127
If ($decimalPos - $leftOnePos) > 0 Then $exponent -= 1
Local $exponentBinaryStr = DecimalToBinary($exponent)
ConsoleWrite(‘Exponent=>‘ & $exponent)
;指数左边补足8位
$exponentBinaryStr = _StringRepeat("0", 8 - StringLen($exponentBinaryStr)) & $exponentBinaryStr
ConsoleWrite(‘=>‘ & $exponentBinaryStr & @LF)
;尾数部分
Local $tailBinaryStr = StringReplace(StringMid($binaryStr, $leftOnePos + 1), ‘.‘, "")
;用0补足23位
$tailBinaryStr &= _StringRepeat("0", 23 - StringLen($tailBinaryStr))
ConsoleWrite(‘Tail=>‘ & $tailBinaryStr & @LF)
Local $floatBinaryStr = $pegativeStr & $exponentBinaryStr & $tailBinaryStr;
ConsoleWrite(‘=>‘ & $pegativeStr & ‘ ‘ & $exponentBinaryStr & ‘ ‘ & $tailBinaryStr & @LF)
Local $result = ‘‘
For $i = 0 To StringLen($floatBinaryStr) / 4 - 1 Step 1
  $result &= DecimalToHex(BinaryToDecimal(StringMid($floatBinaryStr, $i * 4 + 1, 4)))
Next
Return StringLower(MemData($result))
EndFunc   ;==>FloatToBinary

Func BinaryToFloat($hexStr)
Local $binaryStr = HexToBinary(MemData($hexStr))
ConsoleWrite($hexStr & ‘=>‘ & $binaryStr & @LF)
Local $pegativeStr = ‘‘;
If StringLeft($binaryStr, 1) = ‘1‘ Then $pegativeStr = ‘-‘
Local $exponentBinaryStr = StringMid($binaryStr, 2, 8)
ConsoleWrite(‘ExponentBinary=>‘ & $exponentBinaryStr & @LF)
Local $tailBinaryStr = StringMid($binaryStr, 10, 23)
ConsoleWrite(‘TailBinary=>‘ & $tailBinaryStr & @LF)
Local $exponent = BinaryToDecimal($exponentBinaryStr) - 127
ConsoleWrite(‘Exponent=>‘ & $exponent & @LF)
Local $tail = "1." & $tailBinaryStr
Local $newTail = ‘‘
If $exponent >= 0 Then
  $newTail = StringReplace(StringLeft($tail, $exponent + 2), ".", "") & ‘.‘ & StringMid($tail, $exponent + 3)
Else
  $newTail = ‘0.‘ & _StringRepeat("0", -$exponent - 1) & StringReplace($tail, ‘.‘, ‘‘)
EndIf
ConsoleWrite(‘Tail=>‘ & $newTail & @LF)
Local $decimalPos = StringInStr($newTail, ".");
Local $result = BinaryToDecimal(StringLeft($newTail, $decimalPos - 1)) & BinaryToSmailDecimal(StringMid($newTail, $decimalPos + 1))
ConsoleWrite(‘=>‘ & $result & @LF)
Return $pegativeStr & $result
EndFunc   ;==>BinaryToFloat

Func MemData($hexStr)
Local $result = ‘‘
Local $index = StringLen($hexStr) / 2 - 1
For $i = $index To 0 Step -1
$result &= StringMid($hexStr, $i * 2 + 1, 2)
Next
Return $result
EndFunc ;==>MemData

#cs
如0.638
1、将其乘二：0.638*2=1.276 则二进制小数的二分位是1.276整数部分1
2、取小数0.276，0.276*2=0.552 则二进制小数的二十分位是0.522整数部分0
3、重复1
得：（0.638）10=（约等于）（0.1010）2
#ce
;小数部分转二进制
Func FloatSmailDecimalToBinary($float)
Local $floatStr = String($float)
Local $leftChar = ‘‘
Local $result = ‘‘
For $i = 1 To 23 Step 1
  $float = $float * 2
  If ($float = 0) Then ExitLoop ;
  $floatStr = String($float)
  $leftChar = StringLeft($floatStr, 1)
  $result &= $leftChar
  $temp = StringFormat(‘%f‘, ‘0.‘ & StringMid($floatStr, 3, StringLen($floatStr) - 2))
  $float = $temp;
Next
Return ‘.‘ & $result
EndFunc   ;==>FloatSmailDecimalToBinary

;十进制转二进制
Func DecimalToBinary($dec)
Local $temp = 0, $shit = 0
For $a = 1 To BinaryLen($dec) * 8 Step 1
  $shit = $a
  If (2 ^ $a > $dec) Then ExitLoop
Next
Local $result = ""
For $i = 0 To $shit - 1 Step 1
  $result &= Chr(BitAND(0x1, BitShift($dec, $i)) + Asc("0"))
Next
Return _StringReverse($result)
EndFunc   ;==>DecimalToBinary

;二进制转十进制
Func BinaryToDecimal($bin)
Local $result = 0
Local $binArray = StringSplit($bin, "", 2)
For $a = UBound($binArray) To 1 Step -1
  Local $number = StringMid($bin, $a, 1)
  If $number = "1" Then
   $result += 2 ^ (UBound($binArray) - $a)
  EndIf
Next
Return $result
EndFunc   ;==>BinaryToDecimal

;二进制小数转十进制
Func BinaryToSmailDecimal($bin)
Local $result = 0
Local $binArray = StringSplit($bin, "", 2)
For $a = 1 To UBound($binArray) Step 1
  Local $number = StringMid($bin, $a, 1)
  If $number = "1" Then
   $result += 2 ^ - $a
  EndIf
Next
Return StringMid($result, 2)
EndFunc   ;==>BinaryToSmailDecimal

;十进制转十六进制
Func DecimalToHex($dec)
Local $temp = 0, $shit = 0
Local $hexChar = ‘0123456789ABCDEF‘
Local $hexCharArray = StringSplit($hexChar, ‘‘, 2)
For $a = 1 To BinaryLen($dec) * 8 Step 1
  $shit = $a
  If (16 ^ $a > $dec) Then ExitLoop
Next
Local $result = ""
For $i = 0 To $shit - 1 Step 1
  $dddd = BitAND(0xf, BitShift($dec, $i * 4))
  $result &= $hexCharArray[$dddd]
Next
Return _StringReverse($result)
EndFunc   ;==>DecimalToHex

;十六进制转二进制
Func HexToBinary($hex)
If StringUpper(StringLeft($hex, 2)) = "0x" Then $hex = StringUpper(StringRight($hex, StringLen($hex) - 2))
Local $bits = "0000|0001|0010|0011|0100|0101|0110|0111|1000|1001|1010|1011|1100|1101|1110|1111"
$bits = StringSplit($bits, ‘|‘, 2)
Local $hexInputArray = StringSplit($hex, ‘‘, 2)
Local $result = ""
For $a In $hexInputArray
$result &= $bits[Dec($a)]
Next
Return $result
EndFunc ;==>HexToBinary

运行结果：

--------------------------------------------------------------------------------

0.125=>0.001
Exponent=>124=>01111100
Tail=>00000000000000000000000
=>0 01111100 00000000000000000000000
=>0000003e

0000003e=>00111110000000000000000000000000
ExponentBinary=>01111100
TailBinary=>00000000000000000000000
Exponent=>-3
Tail=>0.00100000000000000000000000
=>0.125

--------------------------------------------------------------------------------

12.25=>1100.01
Exponent=>130=>10000010
Tail=>10001000000000000000000
=>0 10000010 10001000000000000000000
=>00004441

00004441=>01000001010001000000000000000000
ExponentBinary=>10000010
TailBinary=>10001000000000000000000
Exponent=>3
Tail=>1100.01000000000000000000
=>12.25

--------------------------------------------------------------------------------

-0.125=>0.001
Exponent=>124=>01111100
Tail=>00000000000000000000000
=>1 01111100 00000000000000000000000
=>000000be

000000be=>10111110000000000000000000000000
ExponentBinary=>01111100
TailBinary=>00000000000000000000000
Exponent=>-3
Tail=>0.00100000000000000000000000
=>0.125

--------------------------------------------------------------------------------

1.3=>1.01001100110011001100110
Exponent=>127=>01111111
Tail=>01001100110011001100110
=>0 01111111 01001100110011001100110
=>6666a63f

6666a63f=>00111111101001100110011001100110
ExponentBinary=>01111111
TailBinary=>01001100110011001100110
Exponent=>0
Tail=>1.01001100110011001100110
=>1.299999952316284

--------------------------------------------------------------------------------

0.3125=>0.0101
Exponent=>125=>01111101
Tail=>01000000000000000000000
=>0 01111101 01000000000000000000000
=>0000a03e

0000a03e=>00111110101000000000000000000000
ExponentBinary=>01111101
TailBinary=>01000000000000000000000
Exponent=>-2
Tail=>0.0101000000000000000000000
=>0.3125

--------------------------------------------------------------------------------

0.2=>0.00110011001100110011001
Exponent=>124=>01111100
Tail=>10011001100110011001000
=>0 01111100 10011001100110011001000
=>c8cc4c3e

c8cc4c3e=>00111110010011001100110011001000
ExponentBinary=>01111100
TailBinary=>10011001100110011001000
Exponent=>-3
Tail=>0.00110011001100110011001000
=>0.199999928474426

--------------------------------------------------------------------------------

0.3=>0.01001100110011001100110
Exponent=>125=>01111101
Tail=>00110011001100110011000
=>0 01111101 00110011001100110011000
=>9899993e

9899993e=>00111110100110011001100110011000
ExponentBinary=>01111101
TailBinary=>00110011001100110011000
Exponent=>-2
Tail=>0.0100110011001100110011000
=>0.299999952316284

Float浮点数转二进制串和十六进制串

声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉：投诉/举报工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。

联系
我们

首页 > 代码库 > Float浮点数转二进制串和十六进制串

Float浮点数转二进制串和十六进制串

看完仍有疑问？有类似问题直接问程序猿