Advertenties
Het volgende programma maakt een tekening in het grafische scherm. (Dit
programma heeft geen andere bedoeling dan te tonen hoe u commando's
van de rekenmachine gebruikt om tekeningen op het scherm te maken).
«
DEG
0. 100. XRNG
0. 50. YRNG
ERASE
(5., 2.5) (95., 47.5) BOX
(50., 50.) 10. 0. 360. ARC
(50., 50.) 12. –180. 180. ARC
1 8 FOR j
(50., 50.) DUP
'12*COS(45*(j-1))'
'12*SIN(45*(j-1))'
R
C
+
LINE
NEXT
{ } PVIEW
»
Voorbeeld 2 – Een programma om een dwarsdoorsnede van een natuurlijke
rivier te plotten.
Deze toepassing kan nuttig zijn voor het bepalen van het gebied en de
vochtige perimeters van doorsnedes van natuurlijke rivieren. Normaal wordt
de doorsnede van een rivier opgemeten en een reeks van punten wordt
opgemaakt die de coördinaten x en y vertegenwoordigen met betrekking tot
een willekeurige reeks van coördinatenassen. Deze punten kunnen worden
Activeert het programma
Selecteert graden voor
hoekberekeningen
Bepaalt het x-bereik
Bepaalt het y-bereik
Wist het diagram
Tekent een rechthoek van (5,5) naar
(95,95)
Tekent middelpunt van cirkel
(50,50), r =10.
Tekent middelpunt van cirkel (50,50),
r= 12.
Tekent 8 lijnen in de cirkel
Lijnen worden gecentreerd als
(50,50)
NUM
Berekent x, ander eind op 50 + x
NUM
Berekent y, ander eind op 50 + y
Converteert x y naar (x,y), complex
getal
Telt (50,50) op bij (x,y)
Tekent de lijn
Einde van FOR-lus
Toon tekening
Blz. 22-25
Advertenties
