印刷用にプロットに厚みを持たせる
テーマを使って3D印刷用に塗潰しプロットを作る.
In[1]:=
![Click for copyable input](assets.ja/thicken-plots-for-printing/In_32.png)
opts = {ImageSize -> 400, PlotRange -> All, PlotPoints -> 50};
In[2]:=
![Click for copyable input](assets.ja/thicken-plots-for-printing/In_33.png)
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]=
![](assets.ja/thicken-plots-for-printing/O_14.png)
代りにプロットを厚くする.
In[3]:=
![Click for copyable input](assets.ja/thicken-plots-for-printing/In_34.png)
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]=
![](assets.ja/thicken-plots-for-printing/O_15.png)