plot(min(min(x, 2000) + 0.2*max(x-2000, 0), 2400)*1.19 , x=0..5000)