// exp(0.01ni) n=0,1,2,3 をプロットする mupad ファイル。

plot2d(
PlotDevice=["beki.gif",Gif],
Axes=Origin,
AxesOrigin=[0,0],
Labeling=FALSE,
Ticks=[1,1],
ViewingBox=[-1.2,1.2,-1.2,1.2],
//原点を中心として半径1の円(単位円)を書く。

[Mode=Curve,[cos(x),sin(x)],
x=[0,2*PI],
Smoothness=[5],
Color=[Flat,[0,0,0]]
], 
[Mode=List,
	[polygon(
			point(
			 float(Re(E^(0.1*I*x))),
			 float(Im(E^(0.1*I*x)))
			),
			point(0,0),
			Color=[1,0,0]
		)
	] 
] $x=0..10
);