Mathematica 9可以用这个，4能不能就不知道了Graphics[Line[Table[{0, 0} + {Sin[x], Cos[x]}, {x, 0, 2 Pi, Pi/20}]]]呃，好像不能截图，算了Graphics[{Blue, Polygon[Table[{0, 0} + {Sin[x], Cos[x]}, {x, 0, 2 Pi, Pi/30}]]}]这个可以画一个充填了颜色圆。。。。。。
