Return to Answer

Fixed a typo

Source Link

edited May 19, 2015 at 11:24

3.3k
7
27
36

Here's way of creating the plot by using regions.

r1 = ImplicitRegion[(x - 4)^2 + (y - 4)^2 == 4, {x, y}];
r2[k_] := ImplicitRegion[x^3 + y^3 - 3 x y == k, {x, y}];
RegionPlot[RegionUnion[by r1RegionPlot[RegionUnion[r1, r2[1], r2[100]]]

enter image description here

Here's way of creating the plot by using regions.

r1 = ImplicitRegion[(x - 4)^2 + (y - 4)^2 == 4, {x, y}];
r2[k_] := ImplicitRegion[x^3 + y^3 - 3 x y == k, {x, y}];
RegionPlot[RegionUnion[by r1, r2[1], r2[100]]]

enter image description here

Here's way of creating the plot by using regions.

r1 = ImplicitRegion[(x - 4)^2 + (y - 4)^2 == 4, {x, y}];
r2[k_] := ImplicitRegion[x^3 + y^3 - 3 x y == k, {x, y}];
RegionPlot[RegionUnion[r1, r2[1], r2[100]]]

enter image description here

Source Link

created May 19, 2015 at 10:10

Stephen Luttrell

5.1k
1
20
19

Here's way of creating the plot by using regions.

r1 = ImplicitRegion[(x - 4)^2 + (y - 4)^2 == 4, {x, y}];
r2[k_] := ImplicitRegion[x^3 + y^3 - 3 x y == k, {x, y}];
RegionPlot[RegionUnion[by r1, r2[1], r2[100]]]

enter image description here