Thursday, January 7, 2016

HP 15C: Digital Root, Modulus, and 2D Coordinate Rotation

HP 15C:  Digital Root, Modulus, and 2D Coordinate Rotation


Note:  steps are for reference points only.

HP 15C: Digital Root

Input: Enter an integer and execute Label A (or whatever label you want to assign).

Program: 

Step
Key
Key Code
001
LBL A
42, 21, 11
002
ENTER
36
003
ENTER
36
004
1
1
005
-
30
006
9
9
007
÷
10
008
INT
43, 44
009
9
9
010
*
20
011
-
30
012
RTN
43, 32

Formula used:  (Define DR(n) as the digital root function)
DR(n) = n – 9 * int((n-1)/9), n > 0

DR returns the sum of n’s digits and repeats until a single digit remains.

Examples:
DR(4514) = 5
DR(9376) = 7
DR(636088) = 4
DR(761997) = 3

HP 15C:  Modulus Function

Input: 
Y:  A
X:  B

The program calculates A mod B.

Program:

Step
Key
Key Code
001
LBL B
42, 21, 2
002
STO 2
44, 2
003
X<>Y
34
004
STO 1
44, 1
005
X<>Y
34
006
÷
10
007
FRAC
42, 44
008
RCL* 2
45, 20, 2
009
STO 3
44, 3
010
RCL 1
45, 1
011
RCL* 2
45, 20, 2
012
TEST 1 (x > 0)
43, 30, 1
013
GTO 1
22, 1
014
RCL 3
45, 3
015
RCL+ 2
45, 40, 2
016
STO 3
44, 3
017
RTN
43, 32
018
LBL 1
42, 21, 1
019
RCL 3
45, 3
020
RTN
43, 32

Formula Used:
A mod B = B * frac(A/B)
Add B to result if A*B < 0. 

Registers Used:
R1 = A
R2 = B
R3 = A mod B


Examples:
A = 48, B = 3, result = 0
A = 41.3, B = 12, result = 5.3
A = 48, B = -7, result = -1
A = -50.2, B = 36, result = 21.8

HP 15C:  2D Coordinate Rotation

Input: Store the following:  X in R4, Y in R5, and θ in R3.  Run the program. 

Results are stored in R6 and R7, for X’ and Y’, respectively. X’ is displayed first, press R/S to get Y’.

This program uses the Polar to Rectangular conversion.

Program:

Step
Key
Key Code
001
LBL C
42, 21, 13
002
RCL 3
45, 3
003
RCL 4
45, 4
004
>R
42, 1
005
STO 6
44, 6
006
X<>Y
34
007
STO 7
44, 7
008
RCL 3
45, 3
009
RCL 5
45, 5
010
>R
42, 1
011
RCL 7
45, 7
012
+
40
013
STO 7
44, 7
014
X<>Y
34
015
CHS
16
016
RCL 6
45, 6
017
+
40
018
STO 6
44, 6
019
R/S
31
020
X<>Y
34
021
RTN
43, 32

Formulas Used:
X’ = X * cos θ – Y * sin θ
Y’ = X * sin θ + Y * cos θ

Examples:
X (R4) = 1, Y (R5) = 2, θ (R3) = 30°.   Results: X’ (R6) ≈ -0.1340,  Y’ (R7) ≈ 2.2321
X (R4) = 6.45, Y (R5) = 5.25, θ (R3) = 176°.  Results:  X’ (R6) ≈ -6.8005, Y’ (R7) ≈ -4.7872


Until next time, be safe everyone!

Eddie


This blog is property of Edward Shore.  2016