Apfelmaennchen
Das Programm wurde zu einem Referat (komplexe Zahlen) im CAS-Unterricht programmiert. Programmiersprache ist Visual-Basic 6.0. Die Funktion zur komplexen Iteration ist die folgende. Übergeben wird der Real und Imaginär-Teil der Zahl.
Private Function iter_komplex(z0_RE
As Double, z0_IM As
Double) As Double
Dim i_i As
Integer
Dim i_RE_temp As Double
i_RE = 0
i_IM = 0
For i_i = 1 To
254
' Der Iterationsschritt
wird 254 mal durchgeführt
i_RE_temp = i_RE * i_RE - i_IM * i_IM +
z0_RE
i_IM = i_RE * i_IM * 2 + z0_IM
i_RE = i_RE_temp
If Sqr(i_RE
* i_RE + i_IM * i_IM) > 2 Then Exit For
' Wenn die "Länge"
der komplexen Zahl größer als 2 ist, wird
' die Iteration abgebrochen, da die Folge
dann gegen unendlich
' strebt
Next
iter_komplex = i_i
' Die Anzahl der Iterationsschritte
bis der Wert 2 erreicht wurde
' wird als Wert zurückgegeben um die Farbgeben
zu realisieren
End Function
Zwei Screenshots des Programms:
Download des Programms:
(ohne VB-Runtime)
apfel.exe