"Anteil.der.Sechsen.Plot" <-
function () 
{
# Plottet den Anteil der Sechsen für Wurfanzahlen von 10 bis 500
plot(seq(0,500,50),seq(0,500,50)*0+1/6,xlab="Wurfanzahl",
  ylab="Anteil der Sechsen", ylim=c(0,1/2),type="l")
for(N in seq(10,500,10)){
points(N,wuerfel(N)$Anteil,pch=16)
}
}