Графики в пределах регионов
Графически изобразите функцию в пределах единичного диска.
In[1]:=
Plot3D[x y, {x, y} \[Element] Disk[{0, 0}, 1], ImageSize -> 500,
PlotTheme -> "Web"]Out[1]=
Создайте невыпуклый изолированный регион.
In[2]:=
region = RegionUnion[
RegionDifference[
RegionUnion[Disk[{0, 3}, 3], Disk[{3, 0}, 3], Disk[{0, -3}, 3],
Disk[{-3, 0}, 3]], Disk[{0, 0}, 3]], Disk[{0, 0}, 2]];In[3]:=
RegionPlot[region]Out[3]=
Начертите график в пределах региона.
In[4]:=
Plot3D[x y, {x, y} \[Element] region, ImageSize -> 500,
PlotTheme -> "Web"]Out[4]=
