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:

Screen1
Screen2

Download des Programms:
(ohne VB-Runtime)
apfel.exe