With[{n = Pi/128}, Show[Graphics[({Hue[#1/(2*Pi - n)], Disk[{0, 0}, 1, {#1, #1 + n}]} & ) /@ Range[0, 2*Pi - n, n], AspectRatio -> Automatic]]] 查看原帖>>
满意请采纳
With[{n = Pi/128}, Show[Graphics[({Hue[#1/(2*Pi - n)], Disk[{0, 0}, 1, {#1, #1 + n}]} & ) /@ Range[0, 2*Pi - n, n], AspectRatio -> Automatic]]] 查看原帖>>
满意请采纳