# Message Boards

1
|
4498 Views
|
0 Replies
|
1 Total Likes
View groups...
Share
 Is there any setting that could be used to improve the results of TransformedRegion? For some transformations it appears to perform very poorly by default. Below is one example taken from MMA.SE (the transformation function specifically is written by Michael E2). Transformation function: flow = Module[{x, y}, Function[{t, a, b}, Evaluate[ { x[t, a, b], y[t, a, b]} /. First@NDSolve[{ D[x[t, a, b], t] == y[t, a, b], D[y[t, a, b], t] == -Sin[x[t, a, b]], x[0, a, b] == a, y[0, a, b] == b }, {x, y}, {t, 0, 20}, {a, -1/2, 1/2}, {b, 1/2, 3/2} ] ], Listable]];  Region: object = Disk[{0, 1}, 0.5];  Background: splot = StreamPlot[{y, -Sin[x]}, {x, -4, 4}, {y, -3, 3}, StreamColorFunction -> "Rainbow"]  Somewhat correct transformations given by ParametricPlot for $t=0$ and $t=10$: Show[ splot, ParametricPlot[ flow[t, r Cos[theta], 1 + r Sin[theta], t], {r, 0, 0.5}, {theta, 0, 2 Pi} ] ]  Incomplete transformations given by TransformedRegion: Show[ splot, RegionPlot[ TransformedRegion[ object, flow[t, #, #2] & ] ] ]