AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

L-System

Ein Thema von fwsp · begonnen am 30. Apr 2006 · letzter Beitrag vom 1. Mai 2006
Antwort Antwort
Seite 2 von 2     12   
fwsp
Hallo

Ich möchte meine Umsetzung eines L-Systems vorstellen. Es ist mit Delphi 7 PE geschrieben, benötigt zusätzlich noch Turtle-Komponenten: didcmp15.zip // 97 KB

Anleitung:
Es beherrscht folgendes Alphabet: 'F', 'f', '[', ']', '+', '-'.
Bei 'F' wird eine Strecke gezeichnet.
Bei 'f' wird eine Strecke ohne zeichnen gegangen.
Bei '[' wird sich die Position und der Winkel gemerkt.
Bei ']' wird die letzte Position und der dazu gehörige Winkel ausgegeben.
Bei '+' wird ein Winkel in mathematische Richtung (gegen den Uhrzeigersinn) gegangen.
Bei '-' wird ein Winkel gegen die mathematische Richtung (mit den Uhrzeigersinn) gegangen.

Zum Download

ps. Bei Generation besser nicht mehr als 5-7 eingeben, je nach Bildungsvorschrift, kann sonst ein wenig länger dauern.
 
Benutzerbild von easteregg
easteregg
 
#11
  Alt 30. Apr 2006, 17:00
bei mir produziert das nicht immer das komplette bild -> siehe http://verfriemelt.org/dp/
aber damit kann man schöne sachen machen

erinnert mich irgendwie bissl an logo ^^
  Mit Zitat antworten Zitat
fwsp
 
#12
  Alt 30. Apr 2006, 17:44
das liegt an der von mir verwendeten Turtle-Komponente. Gibt es vielleicht eine Jedi-Turtle-Komponente?
  Mit Zitat antworten Zitat
Benutzerbild von xZise
xZise

 
Delphi 2009 Professional
 
#13
  Alt 30. Apr 2006, 18:38
o.O

Leider sind meine nicht so kreativ:

Zitat:
F++f+F----F+++F---F
G: 5
W: 10
L: 5

SX: 50
SY: 150

@ Attachment das Bild
Miniaturansicht angehängter Grafiken
papier_978.jpg  
Fabian
  Mit Zitat antworten Zitat
alzaimar

 
Delphi 2007 Enterprise
 
#14
  Alt 30. Apr 2006, 20:50
Zitat von fwsp:
to alzaimar:
ich mag das '...' nicht.
Ich hab den Source ja mit zur Verfügung gestellt, du kannst das gerne so umsetzen...
Komische Antwort auf positive Kritik und einen Verbesserungsvorschlag.

Mit dem Source kann ich aber nichts anfangen, weil mir die Turtle-Grafik nicht gefällt.

Na ja, hier mal eine ähnliche Implementierung. Sie ist vom Prinzip fast gleich, aber in meinen Augen leichter zu 'programmieren'.

'-' ist ein Baumsegment, '/' bzw. '\' eine Verästelung nach links/rechts und 'o' ein Blatt. Die Blätter werden nur im letzten Rekursionsabschnitt gezeichnet. Es sind einfach kleine grüne Kreise.

Die Resultate sind natürlich läääängst nicht so schön wie die Natur, man erkennt aber auch, das Rekursivität, oder Selbstbeinhaltung ein Grundalgorithmus unserer Welt ist.

Wer will, kann damit weiter rumspielen...
Angehängte Dateien
Dateityp: rar trees_380.rar (172,9 KB, 25x aufgerufen)
  Mit Zitat antworten Zitat
Benutzerbild von BlackJack
BlackJack

 
Delphi 2005 Personal
 
#15
  Alt 30. Apr 2006, 21:39
als weitere erweiterung könnte ich mir noch vorstellen, den "zeichensatz" um das zeichen & oder so zu erweitern, mit dem man (vorangestellt an ein F) erreichen kann, dass sich in der danach durch das F eingeleiteten rekursion alle + in - und alle - in + umwandeln. dann wäre das zwar kein original L-System mehr, aber man hätte einige möglichkeiten mehr und könnte auch ein paar nette Fraktale wie z.b. die Drachenkurve zeichnen lassen.

@alzaimar: respekt, das sieht echt cool aus.
  Mit Zitat antworten Zitat
fwsp
 
#16
  Alt 1. Mai 2006, 13:39
to alzaimar: das war gar nicht so böse gemeint...
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:31 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz