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

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

Clear[F]

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

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

F[6]

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

(i) n = 3 の場合

Show[G1[3, 6], F[6]]

(ii) n = 4 の場合

Show[G1[4, 6], F[6]]

(iii) n = 10 の場合

Show[G1[10, 6], F[6]]

(iv) n = 20 の場合

Show[G1[20, 6], F[6]]

(v) n = 100 の場合

Show[G1[30, 6], F[6]]