Oppervlakten onder normaalkrommen

[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

[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.

[SafeX]

Neem eens aan dat de standaarddeviatie 100 is, kan je dan de relevante kansen berekenen ...

[wnvl]

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')