[ti84] Error 'memory' bij de lange loop

[Gromba]

In de wiskunde les kregen we de vraag 'we zitten hier met 25 leerlingen, hoe groot is de kans dat er 2 kinderen op de zelfde dag jarig zijn.
Dus ik schreef een programmaatje, namelijk:

code:

ClrHome
365->K
364/365->F
0->L
30->C
Input "Leerlingen: ",C

If C<2
Then
ClrHome
Output(1,1,"Hoe kan dat nou?")
Stop
Else

ClrHome
Lbl 10
If K>(365-C)
Then

K/365->G
F*G->F

L+1->L
K-1->K

(1-F)*100->H

Output(1,1,L)
Output(2,2,H)
Output(1,4,"leerlingen")

Goto 10

Else

1-F->F
(F*100)->F
Output(2,2,F)

Code werkt voor de rest perfect (antwoord was namelijk goed), maar het heeft wel een probleem.
Stel, ik vul 150 leerlingen in dan is hij keurig een tijdje bezig, maar halverwege krijg ik "ERR: Memory".
Waarmee wordt het Memory gevuld en hoe kan ik dit verhelpen?

[NMe]

Die loop (label/goto) neemt waarschijnlijk dat geheugen in beslag. Verder is hier niet veel van te maken in TI-BASIC ben ik bang, je kan hooguit wat zut van je TI af gooien in de hoop dat het daarna wel draait. Hoeveel KB heb je vrij?

[Gromba]

-NMe- schreef op woensdag 08 december 2004 @ 20:10:
Die loop (label/goto) neemt waarschijnlijk dat geheugen in beslag. Verder is hier niet veel van te maken in TI-BASIC ben ik bang, je kan hooguit wat zut van je TI af gooien in de hoop dat het daarna wel draait. Hoeveel KB heb je vrij?

7,512kb

[NMe]

Hmm, erg vreemd, dat zou meer dan voldoende moeten zijn. Je gebruikt geen arrays, en die ene goto is de enige soort loop die je gebruikt. Wat je zou kunnen doen is die loop herschrijven naar een 'echte' loop, met behulp van een While. Dat heeft bij mij wel eens aardig wat snelheidswinst opgeleverd.

[Gromba]

-NMe- schreef op woensdag 08 december 2004 @ 20:16:
Hmm, erg vreemd, dat zou meer dan voldoende moeten zijn. Je gebruikt geen arrays, en die ene goto is de enige soort loop die je gebruikt. Wat je zou kunnen doen is die loop herschrijven naar een 'echte' loop, met behulp van een While. Dat heeft bij mij wel eens aardig wat snelheidswinst opgeleverd.

Ik denk ook dat dat eigelijk de enige oplossing is, daarentegen is het bij deze script niet echt nuttig gezien bij 100 leerlingen de kans al 99,999% is.

[Verwijderd]

Hier op mijn TI83 (is toch ouder dan de TI84?) haalt ie de 200 zonder problemen. Kheb 9,901 kb vrij.

[ Voor 17% gewijzigd door Verwijderd op 08-12-2004 20:26 ]

[Gromba]

Verwijderd schreef op woensdag 08 december 2004 @ 20:25:
Hier op mijn TI83 (is toch ouder dan de TI84?) haalt ie de 200 zonder problemen. Kheb 9,901 kb vrij.

Ik haal precies 154, best wel raar eigelijk