Cls
"DISTRIBUICAO"
"NORMAL"
" "
"PROB EM (0,N)"
" "
"(VERS 1.1)"
" "
0ÞB
While B<200
B‰1ÞB
WhileEnd
0.1ÞA
Lbl 1
Graph Y=Q(A)
P(A)ÞJ
P(‡A)ÞK
(J™K)¹2ÞL
Text 5,5,L
Text 15,5,"(0,N)"
Text 25,5,"N=":Text 35,5,A:Text 45,5,K
For 1ÞB To 900
Next
A‰.1ÞA
If A=2
Then Goto 2
Else Goto 1
Lbl 2