こんな反復式の数値計算をどうやるか？通常のNestは当てはめるのが難しい。 Foldを使う。 まず、二変数で定義する。 f2[x_, a_] := Sqrt[x + a] その上で、Foldをこうやって反復して関数に入力すればいい。 Fold[f2, x, Reverse[Table[1/2^k, {k, 1, 5}]]] …