Mathematica Tool 5

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

Needs["VectorFieldPlots`"]

YPrime =0.25 P ;  
Field=VectorFieldPlot[((#)/(Norm[#]))&[{1,YPrime}],{t,-1,2},{P,0,4}, Axes->True,AxesLabel->{"t","P(t)"},ColorFunction->Hue,AspectRatio->1]

-

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

f[t_]:="???"
g[t_]:= "???"

SolutionPlot=Plot[{f[t],g[t]},{t,-1,2},PlotStyle->{{Blue,Thickness[0.01]},{Blue,Thickness[0.01]},{Blue,Thickness[0.01]}},PlotRange->{{-1,2},{0,4}},AspectRatio-> 1];
Show[Field,SolutionPlot]