Statistik-LaborkernsmoothlatticemassmvanlmenlsspatialforeignmodregstepfunctesttsbootclassSiehe Modul "Statistische Wahrscheinlichkeit"http://www.statistiklabor.de/demo/Lernmodule/02_01_Statistische-Wahrscheinlichkeit/Output/index.htmlSiehe Applet "Venn-Diagramm"http://www.statistiklabor.de/demo/Applets/02_Wahrscheinlichkeitsverteilung/Venndiagramm/Venndiagramm.htmlMünzwurf#Hier können Sie die Anzahl der Münzwurfe ändern!
n<-100
#Hier können sie die Wahrscheinlichkeit für das Ereignis Kopf/Zahl ändern!
p<-0.5
#Hier können Sie die Geschwindigkeit variieren!
sleep<-0.1
X <- 1:n
Y1 <- trunc(p+runif(n,min=0,max=1))
Y1 <- cumsum(Y1)/X
Y2 <- trunc(p+runif(n,min=0,max=1))
Y2 <- cumsum(Y2)/X
plot(c(0,(n+1)),rep(p,2),type="l",pch=16,xlim=c(0,100),ylim=c(0,1),col="black")
points(1,Y1[1], cex=0.1)
i<-1
while (i < n){
tim0 <- proc.time()
tim0 <- tim0[3]
tim <- tim0
while ((tim0 +sleep) > tim )
{ tim <- proc.time()
tim<-tim[3] }
i<-i+1
lines(c((i-1),i),c(Y1[i-1],Y1[i]),col="red")
}
plot(c(0,(n+1)),rep(p,2),type="l",pch=16,xlim=c(0,100),ylim=c(0,1),col="black")
lines(X,Y1,col="blue")
i<-1
while (i < n){
tim0 <- proc.time()
tim0 <- tim0[3]
tim <- tim0
while ((tim0 +sleep) > tim )
{ tim <- proc.time()
tim<-tim[3] }
i<-i+1
lines(c((i-1),i),c(Y2[i-1],Y2[i]),col="red")
}Münzwurf{\rtf1\ansi\ansicpg1252\deff0\deflang1031{\fonttbl{\f0\fnil\fcharset0 Courier New;}}
{\colortbl ;\red0\green0\blue0;}
\viewkind4\uc1\pard\cf1\f0\fs16 BEI DIESER SIMUALTION WIRD DIE RELATIVE H\'c4UFIGKEIT F\'dcR DAS AUFTRETEN VON KOPF/ZAHL BEI M\'dcNZWURFEN SIMULIERT. DABEI WIRD DARGESTELLT, WIE OFT DIESES EREIGNIS BEI DEN BISHERIGEN W\'dcRFEN AUFGETRETEN IST. SIE K\'d6NNEN PARAMETER\'c4NDERUNGEN IM R-KALKULATOR VORNEHMEN.
\par }
Münzwurf