Statistik-Laborstepfunts1Saldo<-rep(0,AnzahlLaeufe)
Laenge<-rep(0,AnzahlLaeufe)
pair<-seq(2,36,by=2)
impair<-seq(1,35,by=2)
rouge<-c(1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,35)
noir<-c(2,4,6,8,10,11,13,15,17,20,22,24,26,28,29,31,33,35)
manque<-c(1:18)
passe<-c(19:36)
# Initialisierung des Setzens
satzhoehe<-Einsatz
a<-Coup
# Zuordnen der gesetzten Chance
{
if(a=="pair") { satz<-pair }
else if (a=="impair") {satz<-impair }
else if (a=="rouge") {satz<-rouge}
else if (a=="noir") {satz<-noir }
else if (a=="manque") {satz<-manque}
else if (a=="passe") {satz<-passe}
else stop(message="Nur einfache Chancen sind zugelassen")
}
for (wieder in 1:AnzahlLaeufe)
{
satzhoehe <- Einsatz
it<-0
saldo<-0
coup<-floor(runif(Anzahl,min=0,max=37)) # Werfen der Kugel
while(satzhoehe>0 & satzhoehe<=Limit & ((Kapital+saldo)>=satzhoehe) & it<Anzahl) {
it<-it+1
gewinn<-0
if (coup[it]%in%satz) # Bestimmen ob Gewinn
{
gewinn <- 1
saldo <- saldo+satzhoehe
satzhoehe <- satzhoehe-1
}
if (coup==0 )
{
saldo <- saldo-0.5*satzhoehe
}
if (coup!=0 & gewinn==0 )
{
saldo <- saldo-satzhoehe
satzhoehe <- satzhoehe+1
}
}
Saldo[wieder]<-saldo
Laenge[wieder]<-it
}
par(mfrow=c(1,2))
hist(Saldo,breaks=floor(10*log10(AnzahlLaeufe)),freq=T,main = "Histogramm von Saldo",border="blue",density = 20, angle = 45, col = "blue")
hist(Laenge,breaks=floor(10*log10(AnzahlLaeufe)),freq=T,main = "Histogramm von Serienlänge",border="blue",density = 20, angle = 45, col = "blue")
1{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fswiss\fprq2\fcharset0 Verdana;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs24 Mittlerer Gewinn : @(print(mean(Saldo)))
\par Standardabweichung Gewinn: @(print(sd(Saldo)))
\par Mittlerer Serienl\'e4nge : @(print(mean(Laenge)))
\par Standardabweichung Serienl\'e4nge: @(print(sd(Laenge)))
\par
\par }
1Datensatz(D11)1"pair"10000101pair1000010100100200