水素の2s軌道の波動関数の積分

水素原子の2s軌道の波動関数
ψ2s=(2-r/a0)exp(-r/2a0)
10 ' Program atom1
20 PRINT "水素の2s軌道のSimpson則による積分"
40 DEF FNA(X) = X*X*(2-X)*(2-X)*EXP(-X) '**** define function
50 PRINT "積分範囲と分割数を入力しなさい"
60 INPUT R1, R2, N ' 例 0, 2, 20
65 D = (R2-R1)/N : H = D/2 : S = 0
70 FOR R = R1+D TO R2-H STEP 2*D
80 S = S + 4*FNA(R) + 2*FNA(R+D)
90 NEXT R
100 P = D/3*(FNA(R1) + S - FNA(R2))/8 ' 1/8は規格化係数
110 PRINT "数値積分による結果 ", P
120 END

atom1.bas


問題 2s軌道の内側の殻と外側の殻において電子を見出す確率をそれぞれ求め、
比較しなさい。
について、核からの動径距離で r1 < r < r2の間に電子を見出す確率を求める
プログラムを作成しなさい。
規格化係数は1/8としなさい。
2002 Copyright 木原 寛