plot[{f=1/((100-(z-354)*0.01515)/100)},{z,354,5000}]