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