mathematica中画图画不出来

Question

为什么这个画不出来？

Answer 1

这是第三个文本：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]]