浮動小数点数のパックおよびアンパック時に、浮動小数点の不正確さを排除する方法を教えてください。

Question

ソケットプログラミングを使用して、UDPを介して別のハードウェアに送信するための数値の配列をパックしています。

私がpackの場合は12.2、次にunpackの場合は12.199999892651となります。私が緯度と経度に関連する数字を扱っているので、私はそのような偏差を持つことはできません。

これは私が書いた簡単なスクリプトは次のとおりです。

use warnings; 

use Time::HiRes qw (sleep); 

@Data = (20.2, 30.23, 40.121, 1, 2, 3, 4, 6. 4, 3.2, 9.9, 0.1, 12.2, 0.99, 7.8, 999, 12.3); 

$myArr = pack('f*', @Data); 

print "$myArr\n\n"; 

@Dec = unpack('f*',$myArr); 

print "@Dec"; 

出力は次のようになります。私は精度を制御することができます任意の方法は

20.2000007629395 30.2299995422363 40.1209983825684 1 2 3 4 6.40000009536743 3.20 000004768372 9.89999961853027 0.100000001490116 12.1999998092651 0.9900000095367 43 7.80000019073486 999 12.3000001907349 

ありますか？

Answer 1

短い答えは：山車としてこれらの数字をパックしないでください。 IEEE浮動小数点表現のために精度が失われます。代わりにそれらを「文字小数点」（つまり文字列）に変換し、文字列としてパックします。精度が本当に必要で、数学演算を実行する必要がない場合は、それらをPerlで文字列として保存することもできます。

Answer 2

packのfテンプレートは単精度浮動小数点数のためのテンプレートで、ほとんどのプラットフォームで7桁以上の精度が得られます。 dテンプレートは倍精度を提供し、小数点以下15桁まで十分に適しています。

print unpack("f", pack("f",12.2));   # "12.1999998092651" 
print unpack("d", pack("d",12.2));   # "12.2" 

printf "%.20f",unpack("f", pack("f",12.2)); # "12.19999980926513671875" 
printf "%.20f",unpack("d", pack("d",12.2)); # "12.19999999999999928946" 

Answer 3

2/10は1/3のような周期的な数値で、10進数の周期数です。それは無限のストレージを取るように浮動小数点数で正確に格納することは不可能です。このよう

は、それがエラーを導入だpackありません。あなたが提供した番号を忠実に保管しています。

$ perl -E'say sprintf "%.20e", 12.2' 
1.21999999999999992895e+01 

$ perl -E'say sprintf "%.20e", unpack "d", pack "d", 12.2' 
1.21999999999999992895e+01 

浮動小数点数を使用する限り、正確に12.2を格納することはできません。

f（単精度、7桁以上の精度）ではなく、d（精度は倍精度、ほぼ16桁）を使用して、ストアを正確に格納できます。 Perlは倍精度を使用していますので、あなたが実際にf代わりのdを使用することにより精度の損失を導入しました。

のでdを使用して、あなたの結果（sprintf "%.10f"）を丸めます。