|
Tocno! Evo kako takve stvari mozes provjeriti u Mathematici...
[code:1]In[1]:=
CoefficientList[Series[Exp[x+x^2/2],{x,0,10}],x]
Out[1]=
{1, 1, 1, 2/3, 5/12, 13/60, 19/180, 29/630,
191/10080, 131/18144, 1187/453600}
In[2]:=
a[0]=a[1]=1; a[n_]:=a[n]=(a[n-1]+a[n-2])/n
In[3]:=
Table[a[n],{n,0,10}]
Out[3]=
{1, 1, 1, 2/3, 5/12, 13/60, 19/180, 29/630,
191/10080, 131/18144, 1187/453600}[/code:1]
Tocno! Evo kako takve stvari mozes provjeriti u Mathematici...
| Kod: | In[1]:=
CoefficientList[Series[Exp[x+x^2/2],{x,0,10}],x]
Out[1]=
{1, 1, 1, 2/3, 5/12, 13/60, 19/180, 29/630,
191/10080, 131/18144, 1187/453600}
In[2]:=
a[0]=a[1]=1; a[n_]:=a[n]=(a[n-1]+a[n-2])/n
In[3]:=
Table[a[n],{n,0,10}]
Out[3]=
{1, 1, 1, 2/3, 5/12, 13/60, 19/180, 29/630,
191/10080, 131/18144, 1187/453600} |
_________________
Vedran Krcadinac
Ljudi su razliciti, a nula je paran broj.
|
