plot[{f=(100+(x-218)*0.0137 )/100},{x,354,5000}]