anzahl=100
pGewinn=0.24
pRemis=0.40
pVerlust=0.36
wscript.echo "######## Wahrscheinlichkeiten berechnen"
dim feld(20005)
feld(0)=1
for i=1 to anzahl
for j=2*i to 2 step -1
feld(j) = feld(j-2)*pGewinn + feld(j-1)*pRemis + feld(j)*pVerlust
next
feld(1) = feld(0)*pRemis + feld(1)*pVerlust
feld(0) = feld(0)*pVerlust
next
wscript.echo "######## Erwartungswert, Varianz, Standaradabweichung, Erwartungswert des Fehlerbetrages"
for p=0 to 2*anzahl
erw=erw+p*feld(p)/2
next
for p=0 to 2*anzahl
var=var+feld(p)*(p/2-erw)^2
eFehler=eFehler+feld(p)*abs(p/2-erw)
next
stAbw=sqr(var)
wscript.echo "######## Ergebnis ausgeben"
genau=13
set FSO=createObject ( "Scripting.FileSystemObject")
set aus = FSO.openTextfile("match.txt",2,true)
aus.writeLine "Anzahl Spiele : " & anzahl
aus.writeLine "Wahrsch. (Gewinn/Remis/Verlust) : " & pGewinn & " / " & pRemis & " / " & pVerlust
aus.writeLine "Überlegenheit : " & pGewinn + pRemis/2 & " : " & pRemis/2 + pVerlust
aus.writeLine "Erwartung : " & anzahl*(pGewinn + pRemis/2) & " : " & anzahl*(pRemis/2 + pVerlust)
aus.writeLine
aus.writeLine " Punkte % Wahrsch.genau W.hoechstens W.mindestens ELO-Diff."
aus.writeLine "-------------------------------------------------------------------------------"
for j=0 to 2*anzahl
mind=1-hoechst
hoechst=hoechst+feld(j)
punkte=j/2
prozent=100*j/2/anzahl
if (prozent=0) then elo=-9999
if (prozent=100) then elo=+9999
if (prozent<> 0) and (prozent<> 100) then
elo = -400 * log(1/(prozent/100)-1) / log(10)
end if
s = form(punkte,5,1) & form(prozent,5,1) & form(feld(j),3,genau) & form(hoechst,3,genau) & form(mind,3,genau) & form(ELO,9,0)
aus.writeLine s
next
aus.writeLine
aus.writeLine "Erwartungswert : " & erw
aus.writeLine "Varianz : " & var
aus.writeLine "Standardabweichung : " & stAbw
aus.writeLine "Erwartung.Fehler : " & eFehler
aus.close
function form (z,v,n)
form=right(" " & formatnumber(z,n),v+1+n)
end function
cscript /Nologo match.vbs
notepad match.txt
anzahl=6
pGewinn=0.24
pRemis=0.40
pVerlust=0.36
...
Anzahl Spiele : 6
Wahrsch. (Gewinn/Remis/Verlust) : 0,24 / 0,4 / 0,36
Überlegenheit : 0,44 : 0,56
Erwartung : 2,64 : 3,36
Punkte % Wahrsch.genau W.hoechstens W.mindestens ELO-Diff.
-------------------------------------------------------------------------------
0,0 0,0 0,0021767823360 0,0021767823360 1,0000000000000 -9.999
0,5 8,3 0,0145118822400 0,0166886645760 0,9978232176640 -417
1,0 16,7 0,0490179133440 0,0657065779200 0,9833113354240 -280
1,5 25,0 0,1080926208000 0,1737991987200 0,9342934220800 -191
2,0 33,3 0,1717737062400 0,3455729049600 0,8262008012800 -120
2,5 41,7 0,2060550144000 0,5516279193600 0,6544270950400 -58
3,0 50,0 0,1908460748800 0,7424739942400 0,4483720806400 -0
3,5 58,3 0,1373700096000 0,8798440038400 0,2575260057600 58
4,0 66,7 0,0763438694400 0,9561878732800 0,1201559961600 120
4,5 75,0 0,0320274432000 0,9882153164800 0,0438121267200 191
5,0 83,3 0,0096825507840 0,9978978672640 0,0117846835200 280
5,5 91,7 0,0019110297600 0,9998088970240 0,0021021327360 417
6,0 100,0 0,0001911029760 1,0000000000000 0,0001911029760 9.999
Erwartungswert : 2,64
Varianz : 0,8784
Standardabweichung : 0,937229961108799
Erwartung.Fehler : 0,7583999459328
anzahl=100
pGewinn=0.24
pRemis=0.40
pVerlust=0.36
41,0 41,0 0,0385914856441 0,2368191346903 0,8017723509538 -63
Powered by mwForum 2.29.3 © 1999-2014 Markus Wichitill