15–34 Mathematics Programs
Program Listing:
Program Lines:
(In RPN mode)
Description
This routine defines the new coordinate system.
"!
Prompts for and stores M, the new origin's x–coordinate.
"!
Prompts for and stores N, the new origin's y–coordinate.
"! !
Prompts for and stores T, the angle
θ
.
!
Loops for review of inputs.
Checksum and length: 1EDA 15
This routine converts from the old system to the new
system.
"! %
Prompts for and stores X, the old x–coordinate.
"! &
Prompts for and stores Y, the old y–coordinate.
%
Pushes Y up and recalls X to the X–register.
Pushes X and Y up and recalls N to the X–register.
Pushes N, X, and Y up and recalls M.
%.
Calculates (X – M) and (Y – N).
!
Pushes (X – M)and (Y – N) up and recalls T.
-+.
Changes the sign of T because sin(–T) equals –sin(T).
Sets radius to 1 for computation of cos(T) and –sin(T).
θ
8T
´
¸8º
Calculates cos (T) and –sin(T) in X– and Y–registers.
%º
Calculates (X – M) cos (T) + (Y–N) sin (T) and (Y – N) cos
(
T) – (X – M) sin(T).
! "
Stores x–coordinate in variable U.
º65¸
Swaps positions of the coordinates.
! #
Stores y–coordinate in variable V.
º65¸
Swaps positions of coordinates back.
#$ "
Halts program to display U.
#$ #
Halts program to display V.
!
Goes back for another calculation.
Checksum and length: 921A 69
This routine converts from the new system to the old
system.
"! "
Prompts for and stores U.
