1

以下のコードを書いて、丸め誤差をいじってみました。7 より大きい値で loopUp を呼び出すと、修正方法がわからないメモリ割り当てエラーが発生します。私は Windows 7 で 32/64 ビットの Erlang を試しました。

-module(roundOff).
-export([main/0]).

main() ->
    loopUp(10).

loopUp(1) -> 1;
loopUp(I) -> 
    io:fwrite("~f ", [math:pow(10.0, I)]),
    sumUp(seq_float(1.0, math:pow(10, I), 1.0)),
    loopUp(I-1).

sumUp(L) ->
    sumUp(L, 0).

sumUp([], Acc) ->
    io:fwrite("~.20f~n", [Acc]),
    Acc;

sumUp([H|T], Acc) ->
    sumUp(T, Acc+1.0/H).

seq_float(Min, Max, Inc, Counter, Acc) when (Counter*Inc + Min) >= Max -> 
    lists:reverse([Max|Acc]);

seq_float(Min, Max, Inc, Counter, Acc) -> 
    seq_float(Min, Max, Inc, Counter+1, [Inc * Counter + Min|Acc]).

seq_float(Min, Max, Inc) -> 
    seq_float(Min, Max, Inc, 0, []).
4

1 に答える 1

0

seq_floatで生成しているリストが長すぎます。事前にすべての数値を生成するのではなく、必要に応じてそれぞれを計算してみてください。

于 2013-01-28T08:24:06.677 に答える