|
|
!(1+πi/N)^N(as N→∞)→exp(πi)＝-1を目で見ることを作ってみました。
OPTION ARITHMETIC COMPLEX !複素平面
INPUT PROMPT "Nの値を指定して下さい。(～２５４)":n
SET WINDOW -1.8,1.2,-0.2,2.8
LET a=COMPLEX(1,0)
LET z=COMPLEX(1,PI/n)
DRAW grid
FOR k=1 TO n
LET b=z^k
PLOT POINTS :Re(a),Im(a);Re(b),Im(b)
PLOT LINES: Re(a),Im(a); Re(b),Im(b) !点列 z,z^2,z^3,…,z^n,…
SET AREA COLOR MOD(k,256)+1
PLOT AREA: 0,0; Re(a),Im(a); Re(b),Im(b)
LET a=b
NEXT k
END
|
|