Comparación

In[56]:=

Table[{t, numsol[t], ansol[t], Abs[numsol[t] - ansol[t]]}, {t, 0, 0.5, 0.1}]

Out[56]=

{{0, 1., 1, 0.}, {0.1, 1.02223, 1.02223, 1.84722*10^-8}, {0.2, 1.10009, 1.10009, 2.02585*10^-8 ... 8, 3.40922*10^-7}, {0.4, 1.52686, 1.52686, 2.19585*10^-7}, {0.5, 1.96304, 1.96304, 3.89627*10^-8}}

In[57]:=

Print["\nt       numérico     analítico   diferencia\n"] ; Print[TableForm[%%]]

\nt       numérico     analítico   diferencia\n

0 1. 1 0.
0.1 1.02223 1.02223 1.84722*10^-8
0.2 1.10009 1.10009 2.02585*10^-8
0.3 1.25668 1.25668 3.40922*10^-7
0.4 1.52686 1.52686 2.19585*10^-7
0.5 1.96304 1.96304 3.89627*10^-8

Created by Mathematica  (August 6, 2004)