Jump to content

Sky Slate Blueberry Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate
Photo

WM-Vorrunde Wahrscheinlichkeit berechnen


  • Please log in to reply
6 replies to this topic
Kibo
  • Members
  • 36 posts
  • Last active: Aug 09 2015 07:56 PM
  • Joined: 14 Mar 2012

Hier ein schnell geschriebenes Script zum Berechnen der Wahrscheinlichkeit, ob Deutschland weiter ist.

Es lässt sich auf alle Mannschaften, auf für Zukünfitge WMs anwenden, man muss dann enstprechgend die If-Anweisungen anpassen.

; Berechnet alle möglichen Vorrunden-Ergebnisse (nur gewinn, verlust, unentschieden)
; Vorbedingungen für Deutschland: erstes Spiel gewonnen, zweites spiel unentschieden (spiel6a=3 && spiel5a=1)
; Wenn Vorbedingung erfüllt & Erster oder zweiter platz = treffer
; Dieses Programm ist geschrieben von Kibo

FileDelete, vorrundenergebnis.txt
loop 729
{
	/*
	spiel1a:=  mod(zähler, 3)<1 ? 0 :  mod(zähler, 3)<2 ? 1 : 3 
	spiel1b:= spiel1a =3 ? 0 : spiel1a=1 ? 1 : 3
	spiel2a:=  mod(zähler, 9)<3 ? 0 :  mod(zähler, 9)<6 ? 1 : 3 
	spiel2b:= spiel2a =3 ? 0 : spiel2a=1 ? 1 : 3
	*/
	inzähler=7
	loop 6 ; erzeugt wahrscheinlichkeitstabelle für alle 6 vorrundenspiele
	{
		inzähler--
		spiel%inzähler%a:=dreier(zähler,3**inzähler)
		spiel%inzähler%b:= spiel%inzähler%a =3 ? 0 : spiel%inzähler%a=1 ? 1 : 3
	}
	A:= spiel6a + spiel5a + spiel4a ; nach a x b = spiel6a:spiel6b , a x c = spiel5a:spiel5b, a x d = spiel4a:spiel4b, b x c, b x d, c x d  A: Gesamtpunktzahl für Mannschaft a usw.
	B:= spiel6b + spiel3a + spiel2a
	C:= spiel5b+spiel3b+spiel1a
	D:= spiel4b+spiel2b+spiel1b
	ergebnis:= "A:"  A " B:" B " C:" C " D:" D "`n"
	feld:=object()
	feld:={1:{m:"a", n:A}, 2:{m:"b", n:B}, 3:{m:"c", n:C}, 4:{m:"d", n:D}}	
	bubblesort( feld, "n")
	if (spiel6a=3 && spiel5a=1) ; 
	{
	 vorbedingung++
	 if (feld[4,"m"]="a" || feld[3,"m"]="a")
	  weiter++
	}
	FileAppend, % feld[1,"m"] ": " feld[1,"n"] " " feld[2,"m"] ": " feld[2,"n"] " " feld[3,"m"] ": " feld[3,"n"] " "  feld[4,"m"] ": " feld[4,"n"] "`n", vorrundenergebnis.txt
	zähler++
}
prozent:=100*weiter/vorbedingung
FileAppend, A ist weiter in %weiter% von %vorbedingung% passenden spielen`, das sind %prozent% `%, vorrundenergebnis.txt
MsgBox A ist weiter in %weiter% von %vorbedingung% passenden spielen`, das sind %prozent% `%
run vorrundenergebnis.txt

dreier(a,b)
{
return mod(a, b)<b/3 ? 0 : mod(a, b)<2*b/3 ? 1 :3
}

bubblesort(byref a, key)
{
 
 max=
 max2:=max:=a.Maxindex()-1
 loop %max%
 {
  index=0
	Loop %max2%
	{
		index++
		if a[index, key]>a[index+1, key]
		{
			tmp:=a[index]
			a[index]:=a[index+1]
			a[index+1]:=tmp
		}
	}
  max--
 }
}



garry
  • Spam Officer
  • 3219 posts
  • Last active: Feb 06 2016 09:32 PM
  • Joined: 19 Apr 2005

danke

wo ist Paul der Krake ( von 2010 )  ?

http://en.ria.ru/spo.../159747480.html



Kibo
  • Members
  • 36 posts
  • Last active: Aug 09 2015 07:56 PM
  • Joined: 14 Mar 2012

Der Gute ist friedlich eingeschlafen...

 

http://www.spiegel.d...t-a-725415.html



Kibo
  • Members
  • 36 posts
  • Last active: Aug 09 2015 07:56 PM
  • Joined: 14 Mar 2012

doppelpost bitte löschen



Kibo
  • Members
  • 36 posts
  • Last active: Aug 09 2015 07:56 PM
  • Joined: 14 Mar 2012

doppelpost bitte löschen



strobo
  • Members
  • 359 posts
  • Last active: Mar 10 2015 08:13 PM
  • Joined: 19 Jun 2012

Oder einfach so;)

msgbox 1

Regards,
Babba

garry
  • Spam Officer
  • 3219 posts
  • Last active: Feb 06 2016 09:32 PM
  • Joined: 19 Apr 2005

ja, danke , Paul is gone , Paul the Octopus, you are sadly missed

http://www.dnaindia....s-death-1997142