In[]:=
H0=-((37π)/48469710106800000000)+(4πSin[t(1.9291)*10^-19])/t
Out[]=
-+
37π
48469710106800000000
4πSin[1.9291×t]
-19
10
t
In[]:=
(*Thisworks.*)(t/.FindRoot[H0,{t,356.25*3600*24*10^10}])/(356.25*3600*24)
Out[]=
4.27931×
10
10
In[]:=
(*Thisfails.*)H0=-((37π)/48469710106800000000)+(4πSin[t(1.9291±0.0005)*10^-19])/t
Out[]=
-+
37π
48469710106800000000
4πSin
t(1.9291±0.0005)
10000000000000000000
t
In[]:=
(t/.FindRoot[H0,{t,356.25*3600*24*10^10}])/(356.25*3600*24)
-18
10
-17
10
17
10
10
10
-18
10
-17
10
17
10
10
10
-18
10
-17
10
17
10
10
10
-18
10
-17
10
17
10
10
10
-18
10
-17
10
17
10
10
10
Out[]=
3.24886×(t/.FindRoot[H0,{t,356.25×3600×24}])
-8
10
10
10
