New in Wolfram Mathematica 7: Differential & Difference Roots ◄ previous | next ►
Plot DifferentialRoot Functions
The real part of a DifferentialRoot function.
In[1]:=

Click for copyable input
DSolve[{u'''[x] + 2 x^2 u'[x] + (2 x + 1) u[x] == Sin[x], u[0] == 0, 

  u'[0] == 1, u''[0] == 0}, u, x]
Out[1]=



In[2]:=

Click for copyable input
DSolve[{u'''[x] + 2 x^2 u'[x] + (2 x + 1) u[x] == Sin[x], u[0] == 0, 

  u'[0] == 1, u''[0] == 0}, u, x];

Plot3D[Evaluate[Re[u[x + I y] /. First[%]]], {x, -3, 3}, {y, -3, 3}, 

 Mesh -> None, 

 PlotStyle -> Directive[Opacity[0.8], Specularity[White, 30], Yellow]]
Out[2]=