Mathematica Tool 2

This Mathematica notebook is designed for use with Exercise 7 in Section 5.1.

Enter and plot the altitude data.

altitude={1295.5,1297.0,1296.0,1295.0,1292.1,1290.2,1283.5,1278.2,1274.4,1261.9,1253.2,1242.6,1234.0,1216.7,1199.9,1184.0,1169.1,1151.8,1137.4,1124.9};
AltitudeData=Partition[Riffle[Range[Length[altitude]]-1,altitude],2];
Plot1 = ListPlot[AltitudeData,AxesLabel->{"Time (sec)","Altitude (meters)"},PlotRange->{{0,20},{1100,1300}}]

Choose values for the slope m and the y-intercept b to make the line fit the constant-velocity opart of the data. (The given values are not correct.)

m= -2;
b= 1200;
Plot2=Plot[m t+b,{t,0,240},PlotStyle->{Red,Thickness[0.01]},PlotRange->{{0,20},{11,1300}}];
Show[Plot1,Plot2]

((3600 m)/1609)//N