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