Mathematica中三维图，画不出来

Question

文本：Plot3D[(2*10^-7)/Sqrt
3 x^2 + y^2 - 12 x + 12 + 2 Sqrt[3] xy -
4 Sqrt[3] y/(
2 Sqrt[(1 - x)^2 + (Sqrt[3] - y)^2]) + (2 - x + Sqrt[3] y)/(
2 Sqrt[(1 - x)^2 + y^2])), {x, 0, 2}, {y, 0, Sqrt[3]},
RegionFunction ->
Function[{x, y, z},
y >= 0 && y - Sqrt[3] x <= 0 && y + Sqrt3 <= 0]]
为 什么画不出来？

Answer 1

你的输入中有个 xy颜色和其他x，y颜色不一样，你漏打了乘号，如果打上还有问题，把最后那个Function[{x, y, z},
y >= 0 && y - Sqrt[3] x <= 0 && y + Sqrt3 <= 0]删掉