// e^(i t) のグラフ。
//「右手系」を「左手系」に直すため、x座標と y座標とを入れ換えてある。
//そのためすこし見にくい。
// z には一番重要な情報がくる。
// z軸は (上下-前後)平面 を動く。
// x親指 y人差指 z 小指 -->  左手系


Xrange:=2.3:


plot3d(
PlotDevice=["screws.gif",Gif],
Labeling=FALSE
,CameraPoint=[7,-12,10]
,Axes=Origin
,AxesOrigin=[0,0,0]
,[Mode=Curve,[t,Im(E^(I*PI*t)),Re(E^(I*PI*t))]
,t=[-float(Xrange),float(Xrange)]
   ,Smoothness=[5]
   ,LineWidth=30
 ]
,[Mode=Curve,[t,Im(E^(I*3*PI*t)),Re(E^(I*3*PI*t))]
,t=[-Xrange,Xrange]
   ,Smoothness=[10]
,LineStyle=DashedLines
   ,LineWidth=30
 ]
// 実軸
,[Mode=Curve,[0,0,t]
,t=[-2,2]
   ,Smoothness=[0]
   ,Color=[Flat,[0,0,0]]
   ,LineWidth=10
 ]
// 虚軸
,[Mode=Curve,[0,t,0]
,t=[-2,2]
   ,Smoothness=[0]
   ,Color=[Flat,[0,0,0]]
   ,LineWidth=10
 ]
// t軸
,[Mode=Curve,[t,0,0]
,t=[-Xrange*1.1,Xrange*1.1]
   ,Smoothness=[0]
   ,Color=[Flat,[0,0,0]]
   ,LineWidth=10
 ]


,[Mode=Curve,[1,0,t]
,t=[-1,0]
   ,Smoothness=[0]
   ,Color=[Flat,[0,0,0]]
,LineStyle=DashedLines
   ,LineWidth=10
 ]
,[Mode=Curve,[-1,0,t]
,t=[-1,0]
   ,Smoothness=[0]
   ,Color=[Flat,[0,0,0]]
,LineStyle=DashedLines
   ,LineWidth=10
 ]
,[Mode=Curve,[2,0,t]
,t=[0,1]
   ,Smoothness=[0]
   ,Color=[Flat,[0,0,0]]
,LineStyle=DashedLines
   ,LineWidth=10
 ]
,[Mode=Curve,[-2,0,t]
,t=[0,1]
   ,Smoothness=[0]
   ,Color=[Flat,[0,0,0]]
,LineStyle=DashedLines
   ,LineWidth=10
 ]
);