Es lebe die Geometrie!


Direkt zum Seiteninhalt

Hauptmenü


Hilbert

Geometrie 2 > Fraktale

WeiterPlayZurück

In jeder Stufe ergibt sich hier ein zusammenhängender Streckenzug. Manche Strecken werden dabei
hin und gleich danach zurück gezeichnet. Die Folge dieser Streckenzüge konvergiert gegen eine Kurve,
die ein Quadrat vollständig ausfüllt.


WeiterPlayZurück

Die Animation zeigt den Aufbau des Streckenzugs in der Stufe 4 und die anschließende Gleitschau den
Aufbau in den Stufen 2 und 3. Man erhält diesen Ablauf, wenn man in dem Visual Basic-Programm
der Seite Blatt die Prozedur Fraktal durch folgenden Code ersetzt:

Private Sub Fraktal(Stufe As Integer, Pixelweite As Double, inv As Integer)
If Stufe = 0 Then
If inv = 1 Then
tmove(pixelweite,
True, Color.Blue)
Else
tmove(pixelweite,
True, Color.Red)
End If
Else
turn(90 * inv)
Fraktal(Stufe - 1, 0.5 * Pixelweite, -inv)
turn(-90 * inv)
Fraktal(Stufe - 1, 0.5 * Pixelweite, inv)
Fraktal(Stufe - 1, 0.5 * Pixelweite, inv)
turn(-90 * inv)
Fraktal(Stufe - 1, 0.5 * Pixelweite, -inv)
turn(90 * inv)
End If
End Sub



Home | Geometrie 1 | Geometrie 2 | Epizykeltheorie | Sitemap


Zurück zum Seiteninhalt | Zurück zum Hauptmenü