Advertenties
Programma:
Programmaregels:
081 LEL
Laz IMFUT HM
Caz IMFUT HM
Lad IHFUT T
Las GTO DO
Beschrijving:
Deze routine definieert het nieuwe
coordinatenstelsel.
Vraagt om een waarde voor M, de z-coordinaat
van de nieuwe oorsprong, en slaat deze waarde
op.
Vraagt om een waarde voor N, de y-coordinaat
van de nieuwe oorsprong, en slaat deze waarde
op.
Vraagt om een waarde voor T', de hoek 6, en
slaat deze op.
Voert een lus uit voor het bekijken van de
ingevoerde waarden.
Checksum en lengte: 2ED3 007,5
Hal LEL H
Haz IMPUT =
HE
IMFUT
Had ECL =
45 RCL H
oo RCL HM
* CHMPLs-
= RECLT
D+
Hig 1
Hil Barwa. =
Deze routine voert een conversie uit van het oude
naar het nieuwe stelsel.
Vraagt om een waarde voor X, de oude
z-coordinaat, en slaat deze waarde op.
Vraagt om een waarde voor Y, de oude
y-coordinaat, en slaat deze waarde op.
Schuift Y omhoog en roept X op in het
X-register.
Schuift X en Y omhoog en roept N op in het
X-register.
Schuift N, X en Y omhoog en roept M op.
Berekent (X—M) en (Y—N).
Schuift (X—M) en (Y —N) omhoog en roept T
op.
Verandert het teken van T', omdat sin(—1T') gelijk
is aan —sin( 7).
Stelt de straal gelijk aan 1 voor het berekenen
van cos(T) en —sin(T).
Berekent cos(T') en —sin( 7) in de X- en
Y-registers.
Berekent (X—M) cos(T) + (Y—N) sin(T) en
(Y=N) cos(T) — (X—M) sin(T).
15-36
Wiskundige programma's
Advertenties
