Activity 3.3.4

Andy Long, Spring, 2024

Clear[h]
v[h_]:=h(15-2h)(10-2h)
Solve[v[h]==0,h]
Plot[v[h],{h,0,5}]

Solve[v'[h]==0,h] 
N[%]

v[1.9618739074461744]

(50-Sqrt[700])/12.0