第一次發帖，求助大佬！
下面是代碼內容：
復制粘貼版——
Show[RegionPlot[{-1/(4 Sqrt[3]) <= y <= Sqrt[3]/4 &&
Abs[x] <= Sqrt[3]/2 y + 1/8,
Abs[x] <= 3/8 - Sqrt[3]/2 y &&
Abs[x] <= Sqrt[3]/2 y + 1/8}, {x, -Sqrt[2]/2, Sqrt[2]/
2}, {y, -1/(4 Sqrt[3]) - 0.05, Sqrt[3]/4 + 0.05}, Axes -> True,
PlotStyle -> Green],
RegionPlot[
9216 x^4 +
x^2 (-6768 + 17856 Sqrt[3] y - 34560 y^2 - 1024 Sqrt[3] y^3) <=
1521 - 5148 Sqrt[3] y + 13536 y^2 + 2432 Sqrt[3] y^3 -
13056 y^4 - 3072 Sqrt[3] y^5 && Abs[x] <= 1/8 + Sqrt[3]/2 y &&
Abs[x] > 3/8 - Sqrt[3]/2 y, {x, -Sqrt[2]/2, Sqrt[2]/
2}, {y, -1/(4 Sqrt[3]) - 0.05, Sqrt[3]/4 + 0.05},
PlotStyle -> Gray],
RegionPlot[
Abs[x] <= 3/8 - Sqrt[3]/2 y &&
Abs[x] <= Sqrt[3]/2 y + 1/8, {x, -Sqrt[2]/2, Sqrt[2]/
2}, {y, -1/(4 Sqrt[3]) - 0.05, Sqrt[3]/4 + 0.05},
PlotStyle -> Magenta],
RegionPlot[
Abs[x] <= Sqrt[3]/2 y + 1/8 &&
Abs[x] <= -(1/(2 Sqrt[3])) y + 1/8, {x, -Sqrt[2]/2, Sqrt[2]/
2}, {y, -1/(4 Sqrt[3]) - 0.05, Sqrt[3]/4 + 0.05}, Axes -> True,
PlotStyle -> Yellow]]
代碼截圖——
得到的影像如下：
圖中的黃色區域就是問題部分，上面的尖尖不見了。求大佬解惑
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/52582.html
標籤：其他技術專區