The Museum of HP Calculators

Triangle Solutions for the HP-95C

This program is Copyright © 1977 by Hewlett-Packard Company and is used here by permission. It was originally printed in the HP-95C Applications book. This program was entered by André Wilhelmus and the curator added comments from the HP manual.

This program is supplied without representation or warranty of any kind. André Wilhelmus, Hewlett-Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Program Listing

CODE KEYS
A-000    lbl A f LBL A
A-001    35  3 STO 3 SAS
A-002       12 R↓
A-003    35  2 STO 2
A-004       12 R↓
A-005    35  1 STO 1 - - - - - - - - - - - - - - -
A-006 61 63  9 f LBL 9
A-007    45  2 RCL 2 Compute A2 , S3 by
A-008    45  1 RCL 1 law of cosines.
A-009    61  6 f →R
A-010    45  3 RCL 3
A-011       11 x⇔y
A-012       49 −
A-013    62  6 g →P
A-014    35  5 STO 5
A-015       11 x⇔y
A-016    35  4 STO 4
A-017    45  2 RCL 2
A-018       59 +
A-019    61  8 f COS cos A3 = −cos(A1 + A2)
A-020       22 CHS
A-021    62  8 g COS-1
A-022    35  6 STO 6
A-023    61  7 f SIN
A-024       39 ×
A-025    45  1 RCL 1
A-026       39 ×
A-027        2 2 Area
A-028       24 ÷
A-029    35  0 STO 0
A-030    45  1 RCL 1 - - - - - - - - - - - - - - -
A-031       14 PRINT x Output solutions.
A-032    45  2 RCL 2
A-033       14 PRINT x
A-034    45  3 RCL 3
A-035       14 PRINT x
A-036    45  4 RCL 4
A-037       14 PRINT x
A-038    45  5 RCL 5
A-039       14 PRINT x
A-040    45  6 RCL 6
A-041       14 PRINT x
A-042    61 14 f SPACE
A-043    45  0 RCL 0
A-044       14 PRINT x
A-045    61 14 f SPACE
A-046    61 53 f RTN - - - - - - - - - - - - - - -
A-047 61 63  1 f LBL 1 SSS
A-048    35  5 STO 5
A-049       12 R↓
A-050    35  3 STO 3
A-051       12 R↓
A-052    35  1 STO 1 Find A1 by law of
A-053    45  3 RCL 3 cosines, go to SAS.
A-054    62  6 g →P
A-055       42 x²
A-056    45  5 RCL 5
A-057       42 x²
A-058       49 −
A-059    45  1 RCL 1
A-060    45  3 RCL 3
A-061       39 ×
A-062        2 2
A-063       39 ×
A-064       24 ÷
A-065    62  8 g COS-1
A-066    35  2 STO 2
A-067    63  9 GTO 9
b-000    lbl b f LBL B - - - - - - - - - - - - - - -
b-001    35  2 STO 2
b-002       12 R↓ ASA
b-003    35  1 STO 1
b-004       11 x⇔y
b-005    35  6 STO 6
b-006    61  7 f SIN
b-007    45  2 RCL 2 Find S2 , go to SAS.
b-008    45  6 RCL 6
b-009       59 +
b-010    61  7 f SIN
b-011       24 ÷
b-012       39 ×
b-013    35  3 STO 3
b-014 62 63 A9 g JUMP A 9 - - - - - - - - - - - - - - -
C-000    lbl C f LBL C
C-001    35  4 STO 4 SSA
C-002       12 R↓
C-003    35  3 STO 3
C-004       11 x⇔y
C-005    35  1 STO 1 Find A1 , go to SAS.
C-006    45  4 RCL 4
C-007    61  7 f SIN
C-008       11 x⇔y
C-009       24 ÷
C-010       39 ×
C-011    62  7 g SIN-1
C-012    45  4 RCL 4
C-013       59 +
C-014    61  8 f COS
C-015       22 CHS
C-016    62  8 g COS-1
C-017    35  2 STO 2
C-018    53  1 GSB 1
C-019    45  1 RCL 1
C-020    45  3 RCL 3 Two solutions exist
C-021    61 43 f x≤y if S2 > S1.
C-022    61 53 f RTN
C-023    45  6 RCL 6
C-024    61  8 f COS
C-025       22 CHS
C-026    62  8 g COS-1
C-027    35  6 STO 6
C-028    45  4 RCL 4 A3 ← 180 − A3.
C-029       59 +
C-030    61  8 f COS
C-031       22 CHS Find A1 , go to SAS.
C-032    62  8 g COS-1
C-033    35  2 STO 2
C-034 61 63  1 f LBL 1
C-035 62 63 A9 g JUMP A 9 - - - - - - - - - - - - - - -
d-000    lbl d f LBL D
d-001    35  1 STO 1 AAS
d-002       12 R↓
d-003    35  2 STO 2
d-004       12 R↓
d-005    35  4 STO 4
d-006       13 R↑ Find S2 , go to SAS.
d-007       59 +
d-008    61  7 f SIN
d-009    45  4 RCL 4
d-010    61  7 f SIN
d-011       24 ÷
d-012    45  1 RCL 1
d-013       39 ×
d-014    35  3 STO 3
d-015 62 63 A9 g JUMP A 9

Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall