Programmeren in TI Basic

[Lars93]

Hallo allen,

Ik heb een klein probleem. Ik moet morgen een PO Wiskunde inleveren en moet daar enkele simulatieprogramma's op de GR voor schrijven (dit is zoals de titel al zegt in de taal TI-Basic). Waaronder een programma met 3 cirkels (1 met een straal van 2 meter, 1 met een straal van 1 meter en 1 met een straal van 0,5 meter) in elkaar en een variabel aantal ringen waarvan ook de diameter variabel (en dus in te stellen) is.
Ik kom er niet uit.
Wie kan mij helpen.

Alvast bedankt voor de medewerking,
Lars

 

[niekfct]

Wat heb je al en waar kom je er precies niet uit? Zie hier

 

[Lars93]

Ik heb al aardig wat (al zeg ik het zelf)

wat er fout gaat is dat het programma afsluit, zodra ik variabelen heb ingevoerd. Als ik ervoor zorg dat hij dit niet doet krijg ik 100% van m´n simulaties in 1 ring.

Dit heb ik:
ClrHome
200->A
100->B
50->C
Disp "Ringwerpen"
Disp "3 Cirkels in"
Disp "elkaar"
Pause
ClrHome
Disp "Cirkel 1 heeft"
Disp "een straal van"
Disp "2 meter"
Pause
ClrHome
Disp "Cirkel 2 heeft"
Disp "een straal van"
Disp "1 meter"
Pause
ClrHome
Disp "Cirkel 3 heeft"
Disp "een straal van"
Disp "0,5 meter"
Pause
ClrHome
Disp "Diameter van de"
Input "Ringen in cm?",X
Input "Aantal Ringen?",Y
((∏A^2)-(∏B^2))->D
((∏B^2)-(∏C^2))->E
(∏C^2)->F
0->P
0->Q
0->R
For(H,1,Y)
randInt(1,X^2)->J
(((E-X)^2)/E^2)->K
(((F-X)^2)/F^2)->L
(((G-X)^2)/G^2)->M
If J≤M
Then
P+1->P
If J>M and J≤L
Then
Q+1->Q
If J>L and J≤K
Then
R+1->R
Output(1,1,P
Output(2,1,Q
Output(3,1,R
End



Het is nog een ruwe versie dus er moeten nog labels in etc.
Wie kan me vertellen waar de fout zit en eventueel hoe het dan wel zou moeten.
Met vriendelijke groet,
Lars

edit: inmiddels heb ik na iedere if constructie een end gezet. Ik krijg nu wel P,Q en R in beeld maar deze blijven op 0 staan, ook als ik 1000 keer simuleer.

 

[Lars93]

Ik heb er met m'n vader naar gekeken en we kwamen er allebei niet uit dus heb ik besloten een ander programma te maken.
Iedereen nogmaals bedankt voor het meedenken.

Lars