Math. 350-01, Fall, 2002 Final Exam Answers, Problem 1

<< Graphics`PlotField`

f[y_]  =  y^3  +  4  y^2  +  y  -  6

Plot[f[y],  {y, -5, 5}]

PlotVectorField[{1, f[u]}, {t , -1, 1},  {u, -4, 2},  
      Axes  -> True, ScaleFunction -> (1&),  AspectRatio  ->  1]