数学のブログ

無限の世界への一歩 - 数列の極限、無限級数 極限の計算 極限の法則 極限値と不等式 三角関数、正弦と余弦、倍角、逆数、累乗

新装版 数学読本4 (松坂 和夫(著)、岩波書店)の第14章(無限の世界への一歩 - 数列の極限、無限級数)、14.2(極限の計算)、極限の法則(2)、極限値と不等式の問8の解答を求めてみる。

1

- 1 cos n θ 1
- 1 n 1 n cos n θ 1 n
lim n ± 1 n = 0

よって、

lim n 1 n cos n θ = 0

2

| sin 2 n θ | 1
| 1 n sin 2 n θ | 1 n
lim n 1 n = 0

よって、

lim n 1 n sin 2 n θ = 0

3

- 1 sin 2 n θ 1
0 sin 2 2 n θ 1
0 1 n sin 2 2 n θ 1 n
lim n 1 n = 0

よって、

lim n 1 n sin 2 2 n θ = 0

4

- 1 cos n π 3 1
| cos 2 n π 3 | 1
| 1 n 2 cos 2 n π 3 | 1 n 2
lim n 1 n 2 = 0

よって、

lim n 1 n 2 cos 2 n π 3 = 0

コード(Wolfram Language, Jupyter)

Limit[{1/n Cos[n theta], 1/n^2 Sin[2n theta], 1/n Sin[2n theta]^2, 1/n^2 Cos[n Pi/3]^2}, n -> Infinity]
Output
Simplify[%, Element[theta, Reals]]
Output
Limit[1/n Sin[2n (-10)]^2, n -> Infinity]
0
Limit[1/n Sin[2n 0]^2, n -> Infinity]
0
Plot3D[1/n Cos[n theta], {n, 1, 10}, {theta, -5, 5},
       AxesLabel -> Automatic]
Output
Plot3D[1/n^2 Sin[2n theta], {n, 1, 10}, {theta, -5, 5},
       AxesLabel -> Automatic]
Output
Plot3D[1/n Sin[2n theta]^2, {n, 1, 10}, {theta, -5, 5},
       AxesLabel -> Automatic]
Output
ListLinePlot[Table[1/n^2Cos[n Pi/3]^2, {n, 10}]]
Output