Das deutsche QBasic- und FreeBASIC-Forum

[nemored]

Das wäre so etwas, genau. Auch z. B. die Koch-Kurve, die von ihrem Aussehen her einer Schneeflocke ähnelt.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[GRaf]

und was müsste ich an meinem programm verändern damit es ein fraktal ist?


Eig ist es doch ungefähr wie beim Baum
Der Baum geht erst nach oben,dann dreht sich der winkel und der nächste wird drann gezeichent.

Und bei mir
Ist eine Schneeflocke, dann dreht sich der winkel und eine Schneeflocke wird 50cm dadrunter gezeichent.

[nemored]

[GRaf]

also bei meiner schneeflocke zeichne ich einfach eine neue,also ist es doch ein teil der ursprünglichen oder nicht? Oder soll ich die danach ein bisschen vergrößern?

[nemored]

k. A. ob du das richtige meinst; dazu müsste ich den Quellcode sehen (ich kann wie gesagt die binärverschlüsselte Speicherung nicht lesen).
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[GRaf]

muss ich da was bei dem programm verändern,damit du das lesen kannst?

Ich erklärs aber nochmal
Ich geb 10 ein dann kommen oben 10 Schneeflocken nebeneinander.
Dann geb ich wieder 10 ein dann zeichnet qb dadrunter 10 neue und dadrunter noch 10 neue und immer so weiter, bis nach unten.


http://uploaded.to/?id=zxo06t

[St_W]

@nemored: Die Datei kann mit QBasic 7.1 PDS ohne Probleme geöffnet werden. Mit QBasic 4.5, 1.1, o.ä, hingegen nicht, da die Datei im Binärformat gespeichert ist.

@GRaf: Es is möglicherweise besser, wenn du die Datei im Textformat abspeicherst. Dann kann sie von jedem gelesen werden. Wähle dazu unter QB7.1 PDS "File"-"Save As..." und dann in der Box "Format" die Option "Text - Readable by other programs" und gib den Dateinamen an, unter dem du die Datei abspeichern willst.
(Alternativ kannst du auch hier im Forum den Code einfügen, wenn er nicht zu lang ist.)
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)

[Mao]

@St_W:
Das ist nemored wohl bewusst, deswegen weißt er auch extra darauf hin, dass er die binär gespeicherten QB-Sourcen nicht lesen kann; mit der indirekten Forderung das ganze doch mal als reinen Text zu speichern.
_________________
Eine handvoll Glück reicht nie für zwei.
--

[GRaf]

Hier:
http://uploaded.to/?id=6aym0r

[St_W]

[ot]

[nemored]

Tut mir leid, ich finde in deinem Programm keine Rekursion. Der Programmablauf scheint mir folgender zu sein:
vorbereitung -> schneee -> (schneeflocke -> schneevor) (beide letzten evtl. mehrmals hintereinander)
secvor -> schneee -> (schneeflocke -> schneevor) (s. o.)
secvora -> schneee -> (schneeflocke -> schneevor) (s. o.)
secvorb -> schneee -> (schneeflocke -> schneevor) (s. o.)
secvorc -> schneee -> (schneeflocke -> schneevor) (s. o.)
secvord -> schneee -> (schneeflocke -> schneevor) (s. o.)
secvore -> schneee -> (schneeflocke -> schneevor) (s. o.)
secvorf -> schneee -> (schneeflocke -> schneevor) (s. o.)
secvorg -> schneee -> (schneeflocke -> schneevor) (s. o.)
secvorh -> schneee -> (schneeflocke -> schneevor) (s. o.)

Keine einzige Funktion, die sich selbst aufruft und daher auch keine Rekursion. Ich vermute mal, dass es dann auch kein Fraktal ist, aber ich bekomme bei der Ausführung nichts angezeigt; ist vielleicht irgendwas nicht zu FreeBASIC kompatibel.

@ST_W: Schon mal auf den Gedanken gekommen, dass ich nicht erst ein passendes Programm suchen und installieren möchte, um eine (auch) an mich gerichtete Frage beantworten zu können?
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[GRaf]

hää also recursion heißt doch, wenn man in einer sub ne andere aufruft oder nicht? So hab ich das verstanden.

Wie soll ich das den ändern, damit es deiner meinung nach rekursiv ist?

[nemored]

Rekursion (siehe Link oben) ist eine Funktion, die sich selbst aufruft. Ein klassisches Beispiel wäre die Berechnung der Fakultät (die leider sehr schnell an die Grenzen der Variablengröße stößt ).

[dreael]

Falls jemand einen Code für die Kochkurve sucht:

http://beilagen.dreael.ch/QB/KOCHKURV.BAS
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[GRaf]

Ich habs rekursiv
http://uploaded.to/?id=0ji7fp


Brauch nur noch Hilfe wieder beim fallen von den Schneeflocke ich muss ja unter jede flocke noch eine flocke.

[nemored]

Mal so als Warnung:

[St_W]

@nemored: Nein, das dürfte nicht so sein, denn:
- Beim Aufrufen (CALL) wird die Variable "generation" als SINGLE angelegt
- Die Adresse der Variable wird an die Sub übergeben (By Reference!!)
- In der Sub wird an der Adresse der Variable der neue Wert gespeichert
- Rücksprung aus der Sub

@GRaf: Ich kann keine Rekursion in deinem Programm finden. Welche Sub ist da rekursiv?
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)

[nemored]

Achso, ist BYREF Standard? Dann sorry, meine QB-Zeiten sind wohl inzwischen doch schon zu lange her.
_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

[GRaf]

Ich krieg das einfach nicht hin...
Muss morgen meine Arbeit abgeben und schaff es einfach nicht.
Mein einziges Problem ist , wenn ich die Schneeflocken rekursiv machen will, dann sagt er immer "Außerhalb des Stapelsbereich". Nur wie krieg ich das jetzt hin?


EDIT

Habs
FERTIG !!!
Ich denke jetzt ist es recursiv und da es rekursiv ist , denke ich , dass es auch ein fraktal ist.
http://uploaded.to/?id=wi996a Hoffe es ist rekursiv

[Elektronix]

Ja, logisch: Wenn Du eine Sub rekursiv unendlich oft aufrufst, ist irgendwann der Stapel voll.

Wie wäre es, wenn Du ein Array für die Schneeflocken anlegst und dann jede Schneeflocke per Index zählst und nacheinander berechnen läßt.
_________________
Und die Grundgebihr is aa scho drin- DOS is jo nett.