**TI92P*mainProgram file 10/31/07, 15:55Rapfelm2Z() Prgm ClrHome ClrDraw gut Ergebnisse erst ab n=30 - ca. 2h Disp "" Disp "max Iterationen n" Input n 1.0ymin 1.0ymax .5yscl 2.6xmin 1.xmax .5xscl 63z DispG (xmax-xmin)/239c (ymax-ymin)/127d 0j Lbl lblj ymin+j*db 0ii Lbl lblii xmin+ii*ca ax by 1k Lbl lbl1 x*xu y*yv 2*x*y+by u-v+ax k+1k If u+v>20 Then Goto lbl2 EndIf If k