折れ線と関数 y = (e^(-2 x)) のグラフとの比較

(1) 関数 y = (e^(-2 x)) のグラフを区間 [0, a] 上で赤色として定義

Clear[F]

F[a_] := 
      Plot[Exp[-2*x], {x, 0, a}, PlotStyle -> Hue[0.0], 
        AspectRatio -> Automatic, PlotRange -> {0, 1}]

(2) 区間 [0, 2] 上で描く

F[2]

(3) 区間 [0, 2] 上で折れ線 (青) とy = (e^(-2 x)) のグラフ (赤) の比較をする

(i) n = 3 の場合

Show[G[3, 2], F[2]]

(ii) n = 4 の場合

Show[G[4, 2], F[2]]

(iii) n = 10 の場合

Show[G[10, 2], F[2]]

(iv) n = 20 の場合

Show[G[20, 2], 
      F[2]]

(v) n = 100 の場合

Show[G[100, 2], F[2]]

(4) 区間 [0,a] 上において，n=k,k+3,k+6,.....,m のときの折れ線と解 y = (e^(-2 x)) のグラフのアニメーション Anime[a,k,m] の定義

Clear[Anime]

Anime[a_, k_, m_] := Do[Show[G[n, a], F[a]], {n, k, m, 3}]

例

Anime[2, 3, 18]