#Medizinische Studie
#10 mehr Erholungen in der zweiten Gruppe
x1<-dbinom(0:40,50,0.4)
x2<-1-pbinom(9:49,50,0.6)
sum(x1*x2)

#Nebenwirkungen
#5 oder mehr FŠlle aus 20000
1-ppois(4,2)

#Elo
#Bessere Leistung als 2200
1-pnorm(2200,2000,200)
#Gewinnt gegen besseren Spieler
mu<-2000-2200
var<-200^2+200^2
sd<-var^0.5
1-pnorm(0,mu,sd)

#Lotto
#Wieviele Ziehungen seit 23.Januar?
nz<-trunc(2*(julian(5,27,2010)-julian(1,23,2010))/7)
#Nie 28
(43/49)^nz
#Erwartungswert und Standardabweichung
mu<-104*(6/49)
sd<-(104*(6/49)*(43/49))^0.5

#Lebensdauer
(pexp(200,0.01))^2