Nichtlineare Transformation einer Region 

Transformieren Sie eine Kreisscheibe mittels einer nichtlinearen Transformation .

In[1]:=

X r0 = Disk[{1, 1}, 4];

In[2]:=

X f = {Indexed[#, 1] Indexed[#, 2], Indexed[#, 1] + Indexed[#, 2]} &;

In[3]:=

X r1 = TransformedRegion[r0, f];

Visualisieren Sie die Region und einen Punkt in der Region vor der Transformation.

In[4]:=

X p = {-2, 2};

In[5]:=

X RegionPlot[r0, Epilog -> {Red, Point[p]}]

Out[5]=

Visualisieren Sie die Region und den Punkt nach der Transformation.

In[6]:=

X RegionPlot[r1, Epilog -> {Red, Point[f[p]]}]

Out[6]=