Table of Contents
Advertisement
Program Listing:
Program Lines:
(In RPN mode)
Checksum and length: 1EDA 15
θ
Checksum and length: 921A 69
15–34
Mathematics Programs
File name 33s-E-Manual-1008-Publication(1st).doc
Printed Date : 2003/10/8
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.
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.
Charges the sign of T because sin(–T) equals –sin(T).
Sets radius to 1 for computation of cos(T) and –sin(T).
Calculates cost (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.
Page : 386
Size : 13.7 x 21.2 cm
θ
.
Advertisement
Table of Contents
