In[]:=
l=0.1;sigma=0.006;B=0.01;k=60;​​h=
m*l*
E
0
2*a
;m=0.1;l=0.1;
E
0
=
2
9
*sigma;n=
B
a
2;a=
m*
2
l
3
;​​
A
max
=
l*h
Sqrt
2
2
k
p
-1
+4*
2

n
p


;​​​​
A
n0
=
l*h
Sqrt
2
2
k
p
-1
+4*
2

0
p


;​​
A
n2
=
l*h
Sqrt
2
2
k
p
-1
+4*
2

30
p


;​​
A
n3
=
l*h
Sqrt
2
2
k
p
-1
+4*
2

60
p


;​​Plot[{
A
max
,
A
n0
,
A
n2
,
A
n3
},{p,0,200},PlotStyle{{Thick},{Dashed},{Dashed},{Dashed}},AxesLabel{p,A},PlotRange{0,0.007},PlotLegendsLineLegend[{n=15,n=0,n=30,n=60}]]​​​​
Out[]=
15
0
30
60