1-1a
Platz | Motor | Punkte | % | 1 | 1a | S-B |
---|---|---|---|---|---|---|
1 | 1 | 49,0/80 | 61,2 | · ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· | 11==10111=11==1111=====01010==101=====1==01=11=11===11=100====0======0011====1=1 | 1519,00 |
2 | 1a | 31,0/80 | 38,7 | 00==01000=00==0000=====10101==010=====0==10=00=00===00=011====1======1100====0=0 | · ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· ·· | 1519,00 |
anzahl=10
pGewinn=0.50
pRemis=0.30
pVerlust=0.20
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=15
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
aus.writeLine " Punkte Erfolg Wahrsch.genau W.hoechstens W.mindestens "
aus.writeLine "---------------------------------------------------------------------------"
for j=0 to 2*anzahl
mind=1-hoechst
hoechst=hoechst+feld(j)
s = form(j/2,5,1) & form(100*j/2/anzahl,5,1) & form(feld(j),3,genau) & form(hoechst,3,genau) & form(mind,3,genau)
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 Spiele : 10
Wahrsch. (Gewinn/Remis/Verlust) : 0,5 / 0,3 / 0,2
Punkte Erfolg Wahrsch.genau W.hoechstens W.mindestens
---------------------------------------------------------------------------
0,0 0,0 0,000000102400000 0,000000102400000 1,000000000000000
0,5 5,0 0,000001536000000 0,000001638400000 0,999999897600000
1,0 10,0 0,000012928000000 0,000014566400000 0,999998361600000
1,5 15,0 0,000076032000000 0,000090598400000 0,999985433600000
2,0 20,0 0,000345024000000 0,000435622400000 0,999909401600000
2,5 25,0 0,001267315200000 0,001702937600000 0,999564377600000
3,0 30,0 0,003884304000000 0,005587241600000 0,998297062400000
3,5 35,0 0,010118592000000 0,015705833600000 0,994412758400000
4,0 40,0 0,022685538000000 0,038391371600000 0,984294166400000
4,5 45,0 0,044101206000000 0,082492577600000 0,961608628400000
5,0 50,0 0,074671794900000 0,157164372500000 0,917507422400000
5,5 55,0 0,110253015000000 0,267417387500000 0,842835627500000
6,0 60,0 0,141784612500000 0,409202000000000 0,732582612500000
6,5 65,0 0,158103000000000 0,567305000000000 0,590798000000000
7,0 70,0 0,151730625000000 0,719035625000000 0,432695000000000
7,5 75,0 0,123761250000000 0,842796875000000 0,280964375000000
8,0 80,0 0,084234375000000 0,927031250000000 0,157203125000000
8,5 85,0 0,046406250000000 0,973437500000000 0,072968750000000
9,0 90,0 0,019726562500000 0,993164062500000 0,026562500000000
9,5 95,0 0,005859375000000 0,999023437500000 0,006835937500000
10,0 100,0 0,000976562500000 1,000000000000000 0,000976562500000
Erwartungswert : 6,5
Varianz : 1,525
Standardabweichung : 1,23490890352285
Erwartung.Fehler : 0,97820625
3,5 35,0 0,010118592000000 0,015705833600000 0,994412758400000
22,5 22,5 0,000000000000000 0,000000000000000 1,000000000000000
23,0 23,0 0,000000000000000 0,000000000000001 1,000000000000000
23,5 23,5 0,000000000000001 0,000000000000002 0,999999999999999
24,0 24,0 0,000000000000004 0,000000000000006 0,999999999999998
...
37,5 37,5 0,000009578450008 0,000021961910096 0,999987616539912
38,0 38,0 0,000016325866739 0,000038287776835 0,999978038089904
38,5 38,5 0,000027337707169 0,000065625484004 0,999961712223165
...
46,5 46,5 0,010006837349988 0,040305919450411 0,969700917899577
47,0 47,0 0,012535306406376 0,052841225856786 0,959694080549589
47,5 47,5 0,015443091169240 0,068284317026027 0,947158774143214
...
51,5 51,5 0,045044996853004 0,324584721870360 0,720460274982645
52,0 52,0 0,047785835546112 0,372370557416471 0,675415278129640
52,5 52,5 0,049857316652815 0,422227874069287 0,627629442583529
53,0 53,0 0,051159766388655 0,473387640457942 0,577772125930713
53,5 53,5 0,051628483976127 0,525016124434069 0,526612359542058
54,0 54,0 0,051239038729755 0,576255163163824 0,474983875565931
54,5 54,5 0,050009364526260 0,626264527690084 0,423744836836176
55,0 55,0 0,047998403477068 0,674262931167152 0,373735472309916
55,5 55,5 0,045301440206519 0,719564371373671 0,325737068832848
...
81,5 81,5 0,000000000000015 0,999999999999999 0,000000000000016
82,0 82,0 0,000000000000005 1,000000000000000 0,000000000000001
82,5 82,5 0,000000000000001 1,000000000000010 -0,000000000000004
83,0 83,0 0,000000000000000 1,000000000000010 -0,000000000000005
Powered by mwForum 2.29.3 © 1999-2014 Markus Wichitill