Forum: Programmieren allgemein
by rollstuhlfahrer,
18. Jan 2010
ja und der Pfeil zeigt auf das kleinere. Ich weiß-
Forum: Programmieren allgemein
by rollstuhlfahrer,
18. Jan 2010
So, nun nochmal. Ich scheine mich wohl nicht nur während irgendwelchen Mathearbeiten grundsätzlich irgendwo zu verrechnen. Scheint wohl irgendwo erblich veranlagt zu sein. Zu dem viel zu hohen Zwischenergebnis: falsch Optimiert. Ich hab das falsche gekürzt, weil ich dachte, dass sich das andere irgendwie anders errechnet. War aber nicht so.
Zu dem total falschen Ergebnis: 7! / 6! = 7 und nicht...
Forum: Programmieren allgemein
by rollstuhlfahrer,
17. Jan 2010
ich hab jetzt mal noch abschließend einen Speedtest über alle hier vorgestellten Funktionen gemacht. Als Basiswerte gelten für n=1754 und für k=600. Der Test wurde auf einer VM gemacht. Prozessor des Hosts: 1x AMD Turion x64 (2,0 GHz). Delphi 7
Es kamen folgende Ergebnisse zu stande:
Mit Optimierung (gemittelt aus 5 Tests)
N ueber K-Funktion Anzahl aus Post Dauer Dauer ...
Forum: Programmieren allgemein
by rollstuhlfahrer,
15. Jan 2010
Ich hab in den einfachen Code das mit dem Kürzen mal integriert. Die Zwischenergebnisse sollten hier wesentlich kleiner sein.
function fakultaet2(start, ende: integer): extended;
var
i: integer;
begin
if ende > start then
raise EMathError.Create('Start kleiner als Ende');
Result := 1;
for i := start to ende do
