wien.java

　19世紀にWienは、黒体輻射の曲線の最大値λmaxが次の式に従って
温度とともに変移することを実験的に観測した。

　　λmax = 2.90 × 10^-3 m K　　　　　(1)

　Planckは、エネルギーの量子化を行うと、

　　ρ(λ, T) = {8πhc/λ⁵ }dλ/[ exp (hc/λkT) - 1]　　　　　(2)

となることを示した。

　　　dρ/dλ=0　　　　　　　　(3)

とおくと、微分して、式

　　　e^-x + x/5 = 1　　　　　　(4)

が、最大値を与えることが示される。

　ここで、 x = hc/λkT

　式(4)の方程式を解く一つの方法は、十分に小さな x の値を選び、方程式を
満たすまで x の値を少しずつ増やしていくものである。

　x の初期値を１とする。（ e^-１ + １/5 < 1　である。）

---




実行結果

回数	ｘ	e-x + x/5
1	1	.567879441171442
2	1.1	.55287108369808
3	1.2	.541194211912202
39	4.8	.96822974704902
40	4.9	.987446583070924
41	5	1.00673794699909

---