Transformação não linear de uma região 

Transforme um disco por uma transformação não linear .

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

Visualize a região e um ponto na região antes da transformação.

In[4]:=

X p = {-2, 2};

In[5]:=

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

Out[5]=

Visualize a região e o ponto após a transformação.

In[6]:=

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

Out[6]=