Mathematica Tool 3

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

Needs["VectorFieldPlots`"]

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

Replace each of the "???"'s with the definitions of your three solutions and display the graphs of the solution functions on the slope field.

f[t_]:="???"
g[t_]:= "???"
h[t_]:= "???"
SolutionPlot=Plot[{f[t],g[t],h[t]},{t,-3,3},PlotStyle->{{Blue,Thickness[0.01]},{Blue,Thickness[0.01]},{Blue,Thickness[0.01]}},PlotRange->{{-3,3},{-20,20}},AspectRatio-> 1];
Show[Field,SolutionPlot]