Mathematica Tool 6

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

Needs["VectorFieldPlots`"]

YPrime =-2 y ;  
Field=VectorFieldPlot[((#)/(Norm[#]))&[{1,YPrime}],{t,-1,2},{y,-1,4},PlotRange->{{-1,2},{-1,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,0,2},PlotStyle->{Blue,Thickness[0.01]},PlotRange->{{-1,2},{-1,4}},AspectRatio-> 1]

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

Show[Field,SolutionPlot]