plot(H = 100/(600*.62*.76/(600+(3.87*R/4)^0.8)), R=0..8900)