Transformación no lineal de una región  

Transforme un disco por medio de una transformación no lineal .

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

Visualice la región y el punto en la región antes de la transformación.

In[4]:=

X p = {-2, 2};

In[5]:=

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

Out[5]=

Visualice la región y el punto después de la transformación.

In[6]:=

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

Out[6]=