Templates by BIGtheme NET
|
Willkommen,
Gast
|
THEMA:
Das Sierpinskidreieck 18 Jan 2026 19:39 #1
|
Hallo liebe CX User.
Wieder ein kleines Beispiel mit Turtlegrafik zum ausprobieren, nachschauen und zur freien Verwendung.
1 *** Das Sierpinski Fraktal rekursiv 2 Anzeige-Fenster 'Sierpinski Dreieck Rekursiv', ID='Demofenster', Breite=200, Höhe=200, Rahmen: veränderbar 3 Button 'Neustart' (ID='Button_1', X='5', Y='5', Zielfenster='Demofenster') 4 :: neu 5 Setze in [cX.LöscheVariablen]: '*' 6 Zeichne Turtlegrafik, X=1, Y=1, Ziel 'Demofenster', erst löschen 7 8 *** Setup 9 *** Hier werden die Farbnamen entnommen... 10 Setze in [cX.Stapel(farben).Liste]: 'Khaki¶DodgerBlue¶13¶14¶10¶Red¶¶' 11 Setze , MultiSet 'x=10¶y=160¶level=4¶laenge=150¶' 12 Eingabe 'Bitte legen Sie die Rekursionstiefe fest (Ideal 1-5) ^M Abhängig von der Rechenleistung ihres Computers' in [rekurs] , Vorgabe '6' 13 14 *** unsichtbares Ausgangsdreieck zeichnen und Eckpunkte in Stapel schreiben 15 Zeichne Turtlegrafik, Text 'R30', X=[x], Y=[y], erst löschen 16 Schleife ab hier mit Variable [a] von 1 bis 3 17 Zeichne Turtlegrafik, Text '[laenge];R120', Ziel 'Demofenster' 18 Setze in [cX.Stapel(eckpunkte).Liste]: '[cX.Anzeige(Demofenster).AusgabeX]¶[cX.Anzeige(Demofenster).AusgabeY]' , Als neue Zeile anhängen' 19 Schleife bis hier 20 ...
Bei besonderem Lizenzerfordernis, das Skript bitte im Volltestmodus ausführen. Gruß Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
cX4Web Code