In[]:=
Prova1=-
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
5
1000
,wel10,wel20,wel30​​
Out[]=
-
4915200000000000000000000000105A
81
2
wel4
125
-
219
2
π
2
wel4
200000000
+
4
π
2
wel4
8000000000000
-105A
81
2
wel4
125
-
579
2
π
2
wel4
200000000
+
29
4
π
2
wel4
16000000000000
-
6
π
2
wel4
2560000000000000000
Cos
π
200
-
1
200
π
6
π
2
wel4
320000000000000000
+420A
99
2
wel4
1000
-
27
2
π
2
wel4
200000000
+
3
4
π
2
wel4
64000000000000
Sin
π
200

7
7
π
In[]:=
Prova3=N[ReplaceAll[SetPrecision[Prova2,20],{A1,wel4-1}],30]
Out[]=
1.1×
7
10
In[]:=
Prova4=N[ReplaceAll[Prova2,{A1,wel4-1}],30]
Out[]=
1.11222195927627387340842172023×
7
10
In[]:=
Prova5=ReplaceAllProva1,L1,Ey1,fr1,M1,x10,x2
5
1000
,wel10,wel20,wel30,wel4-1
Out[]=
-
4915200000000000000000000000105A
81
125
-
219
2
π
200000000
+
4
π
8000000000000
-105A
81
125
-
579
2
π
200000000
+
29
4
π
16000000000000
-
6
π
2560000000000000000
Cos
π
200
-
1
200
π
6
π
320000000000000000
+420A
99
1000
-
27
2
π
200000000
+
3
4
π
64000000000000
Sin
π
200

7
7
π
In[]:=
Prova6=N[ReplaceAll[Prova5,{A1}],30]
Out[]=
1.11222195927627387340842172023×
7
10