Cor automática 

O estilo Background calcula cores de gráficos e eixos com base na cor de fundo do notebook. Fornecendo-se uma cor junto ao estilo, a cor de fundo da visualização é definida em substituição à cor do notebook.

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]=

Exemplos de cores geradas para várias cores de fundo.

mostre o input completo de Wolfram Languageoculte o input

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]=