We'll first determine the top speeds on the Straight Path and the Curved Path.
We'll first determine the top speeds on the Straight Path and the Curved Path.
Our speed function given in the problem tells us that the maximum attainable speed is 30 mph since the radius of curvature of a straight line is infinite.
Input := MaxLineMPH = Limit[speed[r], r -> Infinity]
Output = 30
On the turn we can go at most 17.286 mph.
Input := MaxTurnMPH = N[speed[30]]
Output = 17.286