![]() |
Appollonische Verdichtung
Liste der Anhänge anzeigen (Anzahl: 1)
Drei sich berührende Kreise bilden ein Kreiszwickel. Das Fraktal Appolonische Verdichtung endsteht indem man einen Kreiszwickel einen einbeschriebenen Kreis hinzufügt, so entstehen 3 neue Kreiszwickel, in die bei der nächsten Stufe wieder Kreise einbeschrieben werden.
Die Umsetzung des rekursiven Algorithmus ist einfach, nur die Berechnung der einbeschriebenen Kreise erfordert größte Aufmerksamkeit. |
Re: Appollonische Verdichtung
Was bedeutet eigentlich P3.x? So wie es aussieht, führt P3.x > 0.50 dazu, dass der Kreis links oben größer ist als die anderen zwei und P3.x < 0.50 dazu, dass der Kreis rechts oben größer als die 2 anderen wird.
|
Re: Appollonische Verdichtung
Liste der Anhänge anzeigen (Anzahl: 1)
Hier mal eine überarbeitete Version...
|
Re: Appollonische Verdichtung
Herr Winter ich finde ihre Beiträge mit den Source Codes sehr gut, ich lese sie sehr gerne, weiter so.
:thumb: |
Re: Appollonische Verdichtung
@omata: da ist noch ein ungenutztes i drinnen :mrgreen:
hmm, hab mal aus neugier die Stufe aufgeschraubt ... bis 10 macht er noch mit und ab dann gibt's Exceptions ... hatte mich interessiert, ob man auch noch den letzten sichtbaren Kreiszwickel ausgefüllt bekommt :nerd: @blackdrake: P3.x? verschiebt den oberen Schnittpunkt der äußeren Kreise in die linke (< 0.5) oder rechte (> 0.5) Ecke und verzerrt so das Ganze etwas. PS: zum Zeichnen ist .ClipRect nist soooo gut geeignet ... legt mal ein kleines Fensterchen vor die Anwendung und bestaunt nach dem Entfernen dessen das kleine Appollon-Bild im Großen :angel2: |
Re: Appollonische Verdichtung
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
Zitat:
Zitat:
|
Re: Appollonische Verdichtung
Gibt es das auch irgendwie als Kompilat? Ich habe hier kein Delphi zur Hand.
|
Re: Appollonische Verdichtung
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
|
Re: Appollonische Verdichtung
im Post #1 war auch eine EXE mit dabei
|
Re: Appollonische Verdichtung
[ot]Ich bin auf Version 13 gespannt :spin:[/ot]
|
Re: Appollonische Verdichtung
Das Label ist noch zu klein. Es reicht nur zum Anzeigen einer Stelle aus.
|
Re: Appollonische Verdichtung
Hallo!
ein sehr schönes programm danke omata damit kann man sehr schöne desktop bilder machen :o Kannst du noch machen dass man die farben einstellen kann? :roll: Liebe grüsse Laufi |
DP-Maintenance
Dieses Thema wurde von "fkerber" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Open-Source" verschoben.
Passt besser nach OpenSource. ;) |
Re: Appollonische Verdichtung
Liste der Anhänge anzeigen (Anzahl: 1)
Zitat:
|
Re: Appollonische Verdichtung
blackdrake fragt:
Zitat:
0 < P3.x < 1 am operen Bildrand, |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz