[fpr 2961] （再投稿）ExtendedType の計算

　岡本＠日本女子大学心理学科です。

　今朝７時ごろ投稿したメールが未だ返ってこないので再投稿しました。
岡田さんの先日のメールの経過時間を調べてみると
金沢大学のサーバーは、22:35:12 +0900　に発信されて
日本女子大学のサーバーには、　22:35:26 +0900　に受信されています。
約１４秒掛かったということでしょうか？
　家からの投稿なので時間が投稿メールが蒸発したのかと思い、
大学から再投稿する次第です。

　Delphi 2005 のときは、extended型が有効でなかったのですが（少なくとも
私のパソコンでは）、今回Delphi 2006で試してみると有効でした。
　double型は１５桁程度の精度ですが、Extended型は２０桁程度あるという
他に、Pentiumの実数計算がExtended型をサポートしているのに、Double型の
計算では、extended型に変換してから計算してDouble型に戻しているということなので
PentiumのパソコンではExtended型が精度が高くて高速であるというメリットを
活かすためExtended型を使いたかったのです。Delphi 2006でextended型が復活した
という感じです。
　Exnteded型が有効であることを確認したソースコードは以下の通りです。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
procedure TForm1.Button1Click(Sender: TObject);
var a, a1, b : extended;
begin
    a := 1.0;
    b := 1.0;
    repeat
      a1 := a;
      b  := b * 0.1;
      a  := a + b;
      with Memo1.Lines do
        begin
          Add('b = ' + FloatToStrF(b, ffGeneral,30, 25));
          Add('a1 = ' + FloatToStrF(a1, ffGeneral,30, 25));
          Add('a  = ' + FloatToStrF(a, ffGeneral,30, 25));
        end;
    until a = a1;
end;
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

日本女子大学心理学科
岡本　安晴

ここは心理学研究の基礎メーリングリストに投稿された過去の記事を掲載しているページです。