plot[{f=1+0.25*(550*(m-380)/3300/1000)},{m,380,5000}]