Épaississez les tracés pour l'impression
Utilisez un thème pour créer des tracés remplis pour l'impression en 3D.
In[1]:=
opts = {ImageSize -> 400, PlotRange -> All, PlotPoints -> 50};In[2]:=
Plot3D[Cos[x^2 + y^2]/(x^2 + y^2 + 1), {x, -4, 4}, {y, -4, 4},
Evaluate[opts],
RegionFunction ->
Function[{x, y, z}, Sqrt[x^2 + y^2] <= 4 && (x <= 0 || y >= 0)],
PlotTheme -> "FilledSurface"]Out[2]=
Épaississez les tracés à la place.
In[3]:=
Plot3D[Cos[x^2 + y^2]/(x^2 + y^2 + 1), {x, -4, 4}, {y, -4, 4},
Evaluate[opts],
RegionFunction ->
Function[{x, y, z}, Sqrt[x^2 + y^2] <= 4 && (x <= 0 || y >= 0)],
PlotTheme -> "ThickSurface"]Out[3]=
