+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (21S) 3D Vectors Dot Product and Angle between Vectors (/thread-8806.html)
(21S) 3D Vectors Dot Product and Angle between Vectors - Eddie W. Shore - 08-10-2017 04:51 AM
Input: [R1, R2, R3] and [R4, R5, R6]. Store the amounts before running the program (XEQ B)
Program (47 steps):
Code:
Step Code Key Notes
01 61, 41, B LBL B Beginning of program
02 61, 23 DEG Set degrees mode
03 22, 1 RCL 1 Calculate dot product
04 55 *
05 22, 4 RCL 4
06 75 +
07 22, 2 RCL 2
08 55 *
09 22, 5 RCL 5
10 75 +
11 22, 3 RCL 3
12 55 *
13 22, 6 RCL 6
14 74 =
15 21, 0 STO 0
16 26 R/S Display dot product
17 22, 1 RCL 1 Calculate angle
18 51, 11 x^2
19 75 +
20 22, 2 RCL 2
21 51, 11 x^2
22 75 +
23 22, 3 RCL 3
24 51, 11 x^2
25 74 =
26 11 √
27 74 =
28 22, 4 RCL 4
29 51, 11 x^2
30 75 +
31 22, 5 RCL 5
32 51, 11 x^2
33 75 +
34 22, 6 RCL 6
35 51, 11 x^2
36 34 )
37 11 √
38 55 *
39 51, 74 LAST
40 74 =
41 22, 0 RCL 0
42 45 ÷
43 51, 74 LAST
44 74 =
45 51, 24 ACOS
46 21, 7 STO 7
47 61, 26 RTN End programThe key strokes for the HP 20S is similar.
Example: [1, -2, 4]; [3, 7, 6]
Results:
Dot = 13
Angle = 72.98650490190°