In[]:=
Prova1=K21[[1,1]]​​
Out[]=
-
1
35
7
fr
7
π
12
(x1-x2)
6Ey105AL(25920
6
L
2
(-2wel1+2wel3+(wel2+wel4)(x1-x2))
-24
2
fr
4
L
2
π
(468
2
wel1
+468
2
wel3
-12wel1(78wel3+(51wel2+31wel4)(x1-x2))+12wel3(51wel2+31wel4)(x1-x2)+(193
2
wel2
+250wel2wel4+73
2
wel4
)
2
(x1-x2)
)
2
(x1-x2)
+4
4
fr
2
L
4
π
(18
2
wel1
+18
2
wel3
-6wel1(6wel3+(9wel2+2wel4)(x1-x2))+6wel3(9wel2+2wel4)(x1-x2)+(29
2
wel2
+19wel2wel4+2
2
wel4
)
2
(x1-x2)
)
4
(x1-x2)
-
6
fr
6
π
2
wel2
8
(x1-x2)
)Cos
frπx1
L
-105AL(25920
6
L
2
(-2wel1+2wel3+(wel2+wel4)(x1-x2))
-24
2
fr
4
L
2
π
(468
2
wel1
+468
2
wel3
-12wel1(78wel3+(31wel2+51wel4)(x1-x2))+12wel3(31wel2+51wel4)(x1-x2)+(73
2
wel2
+250wel2wel4+193
2
wel4
)
2
(x1-x2)
)
2
(x1-x2)
+4
4
fr
2
L
4
π
(18
2
wel1
+18
2
wel3
-6wel1(6wel3+(2wel2+9wel4)(x1-x2))+6wel3(2wel2+9wel4)(x1-x2)+(2
2
wel2
+19wel2wel4+29
2
wel4
)
2
(x1-x2)
)
4
(x1-x2)
-
6
fr
6
π
2
wel4
8
(x1-x2)
)Cos
frπx2
L
+frπ(x1-x2)
6
fr
M
6
π
(18
2
wel1
-36wel1wel3+18
2
wel3
+3wel1(wel2+wel4)(x1-x2)-3wel3(wel2+wel4)(x1-x2)+(8
2
wel2
-5wel2wel4+8
2
wel4
)
2
(x1-x2)
)
6
(x1-x2)
+420A
2
L
(360
4
L
(36
2
wel1
+36
2
wel3
-8wel1(9wel3+(5wel2+4wel4)(x1-x2))+8wel3(5wel2+4wel4)(x1-x2)+(11
2
wel2
+18wel2wel4+7
2
wel4
)
2
(x1-x2)
)-6
2
fr
2
L
2
π
(54
2
wel1
+54
2
wel3
-3wel1(36wel3+(31wel2+13wel4)(x1-x2))+3wel3(31wel2+13wel4)(x1-x2)+(36
2
wel2
+35wel2wel4+7
2
wel4
)
2
(x1-x2)
)
2
(x1-x2)
+
4
fr
4
π
wel2(-3wel1+3wel3+(3wel2+wel4)(x1-x2))
5
(x1-x2)
)Sin
frπx1
L
+420A
2
L
(360
4
L
(36
2
wel1
+36
2
wel3
-8wel1(9wel3+(4wel2+5wel4)(x1-x2))+8wel3(4wel2+5wel4)(x1-x2)+(7
2
wel2
+18wel2wel4+11
2
wel4
)
2
(x1-x2)
)-6
2
fr
2
L
2
π
(54
2
wel1
+54
2
wel3
-3wel1(36wel3+(13wel2+31wel4)(x1-x2))+3wel3(13wel2+31wel4)(x1-x2)+(7
2
wel2
+35wel2wel4+36
2
wel4
)
2
(x1-x2)
)
2
(x1-x2)
+
4
fr
4
π
wel4(-3wel1+3wel3+(wel2+3wel4)(x1-x2))
5
(x1-x2)
)Sin
frπx2
L

In[]:=
Prova2=ReplaceAll[Prova1,{L1,Ey1,fr1,M1,x10,x20.005,wel10,wel20,wel30}]​​
Out[]=
-2.32485×
23
10
(105A(0.+0.648
2
wel4
+2.43523×
-7
10
(0.+0.00005
2
wel4
)-0.00592176(0.+0.001825
2
wel4
))-104.987A(0.648
2
wel4
+2.43523×
-7
10
(0.+0.000725
2
wel4
)-0.00592176(0.+0.004825
2
wel4
))-0.015708(1.50217×
-11
10
(0.+0.0002
2
wel4
)+6.59707A(4.56605×
-12
10
2
wel4
+360(0.+0.000275
2
wel4
)-0.00148044(0.+0.0009
2
wel4
))))
In[]:=
Prova3=ReplaceAll[SetPrecision[Prova2,32],{A1,wel4-1}]
Out[]=
1.376891888134681×
9
10
In[]:=
Prova4=ReplaceAll[Prova2,{A1,wel4-1}]
Out[]=
1.7128×
9
10
In[]:=
Prova5=ReplaceAll[Prova1,{L1,Ey1,fr1,M1,x10,x20.005,wel10,wel20,wel30,wel4-1}]
Out[]=
-2.32485×
23
10
(-0.015708(3.00434×
-15
10
+0.653101A)+0.0102589A)
In[]:=
Prova6=ReplaceAll[Prova5,{A1}]
Out[]=
-1.591×
9
10