HP 33s - Manual (Page 256)

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.