plot[{f=1/(1-130*(n-380)/3300/1000)},{n,380,5000}]