折れ線と関数 y = sin x のグラフとの比較

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

Clear[F1]

F1[a_] := 
      Plot[Sin[x], {x, 0, a}, PlotStyle -> Hue[0.0], 
        AspectRatio -> Automatic, 
        PlotRange -> {-4, 4}]

(2) 区間 [0, 6] 上で sin  x  のグラフを描く

F1[6]

(3) 区間 [0, 6] 上で折れ線 (青) とy = sin  x   のグラフ (赤) の比較を n = 
        3,4,10,20 の場合にして見る．

(i) n = 3 の場合

Show[G1[3, 6], F1[6]]

(ii) n = 4 の場合

Show[G1[4, 6], F1[6]]

(iii) n = 10 の場合

Show[G1[10, 6], F1[6]]

(iv) n = 20 の場合

Show[G1[20, 6], F1[6]]

(4) 区間 [0,a] 上で n=k, k+3, k+6, ..., m  の時の折れ線と解を見る
アニメーション Amine1[a,k,m] の定義

Clear[Anime1]

Anime1[a_, k_, m_] := 
      Do[Show[G1[n, a], F1[a]], {n, k, m, 3}]

例

Anime1[6, 3, 20]