wxplot3d ([[(x+y)/5,[x, -5, 5],[y, -5, 5]],
5*sin((x+y)/3), [x, -5, 5], [y, -5, 5]],
[x, -5, 5], [y, -5, 5])$
plot3d (log (x^2*y^2), [x, -2, 2], [y, -2, 2],[grid, 29, 29],
[palette, [gradient, red, orange, yellow, green]],
color_bar, [xtics, 1], [ytics, 1], [ztics, 4],
[color_bar_tics, 4])$