plot[{f=(130*(k-340)/3300+1000)/1000},{k,340,5000}]