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
geplot en een schets van de dwarsdoorsnede kan worden gemaakt voor een
bepaalde verhoging van het wateroppervlak. De onderstaande afbeelding
geeft de termen weer die in deze paragraaf worden gebruikt.
Het programma, beschikbaar op de diskette of cd-rom die bij uw rekenmachine
hoort, gebruikt vier subprogramma's FRAME, DXBED, GTIFS en INTRP. Het
hoofdprogramma, XSECT, heeft als invoer een matrix van waarden voor x en y
en de hoogte van het wateroppervlak Y (zie de bovenstaande afbeelding), in
die volgorde. Het programma maakt een grafiek van de doorsnede waarbij de
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