Lbl G
GridOff
AxesOff
ViewWindow 0,120,0,0,64,0
Cls
Text 8,8,"PROGRAMM ZUR UNTERSUCHUNG"
Text 18,15,"DER WACHSTUMSGLEICHUNG"
Text 28,24,"a(n+1)=a(n)*W*(1-a(n))"
Text 38,5,"a(0)="
Text 38,20,a(0)
Text 38,55,"W="
Text 38,67,W
Text 38,93,"(n)="
Text 38,105,R End
Text 58,3,"INIT"
Text 58,24,"TABL"
Text 58,45,"TIME"
Text 58,67,"WEB"
Text 58,87,"HELP"
Text 58,110,"END"
Orange Graph Y<=6,[1,16]
F-Line 0,0,0,7:F-Line 0,7,16,7
F-Line 20,0,20,7:F-Line 20,7,36,7
F-Line 40,0,40,7:F-Line 40,7,56,7
F-Line 60,0,60,7:F-Line 60,7,76,7
F-Line 80,0,80,7:F-Line 80,7,96,7
F-Line 100,0,100,7:F-Line 100,7,116,7
Do
GetKey=79=>Goto A
GetKey=69=>Goto B
GetKey=59=>Goto C
GetKey=49=>Goto D
GetKey=39=>Goto E
GetKey=29=>Goto F
LpWhile A=A
Lbl A
ClrText
" ":" ":" "
"  PARAMETEREINGABE "
"  a(n+1)=W*a(n)*(1-a(n))"
"--------------------"
"STARTWERT  a(0)=":?->a(0)
"WACHSTUM    W=":?->W
"ITERATIONEN nano=":?->R End
0->R Start
a(n+1)Type
"a(n)*W*(1-a(n))"->a(n+1)
Goto G
Lbl B
DispR-Tbl
Goto G
Lbl C
DispR-Tbl
AxesOn
ViewWindow 0,R End,5,(-)1,2,2
DrawR-Con
Goto G
Lbl D
ViewWindow 0,2,0,0,1,0
a(0)->a(nStart)
DrawWeb a(n+1),R End
Goto G
Lbl E
Cls
Text 30,10,"KEINE HILFE VERFUEGBAR!"
Goto G
Lbl F
Cls
Stop