\START92\
\COMMENT=PROGRAMM DATUM 04.02.2001
\NAME=blumdn89
\FILE=BLUMDN89.9XP
(t)
Prgm
L\O..\EA
FktAus  
defGraph("6","1")
L\O..\Haupt
L\O..\Graph
PlotsAus  
0\->\xmin

10\->\xmax

10\->\xscl

0\->\ymin

8\->\ymax

8\->\yscl

Zeige "START"
Zeige "ANZAHL DER BLUMEN ="
Zeige t
Pause  
Zeige "A MOMENT, PLEASE"
Folge(x,x,1,81)\->\liste1

Folge(0,x,1,81)\->\liste2

t\->\liste1[81]

0\->\m

Marke lm
m+1\->\m

10*ZufallZ()\->\a

8*ZufallZ()\->\b

PktEin  a,b
10*VorKomma(b)+VorKomma(a)+1\->\n

liste2[n]+1\->\liste2[n]

If  m<t
Goto lm
Pause  
0\->\n

Marke lp
n+1\->\n

Linie 0,n,10,n
If n<8
Goto lp
0\->\n

Marke lq
n+1\->\n

Linie n,0,n,8
If n<10
Goto lq
Pause  
max(liste2)+1\->\p

Folge(x-1,x,1,p)\->\liste3

Folge(0,x,1,p)\->\liste4

0\->\n

Marke ls
n+1\->\n

liste2[n]+1\->\q

liste4[q]+1\->\liste4[q]

If n<80
Goto ls
max(liste4)+1\->\ymax

5\->\yscl

max(liste3)+1\->\xmax

1\->\xscl

\(-)\0.5\->\xmin

NeuPlot 1,4,liste3,,liste4,,,,1
PlotsEin 1
ZeigGraf
Pause  
liste1[81]/80\->\q

Summe((liste3-q)^2*liste4)/79\->\s

\root\(s)\->\s

Definier  y1(x)=80*\e\^(\(-)\.5*((x-q)/s)^2)/(s*\root\(2*4*Tan\^-1\(1)))
FktAus 1
max(liste3)\->\n

q/n\->\p

liste3\->\liste5

\(-)\1\->\k

Marke lk
k+1\->\k

80*Kombinat(n,k)*p^k*(1-p)^(n-k)\->\liste5[k+1]

If k<n
Goto lk

NeuPlot 2,2,liste3,liste5,,,,4,1
PlotsEin 2
ZeigGraf
Pause  
liste3\->\liste6

\(-)\1\->\k

Marke ll
k+1\->\k

80*\e\^(\(-)\q)*q^k/(k!)\->\liste6[k+1]

If k<n
Goto ll
NeuPlot 3,2,liste3,liste6,,,,1,1
PlotsEin 3
ZeigGraf
Pause  
PlotsAus 2,3
ZeiStil 1,"Thick"
FktEin 1
ZeigGraf
Pause  
PlotsEin 2,3
ZeigGraf
Pause  
EndPrgm

\STOP92\