smooth f x = (f (x-dx) + f x + f (x+dx)) / 3.0 nth_fold_smooth n = iter n smoothこれは、このように展開される（n=3の場合） (smooth (smooth (smooth f))) x動きを見るために、以下のテストコードを実行 dx :== 0.1 //テスト用に大き目の値を設定 smoo…