The following is the content of the code:
Copy and paste version -
Show [RegionPlot [{1/Sqrt (4) [3] <=y & lt;=Sqrt [3]/4 & amp; & amp;
Abs [x] <=Sqrt [3]/2, y + 1/8,
Abs [x] <=3/8 - Sqrt [3]/2 y & amp; &
Abs [x] <=Sqrt [3]/2, y + 1/8}, {x - Sqrt [2]/2, Sqrt [2]/
2}, {y, 1/Sqrt (4) [3] - 0.05, Sqrt [3]/4 + 0.05}, Axes - & gt; True,
PlotStyle - & gt; Green],
RegionPlot [
9216 x ^ 4 +
X ^ 2 (6768 + 17856 Sqrt [3] y - 34560 y ^ 2-1024 Sqrt [3] y ^ 3) & lt;=
Sqrt, 1521-5148 [3] y + 13536 y ^ 2 + 2432 Sqrt [3] y ^ 3 -
13056 y ^ 4-3072 Sqrt [3] y ^ 5 & amp; & Abs [x] <1/8 +=Sqrt [3]/2 y & amp; &
Abs [x] & gt; 3/8 - Sqrt [3]/2 y, {x - Sqrt [2]/2, Sqrt [2]/
2}, {y, 1/Sqrt (4) [3] - 0.05, Sqrt [3]/4 + 0.05},
PlotStyle - & gt; Gray],
RegionPlot [
Abs [x] <=3/8 - Sqrt [3]/2 y & amp; &
Abs [x] <=Sqrt [3]/2, y + 1/8, {x - Sqrt [2]/2, Sqrt [2]/
2}, {y, 1/Sqrt (4) [3] - 0.05, Sqrt [3]/4 + 0.05},
PlotStyle - & gt; Magenta],
RegionPlot [
Abs [x] <=Sqrt [3]/2 y + 1/8 & amp; &
Abs [x] <=(1/Sqrt (2) [3]) y + 1/8, {x - Sqrt [2]/2, Sqrt [2]/
2}, {y, 1/Sqrt (4) [3] - 0.05, Sqrt [3]/4 + 0.05}, Axes - & gt; True,
PlotStyle - & gt; Yellow]]
Code -
Get the image is as follows:
The yellow area is the problem part of the figure, the above pointed disappeared, strives for the bosses to reassure