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
satz<-Einsatz
satzhoehe<-Einsatz
a<-Coup
# Zuordnen der gesetzten Chance und Bestimmung des Auszahlungsfaktors
{
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 if (is.numeric(a) ){satz<-a}
else stop(message="Fehler bei Coup")
}
auszahlung <- 36/length(satz)-1
for (wieder in 1:AnzahlLaeufe)
{
satzhoehe <- Einsatz
it<-0
saldo<-0
while(satzhoehe>0 & satzhoehe<=Limit & ((Kapital+saldo)>=satzhoehe) & it<Anzahl) {
it<-it+1
coup<-floor(runif(1,min=0,max=37)) # Werfen der Kugel
gewinn<-0
if (coup%in%satz) # Bestimmen ob Gewinn
{
gewinn <- 1
saldo <- saldo+auszahlung*satzhoehe
satzhoehe <- satzhoehe+auszahlung*satzhoehe
}
{
if (coup==0 & auszahlung==1)
{
saldo <- saldo-0.5*satzhoehe
satzhoehe <- 0.5*satzhoehe
}
else if ( gewinn==0 )
{
saldo <- saldo-satzhoehe
satzhoehe <- Einsatz
}
}
}
Saldo[wieder]<-saldo
Laenge[wieder]<-it
}
par(mfrow=c(1,2))
{if (sd(Saldo)==0)
{
N<-table(Saldo)
plot(N,main = "Stabdiagramm von Saldo", col = "blue")
}
else
{
bsaldo<-floor(10*log10(AnzahlLaeufe))
hist(Saldo,breaks=bsaldo,freq=T,main = "Histogramm von Saldo",border="blue",density = 20, angle = 45, col = "blue")
}}
{if (sd(Laenge)==0)
{
N<-table(Laenge)
plot(N,main = "Stabdiagramm von Serienlänge", col = "blue")
}
else
{
blaenge<-floor(10*log10(AnzahlLaeufe))
hist(Laenge,breaks=blaenge,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 }
2Datensatz(D11)1"pair"10000101pair100001010015200