mathematica中画图画不出来

为什么这个画不出来？

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

能不把文本形式的命令发一下？你给的函数太复杂了，想输到自己电脑试试都不能。

Plot3D[(2*10^-7)/
Abs(Sqrt[3] x + y)/
2/(2 Sqrt[x^2 + y^2]) + (4 - x - Sqrt[3] y)/(
2 Sqrt[(1 - x)^2 + (Sqrt[3] - y)^2])) +
10^-7/y ((2 - x)/Sqrt[(2 - x)^2 + y^2] + x/Sqrt[x^2 + y^2]) + (
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]}]

；