HP 33s hp 33s_user's manual_English_E_HDPM20PIE56.pdf - Page 256

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. 15-34 Mathematics Programs