HP 32SII - Manual (Page 260)

15–34 Mathematics Programs
File name 32sii-Manual-E-0424
Printed Date : 2003/4/24 Size : 17.7 x 25.2 cm
Program Lines: Description
"! % 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.
-+. Charges 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 cost (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: 3A46 028.5
This routine converts from the new system to the old
system.
"! " Prompts for and stores U.
"! # Prompts for and stores V.
" Pushes V up and recalls U.
! Pushes U and V up and recalls T.
Sets radius to 1 for the computation of sin(T) and
cos(T).
θ8T´¸8º Calculates cos(T) and sin(T).
%º Calculates U cos(T) V sin(T) and U sin(T) + V cos(T).
Pushes up previous results and recalls N.
Pushes up results and recalls M.
%- Completes calculation by adding M and N to
previous results.