wp=1.256*
14
10
;​​wpe=6.8*
15
10
;​​rc=1*
-6
10
;​​n=8*
-4
10
;​​wpep=wpe/wp;​​​​​​w2=
l1*wp
x*wpe
;​​w3=
l1
x
;​​m=9.1*
-28
10
;​​c=3*
10
10
;​​e1=3*
9
10
*1.6*
-19
10
;​​pi=3.147;​​ne=1.8*
22
10
;​​vg=2.9*
10
10
;​​ao=0.9;​​f=1;​​​​to=200*
-15
10
;​​t=400*
-15
10
;​​z=30*
-4
10
;​​zo=20*
-4
10
;​​td=(t-z/vg);​​t1=td/to;​​b=0.09;​​​​bw=
2*b*x*wpe
l1
;​​nu=
12
10
;​​l=1+bw*td;​​l1=1+
b*x*wpe*td
l1
;​​d=
ao*c*l1
x*wpe*l^2-
0*
2
(w3)
*p
3
+
I*nu
x*wpe
*l*l1
;​​d1=
9*d
16*rc
;​​​​p=1-d1;​​​​b1=l^2-
2
(w3)
*p
3
+
I*nu
x*wpe
*l*l1;​​b2=4*l^2-
2
(w3)
*p
3
+
2*I*nu
x*wpep
*l*l1;​​b3=9*l^2-
2
(w3)
*p
3
+
3*I*nu
x*wpe
*l*l1;​​b4=l^2+
I*nu
x*wpe
*l*l1;​​b5=4*l^2+
2*I*nu
x*wpe
*l*l1;​​b6=9*l^2+
3*I*nu
x*wpe
*l*l1;​​f=1;​​​​e2=1-
wp^2
wpe^2
*
l1^2
x^2*b5
-
4*pi*n*w3^2
3*b2
;​​​​​​k1=
x*l*wpe
l1*c
*
1-
2
w2
b4
-
4*pi*n*w3^2
3*b1
;​​​​​​k3=
3*x*l*wpe
l1*c
*
1-
2
w2
b6
-
4*pi*n*w3^2
3*b3
;​​​​ko=k3-3*k1;​​s1=
6*pi*
2
ao
*
2
l
*n*
2
w3
s*b1*b2
*
1
b3
+
(2+ko/k1)
3*e2
*
1
b1
*1-
2
w2
b5
+
2
w2
b4*b5
*
1
2
f
*
-
2
r1
2
f

*
-
2
t1


;​​s2=
3*
2
ao
*l*
2
w2
2*s*b5
*
3*l
b4*b6
+
(2+ko/k1)
l*e2*b4
*1-
4*pi*n*
2
w3
3*b2
+
4*pi*(2+ko/k1)*n*
2
w3
3*e2*b1*b2*l
*
1
2
f
*
-
2
r1
2
f

*
-
2
t1


;​​r1=0;​​a31=Abs[s1+s2];​​q1=Plot[a31,{x,1,5},PlotStyle{Orange,Thickness[0.006]},AxesLabel->{r1,a3a0},PlotRange->All]​​
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of
3.35222x
l1
.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of
3.35222x
l1
.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of
3.35222x
l1
.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of
3.35222x
l1
.
Out[]=
In[]:=
1.5892008275862065`*^15
Out[]=
1.5892×
15
10
-
In[]:=
1.0902556917988752`*^-10
Out[]=
1.09026×
-10
10
In[]:=
(2.3963950688393993`*^-9-3.4723738271782435`*^-12)
-
2
r1

In[]:=
(2.3963950688393993`*^-9-3.4723738271782435`*^-12)
-
2
r1

Out[]=
(2.3964×
-9
10
-3.47237×
-12
10
)
-
2
r1

In[]:=
(-8.343372432322578`*^-7+6.634886596684452`*^-8)
-
2
r1

Out[]=
(-8.34337×
-7
10
+6.63489×
-8
10
)
-
2
r1

$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of -
746.681
(4.86808+0.0976271)-373.491l1
.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of -
746.681
(4.86808+0.0976271)-373.491l1
.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of -
746.681
(4.86808+0.0976271)-373.491l1
.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of -
746.681
(4.86808+0.0976271)-373.491l1
.
Out[]=