#sqrt(2)*sqrt( pi)*erf(x/sqrt(2))/2
!set n=$counter
!if $subject=11
    var2=0
!endif
rounding=10
!readproc $remarkdir/rounding.$taal
var1=0
# antwoord is een getal, geen kans
questiontype=0
math=0
image=0
cols=15
rows=6
mathview=0
helptext=$empty
formula$n=$empty
checkfile=exos/checkfile1.proc
!if $var2=0
    extra=!record 94 of lang/remarks.$taal
    exotext=!record 13 of lang/remarks.$taal
    #@ (met je grafische rekenmachine)
    exotext=$exotext <br>$extra
!else
    exotext=!record 15 of lang/remarks.$taal
    #@ (met het tabellenboekje)
!endif

!if $level=0
    R=$counter
!else
    R=$level
!endif

mean=!randint 250,1000
mean=$[$mean/10]
a=!randitem 2,3,4,5
sig1=$[floor($mean/10)]
sig2=$[$sig1+$a]
sigma=!randint $[10*$sig1],$[10*$sig2]
sigma=$[$sigma/10]
b=!randint 1,27
b=$[$b/10]
pm=!randitem +,-
g=$[round(10*($mean $pm $sigma*$b))/10]
g1=$[round(10*($mean - $sigma*$b))/10]
g2=$[round(10*($mean + $sigma*$b))/10]

P=<font size="+1"><b>P</b></font>

!if $R=1
    Z=$[($g-$mean)/$sigma]
    Z1=$[round(100*(($g-$mean)/$sigma))/100]
    S=-1000000
    kans=$[0.5*(erf($Z/sqrt(2))-erf($S/sqrt(2)))]   
    kans=$[(round(10000*$kans))/10000]   
    kans1=$[0.5*(erf($Z1/sqrt(2))-erf($S/sqrt(2)))]   
    kans1=$[(round(10000*$kans1))/10000]   
    ss=!record 73 of lang/remarks.$taal
    #@ Bereken voor de normaal verdeelde variabele V het gemiddelde &mu; als:<br>$P(V &le; $g | &mu;=? en &sigma;=$sigma)=$kans
    question$n=$ss
    answer$n=$mean 
    !if $var2=0
   	rr=!record 74 of lang/remarks.$taal
	#@ <ul><li>$P(V &le; $g | &mu;=? ; &sigma;=$sigma)=$kans</li><li>intypen in Ti83 <tt>invNorm</tt>($kans); Nu heb je de z-waarde.</li><li>&mu; = $g - z * $sigma</li>&mu; = $g - $Z*$sigma<li>Dus Het gemiddelde = $mean</li></ul>
    !else
	rr=!record 75 of lang/remarks.$taal
	#@ <ul><li>$P(V&le;$g | &mu;=? ; &sigma;=$sigma)=$kans</li><li>Zoek in je tabel de kans die het dichtst bij $kans ligt</li><li>Dat is $kans1</li><li>De bijbehorende z=$Z1</li><li>Gebruik de formule z=(g - &mu; )/ &sigma; </li><li>Dus $Z1=($g-&mu;)/$sigma</li><li>Dan $Z1*$sigma=$g-&mu;</li><li>Dus $[$Z1*$sigma]=$g-&mu;</li><li>Dus Het gemiddelde= $mean</li></ul>
    !endif
    textanswer$n=$rr
 !exit
!endif    
!if $R>1
    Z=$[($g-$mean)/$sigma]
    Z1=$[round(100*(($g-$mean)/$sigma))/100]
    S=-1000000
    kans=$[0.5*(erf($Z/sqrt(2))-erf($S/sqrt(2)))]   
    kans=$[(round(10000*$kans))/10000]   
    kans1=$[0.5*(erf($Z1/sqrt(2))-erf($S/sqrt(2)))]   
    kans1=$[(round(10000*$kans1))/10000]   
    ss=!record 76 of lang/remarks.$taal
    #@ Bereken voor de normaal verdeelde variabele V het gemiddelde &mu; als:<br>$P(V &ge; $g | &mu;=? en &sigma;=$sigma)=$[1-$kans]
    question$n=$ss
    answer$n=$mean 
    !if $var2=0
   	rr=!record 77 of lang/remarks.$taal
	#@ <ul><li>$P(V &ge; $g | &mu;=? ; &sigma;=$sigma)=$[1-$kans]</li><li>$P(V &lt; $g | &mu;=? ; &sigma;=$sigma)=$kans</li><li>intypen in Ti83 <tt>invNorm</tt>($kans); Nu heb je de z-waarde.</li><li>&mu; = $g - z * $sigma</li>&mu; = $g - $Z*$sigma<li>Dus Het gemiddelde = $mean</li></ul>
    !else
	rr=!record 78 of lang/remarks.$taal
	#@ <ul><li>$P(V&ge;$g | &mu;=? ; &sigma;=$sigma)=$[1-$kans]</li><li>$P(V&lt;$g | &mu;=? ; &sigma;=$sigma)=$kans</li><li>Zoek in je tabel de kans die het dichtst bij $kans ligt</li><li>Dat is $kans1</li><li>De bijbehorende z=$Z1</li><li>Gebruik de formule z=(g - &mu; )/ &sigma; </li><li>Dus $Z1=($g-&mu;)/$sigma</li><li>Dan $Z1*$sigma=$g-&mu;</li><li>Dus $[$Z1*$sigma]=$g-&mu;</li><li>Dus Het gemiddelde= $mean</li></ul>
    !endif
    textanswer$n=$rr
 !exit
!endif    

# answer$n=!exec pari (round($rounding*(intnum(x=$S,$Z,e^(-0.5*x^2)))/(sqrt(2*pi))))/(1.0*$rounding)
