In[]:=
Exit[]
In[]:=
τq=0.15;τθ=0.01;λ=7.76*
10
10
;μ=3.86*
10
10
;ρ=8954;ce=383;αt=1.78*
-5
10
;k=386;t0=293;m=(3λ+2μ)αt;ct=
2μ+λ
ρ
;​​tl=
k
ρce
2
ct
;​​ϵ=.0168008;m=1+τqs+
1
2
2
(τqs)
;n=(1+τθs);L=
1
s
;
A1=Simplify
-(-n
2
s
-ϵm-m)
n
;​​A2=Simplify
m
2
s
n
;​​M1=Simplify
1
2
2
2
A1
-4A2
+2A1
;​​M2=Simplify
1
2
-2
2
A1
-4A2
+2A1
;​​H11=1;H12=1;​​H21=
2
M1
2
M1
-
2
s
-1;H22=
2
M2
2
M2
-
2
s
-1;V1=Simplify
H22L
H11H22-H12H21
;​​V2=Simplify-
H22L
H11H22-H12H21
;
In[]:=
ite=For[y=0,y<=500,y++;x=.0+.01*y];
​​Fk=
L
2
M1
-
2
M2
*((
2
s
-
2
M1
)
-M1x
E
-(
2
s
-
2
M2
)
-M2x
E
);​​t=0.25​​s=
4.7+Imπ
t
;​​Gk=
500
∑
l=1
L
2
M1
-
2
M2
*((
2
s
-
2
M1
)
-M1x
E
-(
2
s
-
2
M2
)
-M2x
E
)*
4.7
t
(-1)
;​​Bk=
4.7
E
t
Re
1
2
Fk+Gk​​Printite,
Bk
4
10
;
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
General
:Further output of $RecursionLimit::reclim2 will be suppressed during this calculation.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
Out[]=
0.25
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
General
:Further output of $RecursionLimit::reclim2 will be suppressed during this calculation.
$RecursionLimit
:Recursion depth of 1024 exceeded during evaluation of 4.7+π(1+0.15s+0.01125
2
s
).
Out[]=
HoldBk=
4.7

Re
Fk
2
+Gk
t

Null
Bk
10000