##Einstellen des Diagrammbereichs für 6 Abbildungen
par(mfrow=c(3,2))

##Erstellen der Zufallsziehungen aller Teilaufgaben
#(a)
xa_100<-rnorm(100,mean=0,sd=1)
xa_1000<-rnorm(1000,mean=0,sd=1)

#(b)
xb_100<-rnorm(100,mean=1,sd=1)
xb_1000<-rnorm(1000,mean=1,sd=1)

#(c)
xc_100<-rnorm(100,mean=1,sd=2)
xc_1000<-rnorm(1000,mean=1,sd=2)

##Erstellen der Abbildungen
#Festlegen der x-Werte
x<-seq(-6,6,0.1)

#(a) - 1
#Plot des Histogramms der Zufallszahlen
hist(xa_100,freq=F,xlab="Werte",ylab="Rel. Häufigkeit / Klassenbreite",main=c("Histogramm von 100 Zufallszahlen","mean=0, sd=1"),xlim=c(-6,6),ylim=c(0,0.4))
#Plot der Dichte der Normalverteilung zu gleichen Parametern
lines(x,dnorm(x,mean=0,sd=1),col="red",lwd=2)

#(a) - 2
#Plot des Histogramms der Zufallszahlen
hist(xa_1000,freq=F,xlab="Werte",ylab="Rel. Häufigkeit / Klassenbreite",main=c("Histogramm von 1000 Zufallszahlen","mean=0, sd=1"),xlim=c(-6,6))
#Plot der Dichte der Normalverteilung zu gleichen Parametern
lines(x,dnorm(x,mean=0,sd=1),col="red",lwd=2)

#(b) - 1
#Plot des Histogramms der Zufallszahlen
hist(xb_100,freq=F,xlab="Werte",ylab="Rel. Häufigkeit / Klassenbreite",main=c("Histogramm von 100 Zufallszahlen","mean=1, sd=1"),xlim=c(-6,6))
#Plot der Dichte der Normalverteilung zu gleichen Parametern
lines(x,dnorm(x,mean=1,sd=1),col="red",lwd=2)

#(b) - 2
#Plot des Histogramms der Zufallszahlen
hist(xb_1000,freq=F,xlab="Werte",ylab="Rel. Häufigkeit / Klassenbreite",main=c("Histogramm von 1000 Zufallszahlen","mean=1, sd=1"),xlim=c(-6,6))
#Plot der Dichte der Normalverteilung zu gleichen Parametern
lines(x,dnorm(x,mean=1,sd=1),col="red",lwd=2)

#(c) - 1
#Plot des Histogramms der Zufallszahlen
hist(xc_100,freq=F,xlab="Werte",ylab="Rel. Häufigkeit / Klassenbreite",main=c("Histogramm von 100 Zufallszahlen","mean=1, sd=2"),xlim=c(-6,6))
#Plot des Histogramms der Zufallszahlen
lines(x,dnorm(x,mean=1,sd=2),col="red",lwd=2)

#(c) - 2
#Plot des Histogramms der Zufallszahlen
hist(xc_1000,freq=F,xlab="Werte",ylab="Rel. Häufigkeit / Klassenbreite",main=c("Histogramm von 1000 Zufallszahlen","mean=1, sd=2"),xlim=c(-6,6))
#Plot des Histogramms der Zufallszahlen
lines(x,dnorm(x,mean=1,sd=2),col="red",lwd=2)