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