The graphs

Remark: The assignment requests that the curve fit be SMOOTH. This was emphasized to be more realistic. As a result, students were told to do point plots and connect the dots "by hand" in a smooth fashion. We show both smooth and not smooth below.

Input := 


DistancePoints =

	Table[{time[[i]], distance[[i]]}, {i, 1, 76}];

VelocityPoints =

	Table[{time[[i]], velocity[[i]]}, {i, 1, 76}];

Input := 


ListPlot[DistancePoints,

	PlotJoined -> True,

	AxesLabel -> {"t [min]", "distance [miles]"},

	PlotLabel -> "Jagged Distance Graph"]

Output =


-Graphics-

Input := 


ListPlot[VelocityPoints,

	PlotJoined -> True,

	AxesLabel -> {"t [min]", "vel [mph]"},

	PlotLabel -> "Jagged Velocity Graph"]

Output =


-Graphics-

Input := 


DistFunc = Interpolation[DistancePoints];

VelFunc = Interpolation[VelocityPoints];

Input := 


Plot[DistFunc[t], {t, 0, 18.75},

	AxesLabel -> {"t [min]", "distance [miles]"},

	PlotLabel -> "Smooth Distance Graph"]

Output =


-Graphics-

Input := 


Plot[VelFunc[t], {t, 0, 18.75},

	AxesLabel -> {"t [min]", "vel [mph]"},

	PlotLabel -> "Smooth Velocity Graph",

	PlotRange -> {0, 80}]

Output =


-Graphics-