| Mathematica 5.0 |
Mathematica 5.1, 5.2 |
In[1]:= f /: Series[f[x_], {x_, 0, n_}] := g[n] In[2]:= Series[f[x], {x, 0, 2}] Out[2]= g[2] In[3]:= Series[1 + f[x], {x, 0, 2}] Out[3]= 1 + g[2] |
In[1]:= f /: Series[f[x_], {x_, 0, n_}] := g[n] In[2]:= Series[f[x], {x, 0, 2}] Out[2]= g[2] In[3]:= Series[1 + f[x], {x, 0, 2}] 2 f''[0] x 3 Out[3]= (1 + f[0]) + f'[0] x + --------- + O[x] 2 |
| In[1]:=
<<HypExp` In[2]:= Series[3 e+ 1/e Hypergeometric2F1[1+e,1-2 e,2+3 e,x],{e,0,0}] 2 Log[1 - x] -3 Log[1 - x] 2 Log[1 - x] 3 PolyLog[2, x] Out[2]= -(----------) + (------------- - ------------- - ---------------) + O[e] x e x x x |