Mathematica Tool 7

This Mathematica notebook is designed to be used with Checkpoint 5 in Section 3.1

Needs["VectorFieldPlots`"]

YPrime =-3t ;  
Field=VectorFieldPlot[((#)/(Norm[#]))&[{1,YPrime}],{t,-3,3},{y,-4,4},PlotRange->{{-3,3},{-4,4}}, Axes->True,ColorFunction->Hue,AspectRatio->1,PlotPoints->20]

Enter the definition of your solution function and graph it here

y[t_]:="???"
SolutionPlot=Plot[y[t],{t,-3,3},PlotStyle->{Blue,Thickness[0.01]},PlotRange->{{-3,3},{-4,4}},AspectRatio-> 1]

Display both the slope field and function of the graph here.

Show[Field,SolutionPlot]