
Modell: Casio fx-9750G Plus
Bild: http://www.comparestoreprices.co.uk/ima ... g-plus.jpg
Code: Alles auswählen
Cls ;Alles leeren
-0.357-0.281i -> Z ;beliebige imaginäre Zahl in Z speichern
15 -> D ;Anzahl max. Durchläufe pro Pixel
-1.00 -> A ;Sichtfeld X-Achse: A bis G ; Y-Achse B bis H
+1.00 -> G
-1.00 -> B
+1.00 -> H
ViewWindow A,G,1,B,H,1 ;Sichtfeld übertragen
For 1 -> L To 63 ;Für jeden Pixel auf der X-Achse /Y-Achse (Bildschirmpixel)
(H-(L*(H-b)/63 )) -> T ;In Koordinaten umrechnen
For 1 -> K To 127
(A+(K*(G-A)/127)) -> S
S+Ti -> N ;Imaginäre Zahl basteln (in N speichern)
For 1 -> C to D
N^2+Z -> N ;Ab in die Fraktal-Maschiene damit
If Abs(N) > 10E48 ;N auf Konvergenz prüfen
Then Break
IfEnd
Next
If Abs(N) =< 10E48
Then PxlOn L,K ;Wenn N gegen einen Wert (nicht unendlich) läuft, Pixel färben
IfEnd
Next
Next

Ein Ergebnis könnte so aussehen:

Aufm Taschenrechner betrug die Dauer je nach "Auflösung" (im Code das "D") zwischen 30-120 Minuten.