Plot[(0.06*x+22)*(1+y/1500),{x,0,3000},{y,0,1500}]