A straight four-foot wide path going up a hill must be paved to a point and then continue with steps. The paving can only be done on portions of the path that have a slope of magnitude less than 1/3. The rest of the hill must be furnished with steps. Each step will rise exactly 8 inches high. Surveyors have gathered the following elevation data along the path.
Input :=
PathData = {{0,50},{20,47},{40,43},{60,38},{80,32},
{100,25},{120,17},{140,8},{160,6},{180,2},{200,0}};
Input :=
TableForm[
PathData,
TableHeadings ->
{None,{"Dist from top of hill [feet]",
"hill height [feet]"}},
TableAlignments -> Center]
Output =
Dist from top of hill [feet] hill height [feet]
0 50
20 47
40 43
60 38
80 32
100 25
120 17
140 8
160 6
180 2
200 0
Input := p1 = ListPlot[PathData, PlotStyle -> PointSize[.02]]

Output = -Graphics-
All relationships are in feet. For example, the ordered pair (60,38) represents a horizontal distance of 60 feet from the top of the hill, and 38 vertical feet from the bottom.