Color automático 

El tema Background ajusta el color del gráfico y los ejes con base en el fondo de color del cuaderno. Proporcionando un color con el tema, establece el color de fondo de la visualización, lo que anula el color del cuaderno.

In[1]:=

X Row[Table[ Plot3D[2 Sin[x y], {x, -3, 3}, {y, -2, 2}, PlotTheme -> {"Background", c}], {c, {Orange, Hue[.65, .45, 1], Hue[.5, 1, .5]}}]]

Out[1]=

Ejemplos de color generados para varios colores de fondo.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[2]:=

X Grid[Partition[ Table[Plot3D[2 Sin[x y], {x, -3, 3}, {y, -2, 2}, Mesh -> None, BoundaryStyle -> None, ImageMargins -> 20, PlotTheme -> {"Minimal", {"Background", Hue[h, .5, .8]}}, ImageSize -> 150], {h, .07, .9, .1}], 3], Spacings -> {0, 0}]

Out[2]=