用mathematica画三维图形,只要网格线而不要曲面图用什么函数啊?