next up previous contents
Nächste Seite: Das Sierpinsky-Dreieck Aufwärts: Fraktale Vorherige Seite: Bemerkung - Garbage Collection   Inhalt

Ein Fraktal aus normalen Abschnitten

Im folgenden Fraktal werden auf die Halbierung bestehender Strecken normal verkürzte Teilstrecken rekursiv errichtet...

import java.awt.*;
import java.applet.*;
import Turtle.*;

public class Halbrech extends Applet {

    public void paint (Graphics g) {
        Turtle t = new Turtle(this,0,150);
        halbrech(t,300,8);
    }

    public void halbrech (Turtle t, double strecke, int ebene) {
        if (ebene > 0) {
            halbrech(t, strecke/2, ebene - 1);
            t.rt(90);
            halbrech(t, strecke/2.5, ebene - 1);
            t.rt(180);
            halbrech(t, strecke/2.5, ebene - 1);
            t.rt(90);
            halbrech(t, strecke/2, ebene - 1);
        } else t.fd(strecke);
    }
}


\includegraphics[width=4.5cm]{FrHalbrech.ps}


Verändert man die Winkel geringfügig, dann ist die Verwandtschaft zur Koch-Kurve nicht mehr zu leugnen ;-) :

import java.awt.*;
import java.applet.*;
import Turtle.*;

public class Halbrech extends Applet {

    public void paint (Graphics g) {
        Turtle t = new Turtle(this,0,150);
        t.y = 350;
        halbrech(t,300,8);
    }

    public void halbrech (Turtle t, double strecke, int ebene) {
        if (ebene > 0) {
            halbrech(t, strecke/2, ebene - 1);
            t.rt(80);
            halbrech(t, strecke/2.5, ebene - 1);
            t.rt(200);
            halbrech(t, strecke/2.5, ebene - 1);
            t.rt(80);
            halbrech(t, strecke/2, ebene - 1);
        } else t.fd(strecke);
    }
}


\includegraphics[width=9cm]{FrHalbrech2.ps}



Alfred Nussbaumer 2003-02-10