We plot this rangeHill function and estimate its maximum range to be at around 3,000 feet when the catapult is moved back about 900 ft.

Input := 


Plot[rangeHill[k],{k,0,4000},

	AxesLabel->{"angle-a","range"}]

Output =


-Graphics-