Fibonacci-Zahlen

[alcaeus]

Zitat von malo:

Nur mal so, aber was sind Fibonacci-Zahlen?

Guckst du: http://de.wikipedia.org/wiki/Fibonacci-Zahlen
Ich frag mich warum Daniel wohl den wiki-Button eingebaut hat

Greetz
alcaeus

[Binärbaum]

Zitat von malo:

Nur mal so, aber was sind Fibonacci-Zahlen?

Schau mal hier: Fibonacci-Zahlen

MfG
Binärbaum

[Jelly]

Ob for-Schleife oder rekursiv. Aber auf jeden Fall sollte das gleiche Ergebnis rauskommen. Tuts in diesem Fall aber nicht
Also irgendwer hat sich da wohl vertan.

[BenjaminH]

So wie ich das sehe (experimentiert) ist das von Leddl richtig

[Elite]

Zitat von Jelly:

Aber auf jeden Fall sollte das gleiche Ergebnis rauskommen.

Das wär allerdings nicht schlecht. Mit dieser Funktion dürftest du aber auch das Gewünschte erreichen:

Delphi-Quellcode:

function fibonacci(Index : Integer) : Int64; 
begin
  result := round((1/sqrt(5))*(power((1+sqrt(5))/2, index-1)-power((1-sqrt(5))/2,index-1)));
end;

Keine Rekursion und keine Schleife, sondern reine Mathematik.


Edit: Diese Version geht davon aus, dass die Fibonacci-Zahlenreihenfolge bei 0 und nicht bei 1 beginnt. (Definitionssache je nach Problemstellung)

[leddl]

Hehe, da sieht man wieder, was Rekursion so alles bringen kann. Das Ergebnis kann - schon wenn man nur einen Blick auf den Code wirft - eigentlich nur richtig sein.
Und besser langsam und richtig, als schnell und falsch!
Das Problem an glkgereon's Code ist, daß nach dem ersten Aufruf Last immer gleich Result ist, und somit Result immer einfach nur verdoppelt wird. Aber das ist eben in so ner Schleife nicht sofort zu erkennen. Aber das hatte mich heute schon einmal irritiert.

[Sharky]

So,

jetzt habt ihr den Thread so schön zerredet das die lieben Code-Manager sicher nicht mehr wissen was sie nun in die Code-Library aufnhemen sollen und was nicht
Herzlichen Glückwunsch

[JasonDX]

hier findet man das:

Delphi-Quellcode:

procedure Fibonacci(von: integer): int64;
var 
  alt, uralt: int64;
  i: integer; 
begin 
  alt := 0; 
  result := 1; 
  for i := 2 to von do begin 
    uralt := alt; 
    alt := result; 
    result := uralt + alt; 
  end; 
end;

und

Delphi-Quellcode:

procedure Fibonacci(von: integer): integer;
asm
    MOV EDX, von
    SUB EDX, 1 
    MOV EAX, 0  //alt 
    MOV EBX, 1  //neu 
    JZ @@end 
    @@1: 
    MOV ECX, EAX 
    MOV EAX, EBX 
    MOV EBX, EAX 
    ADD EBX, ECX 
    SUB EDX, 1 
    CMP EDX, 1 
    JAE @@1 
    @@end: 
    MOV result, EBX 
end;

@Elite: Ich weiß nicht mehr genau, aber wird die Formel nach ziemlich großen Zahlen nicht etwas ungenau? (Ich weiß bloß noch, dassma mal durch Annäherung was ähnliches rausgekriegt ham)
Und durch ein inc(Index) dürft das Problem mit Beginn bei 0 oder 1 geklärt sein

@Sharky: Man kann ja alle 4 Versionen hinzufügen (Rekursiv, Iterativ, Iterativ ASM und Formel)

[glkgereon]

ok, also meins funzt jetzt auch.

ich werd, wenns recht is, die versionen in nem neuen thread nochmal reinstellen.

werd alle eigentlichen autoren nennen, und'n performance-test machen vorher.

das asm endet imho in ner endlosschleife....mein prog hängt sich dabei einfach auf...

[glkgereon]

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

oder mach ich was falsch?

irgendwie funkt das net