Pagina 1 van 1
Oppervlakten onder normaalkrommen
Geplaatst: 11 mar 2016, 18:57
door Chayenneflohr
Van een normale verdeling is het gemiddelde 1050.
Van de waarnemingen kleiner dan 1000 is de mediaan 980. Bereken de standaardafwijking in gehelen nauwkeurig.
Lieve mensen, wie kan mij helpen om deze som te maken zonder een grafische rekenmachine?
Bij voorbaat dank!
Xoxo chayenne
Re: Oppervlakten onder normaalkrommen
Geplaatst: 11 mar 2016, 22:43
door wnvl
Grafische rekenmachine of niet. Het lijkt mij op het eerste gezicht toch "trial and error" tot het mooi uitkomt. Ik denk dat je een iteratief proces nodig hebt. Ik zie geen rechtoe rechtaan methode die je zomaar naar de oplossing leidt.
Re: Oppervlakten onder normaalkrommen
Geplaatst: 12 mar 2016, 15:49
door SafeX
Neem eens aan dat de standaarddeviatie 100 is, kan je dan de relevante kansen berekenen ...
Re: Oppervlakten onder normaalkrommen
Geplaatst: 16 mar 2016, 22:00
door wnvl
SafeX schreef:Neem eens aan dat de standaarddeviatie 100 is, kan je dan de relevante kansen berekenen ...
Ben eens gestart bij 50 en dan telkens gecorrigeerd. Ik kom dan uit op 49.18.
Code: Selecteer alles
sdx=50
i=1
while(i <= 1000) {
if((pnorm(1000,mean=1050,sd=sdx)) > (2* pnorm(980,mean=1050,sd=sdx))) {
sdx <-sdx+0.01
}
else {
sdx <-sdx-0.01
}
i <- i + 1
}
curve(dnorm(x,1050,sdx),xlim=c(900,1200),main='Standard Normal')
cord.x <- c(900,seq(900,980,0.01),980)
cord.y <- c(0,dnorm(seq(900,980,0.01), mean=1050,sd=sdx),0)
polygon(cord.x,cord.y,col='skyblue')
cord.x <- c(980,seq(980,1000,0.01),1000)
cord.y <- c(0,dnorm(seq(980,1000,0.01), mean=1050,sd=sdx),0)
polygon(cord.x,cord.y,col='yellow')
