PROGRAMME DE CALCUL DE LA LOI NORMALE

 

Prgm
ClrIO
Disp "N(m,s)"
Input "m=",x
Input "s=",y
Disp "Si P(X?),taper 1"
Input "Si P(X>?),taper 2",c
If c=1 Then
Input "P(X?)",z
Else
Input "P(X>?)",z
EndIf
(z-x)/yt
Disp "t=(x-m)/s suit N(0,1)"
Disp "t=",t
If t0 and c=1 Then
(1/((2*P))*e^(-x^2/2),x,-,-t)s
Disp "P(t)=",approx(s)
ElseIf t<0 and c=1 Then
1-(1/((2*P))*e^(-x^2/2),x,-,-t)s
Disp "1-P(|t|)=",approx(s)
ElseIf t<0 and c=2 Then
(1/((2*P))*e^(-x^2/2),x,-,-t)s
Disp "1-(1-P(|t|)=",approx(s)
Else
1-(1/((2*P))*e^(-x^2/2),x,-,t)s
Disp "1-P(|t|))=",approx(s)
EndIf
EndPrgm