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