In[]:=
m=0.05;B=0.007;sigma=0.007;l=0.08;​​k=
6*B
m*
2
l
;h=
m*l*
E
0
2*a
;
E
0
=
2
9
*sigma;a=
m*
2
l
3
;
n
1
=
B
a
2;
n
0
=0;
n
2
=2*
n
1
;
n
3
=
n
2
*2;​​
A
infinity
=
1
3
*sigma;
A
rez
=
2
3
*sigma;​​
p
*
=
2
k
Sqrt
2
k
-2*
2
n
0

;​​
A
max
=
A
infinity
Sqrt
2
2
k
p
-1
+4*
2
n
1
p

;​​
A
n0
=
A
infinity
Sqrt
2
2
k
p
-1
+4*
2
n
0
p

;​​
A
n2
=
A
infinity
Sqrt
2
2
k
p
-1
+4*
2
n
2
p

;​​
A
n3
=
A
infinity
Sqrt
2
2
k
p
-1
+4*
2
n
3
p

;​​​​Plot{Subscript[A,max],Subscript[A,n0],Subscript[A,n2],Subscript[A,n3]},{p,0,550},PlotStyle{{Thick},{Dashed},{Dashed},{Dashed}},AxesLabelp[c^-1],A[м],PlotRange{0,0.007},PlotLegendsLineLegend[{Subscript[n,1],Subscript[n,0],Subscript[n,2],Subscript[n,3]}],​​Epilog​​{{Blue,Dashed,Line[{{pmax,0},{pmax,maxA}}],Line[{{0,maxA},{pmax,maxA}}],PointSize[Medium],Point[{pmax,maxA}],Text["
A
max
",{pmax,maxA}+{15,0.05*maxA}],{Red,Dashed,Line[{{k,0},{k,Subscript[A,rez]}}],Line[{{0,Subscript[A,rez]},{k,Subscript[A,rez]}}],PointSize[Medium],Point[{k,Subscript[A,rez]}],Text["
A
rez
",{k,Subscript[A,rez]}+{-25,0.05*maxA}]}}}
Out[]=
32.8125
0
65.625
131.25