Plot3D[(472,5+x)*(101,8+y), {x, 0, 500}, {y, 0, 20}]