\START92\
\COMMENT=PROGRAMM DATUM 04.02.2001
\NAME=blumds89
\FILE=BLUMDS89.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*tistat.zzstetig()\->\a
8*tistat.zzstetig()\->\b
PktEin  a,b
10*GanzZahl(b)+GanzZahl(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*tistat.nv_dfkt(x,q,s)
FktAus 1
max(liste3)\->\n
q/n\->\p
liste3\->\liste5
80*tistat.binewkt(n,p)\->\liste5
NeuPlot 2,2,liste3,liste5,,,,4,1
PlotsEin 2
ZeigGraf
Pause  
liste3\->\liste6
80*tistat.poisewkt(q,liste3)\->\liste6
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\