AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Funktion deklarieren oder nicht?
Thema durchsuchen
Ansicht
Themen-Optionen

Funktion deklarieren oder nicht?

Ein Thema von Ergosquare · begonnen am 4. Mär 2014 · letzter Beitrag vom 6. Mär 2014
Antwort Antwort
Ergosquare

Registriert seit: 4. Mär 2014
5 Beiträge
 
#1

AW: Funktion deklarieren oder nicht?

  Alt 4. Mär 2014, 17:12
Ich hatte noch einen entscheidenden Fehler:

Code:
    If (za<100) and (sqrt(x*x+y*y)<2)              
    then za:=zaehler(za+1,x,y,x2,a,b)+1 //+1 hat gefehlt            
    else za:=1;
Sonst wird za nach der Funktion nicht verändert.
Dennoch bleibt es leider bei der Einfarbigkeit.

PS: Ich würde trotzdem gerne bei Rekursion bleiben.

MfG Ergosquare
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#2

AW: Funktion deklarieren oder nicht?

  Alt 4. Mär 2014, 21:14
Den Ausdruck (sqrt((x * x) + (y * y)) < 2) kann man übrigens zu ((x * x) + (y * y) < 4) vereinfachen.
Man kommt darauf wenn man den Ausdruck auf beiden Seiten des Kleinerzeichens quadriert.
Die Quadratwurzel sqrt() wird dann aufgehoben und das spart recht viel Zeit.
fork me on Github
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.688 Beiträge
 
Delphi 2007 Enterprise
 
#3

AW: Funktion deklarieren oder nicht?

  Alt 5. Mär 2014, 01:04
@Rekursion: In diesem Fall hier (Mandelbrot Fraktal) ist Geschwindigkeit nicht ganz unwichtig, da der gesamte Prozess sonst echt lahm werden kann. Und die Iteration eines Punktes geht - wie der Name der Operation schon so freundlich suggeriert - völlig klaglos und performat iterativ. Es drängt sich in meinem Hirn sogar geradezu als der "natürliche" Weg auf. (Und ja, TCanvas.Pixels[] bremst hier mindestens genau so heftig, wenn nicht sogar noch signifikanter.) (Davon ab ist 100 als Grenz-Iterationstiefe schon ziemlich fein. Bei den meisten Zooms, die das Fraktal als ganzes noch zeigen, sind Tiefen um 30-50 bei voller HD Auflösung noch sehr gut. Je näher man ran geht, desto feiner muss man allerdings werden um alle theoretisch noch sichtbaren Details zu bekommen. Ich würde die Iterationstiefe daher entweder frei wählbar (favorit), oder vom Zoom abhängig machen.)
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#4

AW: Funktion deklarieren oder nicht?

  Alt 5. Mär 2014, 06:49
Um es kurz zu machen: Bloß weil etwas rekursiv definiert ist, muss es ja nicht rekursiv umgesetzt werden.
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.487 Beiträge
 
Delphi 12 Athens
 
#5

AW: Funktion deklarieren oder nicht?

  Alt 5. Mär 2014, 12:51
Hier wegen der Vollständigkeit eine funktionierende rekursive Variante:
Delphi-Quellcode:
procedure zaehler(var za: Integer; x, y, a, b: Real);
var
  x2, y2: Real;
begin
  if za = 100 then
    Exit;

  x2 := x * x;
  y2 := y * y;
  if (x2 + y2) >= 4 then
    Exit;

  Inc(za);
  zaehler(za, x2 - y2 + a, (2 * x * y) + b, a, b);
end;
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.688 Beiträge
 
Delphi 2007 Enterprise
 
#6

AW: Funktion deklarieren oder nicht?

  Alt 5. Mär 2014, 13:58
Und hier eine iterative:
Delphi-Quellcode:
function zaehler(x, y, a, b: Real): Integer;
begin
  result := 0;
  repeat
    x := x*x + y*y + a;
    y := 2*x*y + b;
    Inc(result);
  until (result>100) or ((x*x+y*y)>=4);
end;
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.487 Beiträge
 
Delphi 12 Athens
 
#7

AW: Funktion deklarieren oder nicht?

  Alt 6. Mär 2014, 08:46
@Medium

Deine Berechnung ist aber Falsch:
- für die Berechnung des neuen x' muss (y * y) subtrahiert werden
- für die Berechnung des neuen y' muss das alte x in der Berechnung benutzt werden
Delphi-Quellcode:
function zaehler(x, y, a, b: Real): Integer;
var
  x2, y2: Real;
begin
  Result := 0;
  repeat
    x2 := x * x;
    y2 := y * y;
    if (x2 + y2) >= 4 then
      Break;
    y := (2 * x * y) + b;
    x := x2 - y2 + a;
    Inc(Result);
  until (result > 100);
end;
  Mit Zitat antworten Zitat
Antwort Antwort

 

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 02:25 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-2025 by Thomas Breitkreuz