Mathematica Tool 2

This Mathematica notebook is designed for use with Activity 2 in Section 5.2

g=32.2;
k=52.6;

Enter the symbolic solution and graph this solution.

V[t_]:="???"
Vplot=Plot[V[t],{t,0,0.2},PlotStyle->{Green,Thickness[0.01]}]

The following steps carry out the iteration and compare the numberical and symbolic solutions.

(Subscript[v, 0])=0;
n=10;
Δ=(0.2/n);

A=Range[n];
For[i=1,i<n+1,i++,If[i==1,A[[i]]=(Subscript[v, 0]),A[[i]]=A[[i-1]]+(g- k A[[i-1]]) Δ]]
Solution=Partition[Riffle[(Range[n]-1) Δ,A],2];
solPlot=ListPlot[Solution,PlotStyle->{Blue,PointSize[0.02]},AxesLabel->{"t","v"}];
Show[Vplot,solPlot]