Templates by BIGtheme NET
|
Willkommen,
Gast
|
THEMA:
Der Barnsley Farn 26 Jan 2026 22:12 #1
|
Hallo liebe CX User.
Anbei ein Versuch diesen Fraktalklassiker mit CX5 und dem Zeichne Befehl umzusetzen. Und ja.... es funktioniert. Braucht zwar etwas aber der Algorythmus tut seine Arbeit. Vielleicht gelingt es ja jemanden, daß der Farn verkleinert im Fenster erscheint, usw.
1 *** Barnsley_Farn 2 3 *** Zahlenfehler ignorieren 4 Fehler/Debug: Fehler ignorieren 5 6 Setze , MultiSet 'x=0¶y=0¶Fx=[cX.Anzeige(demofenster).Breite]¶Fy=[cX.Anzeige(demofenster).Höhe]¶scale=60' 7 Anzeige-Fenster 'Barnsley Farn', ID='demofenster', Rahmen: veränderbar, maximiert, Farbe=0 8 9 *** Der Algorythmus der das Fraktal generiert 10 Schleife ab hier mit Variable von 1 bis 50000 11 Setze in [r]: '[cX.Zufallszahl(100)]' 12 Setze , MultiSet 'x=[cX.Rechne([x]-1)]¶y=[cX.Rechne([y]-1)]¶' 13 14 Wenn (? Werteprüfung'[r]' = '<1') 15 Setze in [x_neu]: '0' 16 Setze in [y_neu]: '0,16 * [y]' , berechnen' 17 18 Sonst (? Werteprüfung '<86') 19 Setze in [x_neu]: '0,85 *[x] + 0,04 * [y]' , berechnen' 20 Setze in [y_neu]: '-0,04 * [x] + 0,85 * [y] + 1,6' , berechnen' ...
Hinweis: Bei besonderem Lizenzerfordernis, daß Skript bitte im Volltestmodus ausführen. Gruß Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
cX4Web CodeDer Barnsley Farn Heute 15:03 #2
|
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
Der Barnsley Farn Heute 15:30 #3
|
Hallo Stefan.
Danke für die Tipps. Funktioniert gleich um ein Vielfaches schneller. 
lg Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |