積分

システム思考の本を読んでたら、微積分が出てきた。

(defn area[fun a b]
  (let [dx (/ (- b a) 1000000.0)]
    (reduce + (map #(* (fun %) dx) (range a b dx))) ))

(defn f-x [x] (* x x))
(map #(list % (area f-x 0 %)) (range 10))

 ((0 0)
 (1 0.33333283333399866)
 (2 2.6666626666719893)
 (3 9.000013499876507)
 (4 21.333301333375914)
 (5 41.666729165529794)
 (6 72.00010799901206)
 (7 114.33316183560613)
 (8 170.6664106670073)
 (9 242.99963550596135))

y= x * x,0 から bの区間の面積であれば、別解 S=(x * x * x)/ 3 で求められる。
x が 2倍になれば、 面積S は 8倍になる。 何が加速度的に変化して、何が面積に相当するかは置いといて。

システム思考―複雑な問題の解決技法 (BEST SOLUTION)

プログラミングClojure