Mathematica Tool 1

This Mathematica notebook is designed to be used with Activity 3 in Section 3.3

Needs["VectorFieldPlots`"]

Enter th value of g in feet per second per second

g=32.17;

Here is the slope field for this differential equation.

Slopefield=VectorFieldPlot[#/Norm[#]&[{1,g }],{t,0,5},{v,0,200},Axes->True,ColorFunction->Hue,AspectRatio-> 1]

Enter your formula for a solution to v(t).
(Remember that all constants must be given explicitly in the definition.)

v[t_]:="???"

Plot the graph on the slope field.

SolutionCurve=Plot[v[t],{t,0,5},PlotStyle->Thickness[0.01],PlotRange->{{0,5},{0,200}}];
Show[Slopefield,SolutionCurve]