HP 33s 15–34, 15–34 Mathematics Programs

Program Listing:

Program Lines:			Description
(In RPN mode)
  		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–34Mathematics Programs