Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: n über k - berechnen!?

   
    by Amateurprofi, 19. Jan 2010
  Hallo Bernhard,
  Zunächst zu deiner abschließenden Frage:
  Ich weiß nicht, wie viele Fehler ich mache, weil ich wenig Hinweise auf Fehler erhalte. Aber es wäre nett, wenn du meine Beiträge einmal kritisch anschaust und darüber berichtest. Ich freue mich, wenn man mir meine Fehler aufzeigt, denn das gibt mir die Möglichkeit, daraus zu lernen.
  
  Dann zu deinem Vorschlag, wie N über K gerechnet...
• Forum: Programmieren allgemein

  Re: n über k - berechnen!?

   
    by Amateurprofi, 18. Jan 2010
  Hallo Bernhard,
  Tja, dann hab ich im Code aus #36 auch mal die Prüfung auf "ende kleiner start" weggelassen.
  Dann ergibt NueberK(49,6) = 83902896, und als fleißige Lottospieler wissen wir doch, daß 49 über 6 = 13983816 ergibt.
  Dein Programm errechnet das Produkt aus 6*7*8*...*49 und teilt das dann durch 43!.
  Sorry, aber mir ist immer noch nicht klar was das soll.
  Du sagtest "Ich hab in den...
• Forum: Programmieren allgemein

  Re: n über k - berechnen!?

   
    by Amateurprofi, 18. Jan 2010
  Aber ich ! (Das etwas genauere Ergebnis siehe weiter unten)
  
  @Wolfgang:
  Bei mir braucht der Windows-Rechner ca. 58 s, um 100000! zu berechnen. Mein (selbstgeschriebenes) Programm braucht knapp 2 s, allerdings rechnet es mit einer Genauigkeit von > 9600 Dezimalstellen und nicht nur mit 32.
  Wenn ich die Genauigkeit auf ca. 39 Dezimalstellen einstelle dann steht das Ergebnis (subjektiv...
• Forum: Programmieren allgemein

  Re: n über k - berechnen!?

   
    by Amateurprofi, 17. Jan 2010
  Hallo Bernhard,
  Wenn ich deine Funktion NueberK aus #36 mit den Werten n=1754 und k=600 aufrufe dann wirft die eine Exception.
  Insofern bin ich nicht in der Lage deine Messergebnisse qualifiziert zu kommentieren.
  Die Exception wird in der Funktion Fakultaet2 ausgelöst, wobei mir nicht klar ist, was diese Funktion überhaupt machen soll.
  Die Funktion hat die Parameter start und ende und es gibt...
• Forum: Programmieren allgemein

  Re: n über k - berechnen!?

   
    by Amateurprofi, 16. Jan 2010
  Weil man vielleicht auch mal größere Werte berechnen möchte.
• Forum: Programmieren allgemein

  Re: n über k - berechnen!?

   
    by Amateurprofi, 16. Jan 2010
  Ich hab das mal komplett in ASM hingestolpert.
  Wesentliche Änderungen:
  1) wenn N-K < K ist wird NK(N,K) als NK(N,N-K) ausgeführt.
  2) die Routine die versucht Faktoren durch Kürzen zu eleminieren, arbeitet vollständig in der FPU
  
  Besonders bei großen N und großen K ergeben sich durch (1) erhebliche Verbesserungen gegenüber der ursprünglichen Version.
  NK(50,10) 1000000 x ausgeführt =...
• Forum: Programmieren allgemein

  Re: n über k - berechnen!?

   
    by Amateurprofi, 15. Jan 2010
  Vor allem schneller!
  Ich werde mir das im Laufe des Wochenendes mal ansehen und (so hoffe ich) eine schnellere Version posten.
  Vor allem die Prüfung auf Teilbarkeit läßt sich sicherlich besser gestalten.
• Forum: Programmieren allgemein

  Re: n über k - berechnen!?

   
    by Amateurprofi, 15. Jan 2010
  Ich hab das vor langer Zeit mal so gelöst, würde das heute aber etwas anders machen.
  
  FUNCTION Combinations(const n,k:extended):extended;
  const maxk=32767;
  var r1,r2:extended; i,kk,nn,len:integer; ok:boolean;
  list:array of integer;
  //------------------------------------------------------------------------------
  FUNCTION CheckDivisible(var n:integer; k:integer):boolean; register;
  asm
  ...