Transformación afín de una región 

Aplique transformaciones afines a regiones geométricas básicas.

In[1]:=

X t = ShearingTransform[30 Degree, {1, 0}, {0, 1}];

In[2]:=

X sheared = TransformedRegion[Rectangle[], t];

In[3]:=

X RegionPlot[sheared, PlotRange -> All]

Out[3]=

Las transformaciones afines también pueden ser aplicadas a regiones de fórmula.

In[4]:=

X \[ScriptCapitalR] = ImplicitRegion[ x^2 + y^2 + z^2 < 1 || (x + 1)^2 + y^2 + z^2 < 1, {x, y, z}];

In[5]:=

X scaled = TransformedRegion[\[ScriptCapitalR], ScalingTransform[{1, 2, 2}]];

In[6]:=

X DiscretizeRegion /@ {\[ScriptCapitalR], scaled}

Out[6]=