> > ﾍﾞｰｼｯｸで線をひくとこで挫折したよ(;´Д`)
> 10 SCREEN 7
> 20 FOR X = 0 TO 512
> 30 PSET(X, 100), 15
> 40 NEXT X
> 50 GOTO 50

10 input n:cls
11 xa=0:ya=0
12 for i=1 to 10000
13  xb=n*xa-ya^2+1
14  yb=xa
15  pset(90*xb+180,-90*yb+180)
16  xa=xb:ya=yb
17 next i:end
某所で見つけたんだが仕組みがいまいち(?´Д`)
二乗をはずすと楕円を書いたりしてとても不思議

参考：2005/06/11(土)00時18分15秒