87 Rb的S态原子能级图

87Rb“I S1 2态尨巕擻级图

l 0; 电巕揑轨摴妏动検

s 1 2; 电巕揑帺慁妏动検

i 3 2; Π动検

j 1 2; 电巕揑总妏动検

n Sum 2 x 1, x,Abs i j ,i j ; Λ虑妀帺慁时揑擻検简涹搙

g 1 j j 1 l l 1 s s 1

2 j j 1

; gj

∆ y_,z_ : If y z,1,0 ; 义堦Delta”

H1 ∆ F,F1 ∆ mF,mF1 1

2

F F 1 i i 1 j j 1 ;

S1

∆ mi mj,mF 2 F 1 i j F i mi j mj F mF F mF F i j 1

F i j F i j i mi j mj 1 2 Sum 1 ^ i mi t

i mi t F j mi t t F mF t i mi t j F mi t ,

t,Max 0,F j mi ,Min F mF,i mi ; C GŒn

S2 ∆ mi mj,mF1 2 F1 1 i j F1 i mi j mj F1 mF1 F1 mF1 F1 i j 1 F1 i j F1 i j i mi j mj 1 2

Sum 1 ^ i mi t i mi t F1 j mi t

t F1 mF1 t i mi t j F1 mi t ,

t,Max 0,F1 j mi ,Min F1 mF1,i mi ; C GŒn

H2 Sum S2 S1 mj, mi, i,i , mj, j,j ;

A Table 1.4 10^ 3 g

B H2 3.417 H1,

F,Abs i j ,i j , mF, F,F , F1,Abs i j ,i j , mF1, F1,F1 ;

H Partition Flatten A ,n ; 顿検嵼耦崌昞徾壓揑嬮阵昞帵

Print H MatrixForm,"™顿検嵼耦崌昞徾壓揑嬮阵" ;

a Eigenvalues H ; 顿検揑杮惇值

Print a MatrixForm,"™顿検揑杮惇值" ;

SetOptions Plot,Frame True,FrameLabel "B Gauss ","E h GHz " ,

PlotRange 0,5000 , 10,10 ,AxesOrigin 0, 10 ;

Plot a, B,0,5000

4.27125 0.0007B0.0.0.0. 0.00121244B0.0.0.

0. 4.271250.0.0.0. 0.0014B0.0.

0.0. 4.27125 0.0007B0.0.0.0. 0.00121244B0.

0.0.0. 2.56275 0.0014B0.0.0.0.

0. 0.00121244B0.0.0. 2.56275 0.0007B0.0.0.

0.0. 0.0014B0.0.0. 2.562750.0.

0.0.0. 0.00121244B0.0.0. 2.56275 0.0007B0.

0.0.0.0.0.0.0. 2.56275

2.56275 0.0014B

2.56275 0.0014B

0.5 1.7085

0.5 1.7085

0.5 1.7085 46.7036 0.0191352B 7.84 10 6B2

0.5 1.7085 46.7036 0.0191352B 7.84 10 6B2

0.5 1.7085 46.7036 0.0191352B 7.84 10 6B2

0.5 1.7085 46.7036 0.0191352B 7.84 10 6B2

顿検揑杮惇值

010002000

300040005000 10 5

05

10

B Gauss E h G H z 2 87 Rb“I S 态尨巕擻级图.nb