HP 33s - Manual (Page 257)

Mathematics Programs 15–35
Program Lines:
(In RPN mode)
Description
  "! # 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.
 ! % Stores the x–coordinate in variable X.
 º65¸ Swaps the positions of the coordinates.
 ! & Stores the y–coordinate in variable Y.
 º65¸ Swaps the positions of the coordinates back.
 #$ % Halts the program to display X.

#$ & Halts the program to display Y.
 !  Goes back for another calculation.
Checksum and length: 8C82 66
Flags Used:
None.
Program Instructions:
1. Key in the program routines; press ‡ when done.
2. Press X D to start the prompt sequence which defines the coordinate
transformation.
3. Key in the x–coordinate of the origin of the new system M and press g .
4. Key in the y–coordinate of the origin of the new system N and press g
5. Key in the rotation angle T and press g .
6. To translate from the old system to the new system, continue with step 7. To
translate from the new system to the old system, skip to step 12.