Fibonacci-Zahlen

[leddl]

Kanns bei mir nich compilieren, deshalb kann ich nich viel dazu sagen, aber was meinst du mit "hängen"? Brauchts nur lange oder hängt sich das Programm auf? Also mein Code funktioniert bei mir einwandfrei und selbst mit etwas höheren Zahlen merkt man keinen Hänger...

[Binärbaum]

Zitat von glkgereon:

irgendwie hängen die asm und die rekursive ziemlich!!!

oder mach ich was falsch?

irgendwie funkt das net

Bei der rekursiven Funktion kann das an der Rekursion liegen. Dadurch, das bei großen Zahlen die Funktion ziemlich oft rekursiv aufgerufen wird, kann es schon mal etwas länger dauern. Deswegen bevorzuge ich auch iterative Verfahren

MfG
Binärbaum

[glkgereon]

naja, also ab 50 etwa brauchs deutlich mehr als 1-2 sek....so lang das ich abgebrochen hab.

aber die asm-lösung auch

[leddl]

Ok, habs jetzt mal selbst getestet. Der rekursive Aufruf hinkt wirklich ab ca. 30 deutlichst hinterher. Wohl doch wirklich nich so gut.

[Khabarakh]

Ist doch logisch:

Code:

 -> = ruft auf
5. Fibonacci-Zahl

Rekursiv:


 
               2
          3 ->
               1
     4 ->

          2

5 ->
          2

     3 ->

          1

iterativ:

 2+1 -> 3 -> 4 -> 5

Und das ist erst die fünfte .

[Binärbaum]

Man könnte die rekursive Variante noch verbessern (d.h. schneller machen), wenn man die schon berechneten Zwischenergebnisse speichert. Allerdings hat man dadurch wieder mehr Overhead, sodass letztlich dieser wieder den Performance-Gewinn dämpft.

MfG
Binärbaum

[JasonDX]

ich hab den asm-code nochmal angeguckt

wenn ich die funktion einmal aufrufe, reicht das:

Delphi-Quellcode:

function fib(von: integer): integer; assembler;
asm
  mov ecx, von
  mov eax, 1
  mov ebx, 0
  cmp ecx, 2
  jbe @@endoffib
  sub ecx, 1
 @@startLoop:
  mov edx, ebx
  mov ebx, eax
  add eax, edx
  sub ecx, 1
  jnz @@startLoop
 @@endoffib:
  mov result, eax
end;

wenn ich sie in einer for-schleife aufruf, muss ich

Delphi-Quellcode:

//Das am anfang:
  push eax
  push ebx
  push ecx
  push edx

//und das am ende:
  pop edx
  pop ecx
  pop ebx
  pop eax

anhängen


Edit: source ausgebessert

[negaH]

Hier mal ein Program von mir.

Gruß Hagen

[glkgereon]

würdest du event. auch den source veröffentlichen?

[BenjaminH]

[ot]@negaH Was wohl passiert wenn ich da -3 eingeb [/ot]
[Edit] Was ich eigentlich meine ist, das jede dieser funktionen vielleicht noch eine überprüfung zur gültigkeit des Indexes braucht
[Edit=2] Jetzt weiß ich was passiert nach einiger Zeit war der PC nicht mehr ansprechbar