In[]:=
a=10;​​b=8;​​d=9;​​Results=List[]​​
ξ
x
={{1.252,2.475,3.595}};​​
ξ
y
={{1.170,2.279}};​​
ξ
z
={{1.306,2.596,3.837,4.906}};​​
E
x
[i_]:=(2*
ξ
x
[[1,i]]^2*ℏ^2)/(m*a^2);​​
E
y
[j_]:=(2*
ξ
y
[[1,j]]^2*ℏ^2)/(m*b^2);​​
E
z
[k_]:=(2*
ξ
z
[[1,k]]^2*ℏ^2)/(m*d^2);​​For[i=1,i<4,i++,For[j=1,j<3,j++,For[k=1,k<5,k++,Print[
E
i,j,k
," = ",
E
x
[i]+
E
y
[j]+
E
z
[k]]]]];​​
Out[]=
{}

1,1,1
=
0.116243
2
ℏ
m

1,1,2
=
0.240529
2
ℏ
m

1,1,3
=
0.437648
2
ℏ
m

1,1,4
=
0.66842
2
ℏ
m

1,2,1
=
0.235772
2
ℏ
m

1,2,2
=
0.360058
2
ℏ
m

1,2,3
=
0.557178
2
ℏ
m

1,2,4
=
0.78795
2
ℏ
m

2,1,1
=
0.207405
2
ℏ
m

2,1,2
=
0.331691
2
ℏ
m

2,1,3
=
0.528811
2
ℏ
m

2,1,4
=
0.759583
2
ℏ
m

2,2,1
=
0.326935
2
ℏ
m

2,2,2
=
0.45122
2
ℏ
m

2,2,3
=
0.64834
2
ℏ
m

2,2,4
=
0.879112
2
ℏ
m

3,1,1
=
0.343373
2
ℏ
m

3,1,2
=
0.467659
2
ℏ
m

3,1,3
=
0.664779
2
ℏ
m

3,1,4
=
0.895551
2
ℏ
m

3,2,1
=
0.462903
2
ℏ
m

3,2,2
=
0.587188
2
ℏ
m

3,2,3
=
0.784308
2
ℏ
m

3,2,4
=
1.01508
2
ℏ
m