In[]:=
questionP21=HoldForm(8.99*10^(9))(1*10^(-9))(
2
(.5)
2+
2
(1.5)
)*1Sqrt[
2
(.5)
+
2
(1.5)
]​​valke=
Quantity[8.99
9
10
,"Newtons"]
2
Quantity["Meters"]
2
Quantity["Coulombs"]
​​convertC=Quantity
1
9
10
,"Coulombs"​​r3=Quantity[.5,"Meters"]^2​​r4=Quantity[1.5,"Meters"]^2​​r5=Quantity[.5,"Meters"]​​questionP21=HoldForm[(8.99*10^(9))((1*10^(-9))/(1.03)^2)]​​questionP21=HoldForm[((valke)((convertC)*2*r5/((r3)+(r4))))*((1/Sqrt[(r3)+(r4)]))]​​answerP21=SetPrecision[Divide[valke*convertC*2*r5,((r3)+(r4))*Sqrt[(r3)+(r4)]],3]​​TraditionalForm[Row[{SetPrecision[Inactivate[Divide[valke*convertC*2*r5,((r3)+(r4))*Sqrt[(r3)+(r4)]]],3],"",answerP21}]]​​Row[{questionP21,"",answerP21}]//TraditionalForm
Out[]=
8.99
9
10
(
9
10
(
2
0.5
2+
2
1.5
))
2
0.5
+
2
1.5
Out[]=
8.99×
9
10
2
m
N/
2
C
Out[]=
1
1000000000
C
Out[]=
0.25
2
m
Out[]=
2.25
2
m
Out[]=
0.5
m
Out[]=
8.99
9
10
9
10
2
1.03
Out[]=
valke(convertC2r5)
(r3+r4)
r3+r4
Out[]=
2.27
N/C
Out[]//TraditionalForm=
((
8.99×
9
10
2
m
N/
2
C
)×(
1.00×
-9
10
C
)×2.00×(
0.500
m
))((
0.250
2
m
+
2.25
2
m
)×Sqrt(
0.250
2
m
+
2.25
2
m
))
2.27
N/C
Out[]//TraditionalForm=
valke(convertC2r5)
(r3+r4)
r3+r4

2.27
N/C