Advertenties
Programmaregels:
(In de RPN–stand)
θ
Controlesom en lengte: 921A 69
θ
15–36
Wiskundige programma's
Deze routine converteert van het oude stelsel naar het
nieuwe stelsel.
Vraagt naar X, de oude x–coördinaat.
Vraagt naar Y, de oude y–coördinaat.
Duwt Y omhoog en haalt X weer in het X–register.
Duwt X en Y omhoog en haalt N weer in het
X–register.
Duwt N, X, en Y omhoog en haalt M terug.
Berekent (X – M) en (Y – N).
Duwt (X – M) en (Y – N) omhoog en haalt T terug.
Verandert het teken van T omdat sin(–T) gelijk is
aan –sin(T).
Maakt de straal 1 voor berekening van cos(T)
en –sin(T).
Berekent cos (T) en –sin(T) in X– en Y–registers.
Berekent (X – M) cos (T) + (Y–N) sin (T) en (Y – N) cos
(T) – (X – M) sin(T).
Slaat x–coördinaat op in variabele U.
Verwisselt posities van de coördinaten.
Slaat y–coördinaat op in variabele V.
Verwisselt posities van de coördinaten terug.
Stopt programma en toont U.
Stopt programma en toont V.
Terug voor een volgende berekening.
Deze routine converteert van het nieuwe stelsel naar
het oude stelsels.
Vraagt invoer van U.
Vraagt invoer van V.
Duwt V omhoog en roept U terug.
Duwt U en V omhoog en roept T terug.
Maakt de straal 1 voor berekening van sin(T) en
cos(T).
Berekent cos(T) en sin(T).
Omschrijving
Advertenties
