**TI92P*mainProgram file 11/05/09, 14:13Rjuliat¥Z() Prgm ClrDraw Disp "Programm *julia*" Disp "Gefangen oder Flucht" Disp "Fluchtziffer fuer |z|=100" Disp "" Disp "Startwert von z" Disp "a in z=a+bi" Input a Disp "b in z=a+bi" Input b Disp "" ap:bq Disp "Juliaparameter c" Disp "a in c=a+bi":Input a Disp "b in c=a+bi":Input b Disp "" 0n Lbl lbl1 p^2-q^2+ar 2*p*q+bq Disp r Pause Disp q Pause Disp "" rp n+1n If n>20 Goto lbl2 If r^2+q^2<10000 Goto lbl1 Disp "" Disp "Fluchtziffer fuer |z|=100" Disp n Stop Lbl lbl2 Disp "" Disp "Iteration von zo ist gefangen" EndPrgmäåÜF¥