連続写像の空間 ストーン・ワイエルシュトラスの定理 多項式の列、漸化式、一様収束、極限、絶対値関数、帰納法、不等式 解析入門(中) (松坂和夫数学入門シリーズ 5) 楽天ブックス Yahoo!ショッピング au PAY マーケット 学習環境 Surface Windows 10 Pro (OS) Nebo(Windows アプリ) iPad MyScript Nebo - MyScript(iPad アプリ(iPadOS)) ハンズ・オン・スタートMathematica® -Wolfram言語™によるプログラミング(参考書籍) Pythonからはじめる数学入門(参考書籍) 解析入門(中) (松坂和夫 数学入門シリーズ 5) (松坂 和夫 (著)、岩波書店)の第13章(連続写像の空間)、13.2(ストーン・ワイエルシュトラスの定理)、問題3の解答を求めてみる。 | x | - P n + 1 ( x ) = | x | - ( P n ( x ) + x 2 - ( P n ( x ) ) 2 2 ) = | x | - P n ( x ) - | x | 2 - ( P n ( x ) ) 2 2 = | x | - P n ( x ) - ( | x | - P n ( x ) ) ( | x | + P n ( x ) ) 2 = ( | x | - P n ( x ) ) ( 1 - | x | + P n ( x ) 2 ) また、 P 0 ( x ) = 0 | x | - P 0 ( x ) = | x | - 0 = 0 P 1 ( x ) = P 0 + x 2 - P 0 ( x ) 2 2 = x 2 2 = | x | 2 2 | x | - P 1 ( x ) = ( | x | - P 0 ( x ) ) ( 1 - | x | + P 0 ( x ) 2 ) xが閉区間 [ - 1 , 1 ] の場合、 0 ≤ P 0 ( x ) ≤ P 1 ( x ) = | x | 2 2 ≤ | x | 2 ≤ | x | P n + 1 ( x ) - P n ( x ) = x 2 - P n ( x ) 2 ≥ x 2 - | x | 2 2 = 0 | x | - P n + 1 ( x ) = ( | x | - P n ( x ) ) ( 1 - | x | + P n ( x ) 2 ) ≥ ( | x | - | x | ) ( 1 - | x | + P n ( x ) 2 ) = 0 よって、 帰納法により、 | x | ≤ 1 0 ≤ P n ( x ) ≤ P n + 1 ( x ) ≤ | x | また、 | x | - P 0 ( x ) ≤ | x | = | x | · 1 ≤ | x | ( 1 - | x | 2 ) 0 | x | - P n + 1 ( x ) = ( | x | - P n ( x ) ) ( 1 - | x | + P n ( x ) 2 ) ≤ | x | ( 1 - | x | 2 ) n ( 1 - | x | 2 ) ≤ | x | ( 1 - | x | 2 ) n よって帰納法により、 | x | ≤ 1 | x | - P n ( x ) ≤ | x | ( 1 - | x | 2 ) n また、 関数 f : [ 0 , 1 ] → ℝ f ( x ) = x ( 1 - x 2 ) n について、 f ' ( x ) = ( 1 - x 2 ) n - n 2 x ( 1 - x 2 ) n - 1 = ( 1 - x 2 ) n - 1 ( 1 - x 2 - n 2 x ) = ( 1 - x 2 ) n - 1 ( 1 - n + 1 2 x ) 0 ≤ x ≤ 2 n + 1 f ' ( x ) ≥ 0 2 n + 1 ≤ x ≤ 1 f ' ( x ) ≤ 0 なので、fは x = 2 n + 1 のとき最大値をとり、その値は f ( 2 n + 1 ) = 2 n + 1 ( 1 - 1 n + 1 ) n よって、 0 ≤ | x | - P n ( x ) ≤ | x | ( 1 - | x | 2 ) n ≤ 2 n + 1 ( 1 - 1 n + 1 ) n < 2 n + 1 (証明終) コード(Wolfram Language, Jupyter) pn[n_, x_] := If[n == 0, 0, pn[n - 1, x] + (x^2 - pn[n - 1, x]^2) / 2] pn[0, x] 0 Table[pn[n, x], {n, 1, 10}] Simplify[%[[1;;5]]] Column[%] Flatten[ {Abs[x], Table[pn[n, x], {n, 1, 10}]} ] fs = %; Plot[fs, {x, -1, 1}] Plot[fs, {x, -1/2, 1/2}]