Re: n über k - berechnen!?
@jfheins Danke, da war mein Knick in der Denke,
war schon zu lange her, daß ich das 'mal brauchte. Der Code ist also okay :) @patti: hat sich geklärt, danke Gruß Wolfgang |
Re: n über k - berechnen!?
Zitat:
Übrigens gibt (49 über 6) nicht die Wahrscheinlichkeit eines Gewinns mit 6 Richtigen an, sondern die Anzahl der Kombinationen die man in 6 aus 49 bilden kann. Eine dieser Kombinationen ist dann der Gewinn. Deshalb ist die Wahrscheinlichkeit 1/(49 über 6). Wenn du also (49 über 6) unterschiedliche Tips abgibst, ist sicher ein 6er dabei. |
Re: n über k - berechnen!?
Zitat:
Code:
da alle Kombinationen gleich wahrscheinlich sind. Weil es nur einen günstigen Fall gibt, ist die Wahrscheinlichkeit also (49 über 6)^(-1).
Wahrscheinlichkeit = (Anzahl der günstigen Fälle) / (Anzahl der möglichen Fälle)
mfg |
Re: n über k - berechnen!?
Zitat:
|
Re: n über k - berechnen!?
Habe den Code noch leicht abgeändert.
Die Funktion fakultät bzw nueberk funktioniert bis n(max) = 1754! = 1,97926189010501E4930. Das sollte für Experimente reichen.
Delphi-Quellcode:
Gruß
function fakultaet(N: integer): Extended;
var i: Integer; begin Result := 1; for i := 1 to N do Result := Result * i end; function nueberk(n, k: integer): Extended; begin Result := fakultaet(n) / (fakultaet(n - k) * fakultaet(k)) end; procedure TForm4.Button1Click(Sender: TObject); begin Edit1.Text:=FloatToStr(nueberk(1754,600)); Edit2.Text:=FloatToStr(fakultaet(1754)); //n!(max) = 1754!=1,97926189010501E4930 end; Wolfgang |
Re: n über k - berechnen!?
http://www.matheplanet.com/default3....ne%26spell%3D1
oder hier (auf die harte Tour) http://www.delphi-library.de/topic_B...n_35050,0.html |
Re: n über k - berechnen!?
Danke für die Links,
werde ich mir 'reinziehen. Soll ich noch etwas ändern oder ist etwas noch faul? Grüß Wolfgang |
Re: n über k - berechnen!?
oben habe ich die Möglichkeit zum Kürzen des Bruches beschrieben..
ansonsten wäre das noch möglich: http://upload.wikimedia.org/math/5/1...5b1b818978.png siehe hier: Wikipedia Binomialkoeffizient |
Re: n über k - berechnen!?
|
Re: n über k - berechnen!?
Danke für die Beiträge.
Eine weitere Optimierung bringt ja eigentlich nur etwas, wenn k in die Größenordnung von n kommt. Dann dürte man allerdings nicht n! zuerst ausrechnen lassen, und der Code wird um einiges länger. Werde mich mit dem Thema weiter befassen. Gruß Wolfgang |
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:06 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz