HP 33s User Manual page 256

Program Listing:
Program Lines:
(In RPN mode)
  
  
  
  
  
Checksum and length: 1EDA 15
  
  
  
  
  
  
 
  
 
 
  
 
  
 
  
 
  
  
  
Checksum and length: 921A 69
  
  
15–34
Mathematics Programs
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.
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 ).
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.
Swaps positions of the coordinates.
Stores y –coordinate in variable V .
Swaps positions of coordinates back.
Halts program to display U .
Halts program to display V .
Goes back for another calculation.
This routine converts from the new system to the old
system.
Prompts for and stores U .
Description