direction_fields2.nb

RowBox[{graph1, =, RowBox[{PlotVectorField, [, RowBox[{RowBox[{{, RowBox[{1, ,, RowBox[{0.2, , x, , y}]}], }}], ,, {x, -5, 5}, ,, {y, -5, 5}}], ]}]}]

[Graphics:HTMLFiles/index_2.gif]

$RowBox[{sol, =, RowBox[{DSolve, [, RowBox[{RowBox[{{, RowBox[{RowBox[{y '[x], ==, RowBox[{0.2, ... , y[x], ,, x}], ]}]}] ysol[x_] = y[x]/.First[sol] ; graph2 = Plot[Evaluate[ysol[x]], {x, -4, 4}]$

$RowBox[{{, RowBox[{{, RowBox[{y[x], , RowBox[{RowBox[{-, 1.21971}], , RowBox[{, ^, RowBox[{(, RowBox[{0.1, , x^2}], )}]}]}]}], }}], }}]$

[Graphics:HTMLFiles/index_6.gif]

[Graphics:HTMLFiles/index_9.gif]

Created by Mathematica (May 20, 2006)