3. Plot every 4th, every other, and every data point, and answer the same questions. The slope of each line segment is the average slope of the bicyclist in each interval.

We take every 4th data point and plot the position data - both unjoined and joined.

Input := 

sdata4 = Table[data[[i]],{i,1, Length[data],4}];

Input := 

ListPlot[sdata4,PlotStyle->{PointSize[.02]},
	PlotRange->{{-5,150},{-50,3000}},
	AxesLabel->{"time [sec]","pos [ft]"}]

Output =

-Graphics-

Input := 

ListPlot[sdata4,PlotStyle->{PointSize[.02]},
	PlotJoined->True,
	PlotRange->{{-5,150},{-50,3000}},
	AxesLabel->{"time [sec]","pos [ft]"}]

Output =

-Graphics-

We compute the average velocity over these time intervals and plot the velocity at the right hand side of each sub-interval.

Input := 

vdata4 = Table[{sdata4[[i+1]][[1]],
	(sdata4[[i+1]][[2]] - sdata4[[i]][[2]])/
	(sdata4[[i+1]][[1]] - sdata4[[i]][[1]])},
	{i,1, Length[sdata4]-1}];

Input := 

ListPlot[vdata4,PlotStyle->{PointSize[.02]},
	AxesLabel->{"time [sec]","vel [ft/sec]"}]

Output =

-Graphics-

Input := 

ListPlot[vdata4,PlotStyle->{PointSize[.02]},
	PlotJoined->True,
	AxesLabel->{"time [sec]","vel [ft/sec]"}]

Output =

-Graphics-

We take every 2nd data point and plot the position data - both unjoined and joined.

Input := 

sdata2 = Table[data[[i]],{i,1, Length[data],2}];

Input := 

ListPlot[sdata2,PlotStyle->{PointSize[.02]},
	PlotRange->{{-5,150},{-50,3000}},
	AxesLabel->{"time [sec]","pos [ft]"}]

Output =

-Graphics-

Input := 

ListPlot[sdata2,PlotStyle->{PointSize[.02]},
	PlotJoined->True,
	PlotRange->{{-5,150},{-50,3000}},
	AxesLabel->{"time [sec]","pos [ft]"}]

Output =

-Graphics-

We compute the average velocity over these time intervals and plot the velocity at the right hand side of each sub-interval.

Input := 

vdata2 = Table[{sdata2[[i+1]][[1]],
	(sdata2[[i+1]][[2]] - sdata2[[i]][[2]])/
	(sdata2[[i+1]][[1]] - sdata2[[i]][[1]])},
	{i,1, Length[sdata2]-1}];

Input := 

ListPlot[vdata2,PlotStyle->{PointSize[.02]},
	AxesLabel->{"time [sec]","vel [ft/sec]"}]

Output =

-Graphics-

Input := 

ListPlot[vdata2,PlotStyle->{PointSize[.02]},
	PlotJoined->True,
	AxesLabel->{"time [sec]","vel [ft/sec]"}]

Output =

-Graphics-

We take every data point and plot the position data - both unjoined and joined.

Input := 

sdataE = Table[data[[i]],{i,1, Length[data]}];

Input := 

sE = ListPlot[sdataE,PlotStyle->{PointSize[.02]},
		PlotRange->{{-5,150},{-50,3000}},
		AxesLabel->{"time [sec]","pos [ft]"}]

Output =

-Graphics-

Input := 

ListPlot[sdataE,PlotStyle->{PointSize[.02]},
	PlotJoined->True,
	PlotRange->{{-5,150},{-50,3000}},
	AxesLabel->{"time [sec]","pos [ft]"}]

Output =

-Graphics-

We compute the average velocity over these time intervals and plot the velocity at the right hand side of each sub-interval.

Input := 

vdataE = Table[{sdataE[[i+1]][[1]],
			(sdataE[[i+1]][[2]] - sdataE[[i]][[2]])/
			(sdataE[[i+1]][[1]] - sdataE[[i]][[1]])},
			{i,1, Length[sdataE]-1}];

Input := 

vEPlot = ListPlot[vdataE,PlotStyle->{PointSize[.02]},
			AxesLabel->{"time [sec]","vel [ft/sec]"}]

Output =

-Graphics-

Input := 

ListPlot[vdataE,PlotStyle->{PointSize[.02]},
	PlotJoined->True,
	AxesLabel->{"time [sec]","vel [ft/sec]"}]

Output =

-Graphics-