The Museum of HP CalculatorsThis 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.
| CODE | KEYS | |
|---|---|---|
| A-000 lbl A | f LBL A | |
| A-001 35 .1 | STO . 1 | |
| A-002 b | B | a → f(a) |
| A-003 35 .2 | STO . 2 | |
| A-004 64 | R/S | - - - - - - - - - - - - - - - |
| A-005 35 .3 | STO . 3 | |
| A-006 b | B | b → f(b) |
| A-007 35 .4 | STO . 4 | |
| A-008 64 | R/S | - - - - - - - - - - - - - - - |
| A-009 2 | 2 | |
| A-010 63 1 | GTO 1 | |
| A-011 61 63 0 | f LBL 0 | If AC = 0, exit. |
| A-012 61 41 | f x=y | |
| A-013 63 9 | GTO 9 | |
| A-014 61 0 | f LAST x | |
| A-015 35 .4 | STO . 4 | New B = old A. |
| A-016 45 .5 | RCL . 5 | |
| A-017 35 .3 | STO . 3 | New b = old a. |
| A-018 2 | 2 | - - - - - - - - - - - - - - - |
| A-019 61 63 1 | f LBL 1 | |
| A-020 35 .0 | STO . 0 | |
| A-021 45 .1 | RCL . 1 | New p = 2 or 2 × (old p). |
| A-022 35 .5 | STO . 5 | |
| A-023 45 .5 | RCL . 5 | New a = old c. |
| A-024 45 .3 | RCL . 3 | |
| A-025 49 | − | |
| A-026 45 .4 | RCL . 4 | |
| A-027 45 .2 | RCL . 2 | |
| A-028 24 | ÷ | |
| A-029 1 | 1 | |
| A-030 49 | − | |
| A-031 23 | EEX | |
| A-032 22 | CHS | |
| A-033 9 | 9 | |
| A-034 49 | − | |
| A-035 24 | ÷ | c = a + |
| A-036 59 | + | (a-b)/(B/A - 1.000000001) |
| A-037 61 42 | f x≠y | If c ≠ a, GTO 2. |
| A-038 63 2 | GTO 2 | |
| A-039 45 .3 | RCL . 3 | |
| A-040 49 | − | |
| A-041 9 | 9 | |
| A-042 24 | ÷ | |
| A-043 49 | − | c = a − (a−b)/9. |
| A-044 61 42 | f x≠y | |
| A-045 63 2 | GTO 2 | If c = a, halt. |
| A-046 35 .1 | STO . 1 | |
| A-047 64 | R/S | - - - - - - - - - - - - - - - |
| A-048 61 63 2 | f LBL 2 | If c ≠ a, then save c. |
| A-049 35 .1 | STO . 1 | |
| A-050 b | B | |
| A-051 45 .4 | RCL . 4 | c = f(c) |
| A-052 45 .2 | RCL . 2 | |
| A-053 39 | × | |
| A-054 0 | 0 | |
| A-055 61 0 | f LAST x | |
| A-056 13 | R↑ | |
| A-057 35 .2 | STO . 2 | New A = old C. |
| A-058 11 | x⇔y | |
| A-059 39 | × | |
| A-060 61 43 | f x≤y | If AC ≤ 0, then GTO 0. |
| A-061 63 0 | GTO 0 | |
| A-062 12 | R↓ | |
| A-063 61 43 | f x≤y | Else if AB ≥ 0, GTO 0. |
| A-064 63 0 | GTO 0 | |
| A-065 45 .0 | RCL . 0 | If AC > 0 and |
| A-066 45 .4 | RCL . 4 | AB < 0, then |
| A-067 11 | x⇔y | new B = old B/p. |
| A-068 24 | ÷ | |
| A-069 35 .4 | STO . 4 | |
| A-070 55 | CL X | |
| A-071 61 0 | f LAST x | |
| A-072 21 | ENTER ↑ | New p = 2 × (old p). |
| A-073 59 | + | |
| A-074 63 1 | GTO 1 | - - - - - - - - - - - - - - - |
| A-075 61 63 9 | f LBL 9 | |
| A-076 45 .1 | RCL . 1 | Root. |
| b-000 lbl b | f LBL B |
Go back to the HP-95C software library
Go back to the general software library
Go back to the main exhibit hall