The Museum of HP Calculators

Numerical Integration, Discrete Case 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  9 STO 9 h
A-002       64 R/S - - - - - - - - - - - - - - -
A-003    62 13 g CLEAR Σ
A-004    35 .1 STO . 1
A-005    35 .3 STO . 3 f(x0)
A-006       55 CL X
A-007 61 63  9 f LBL 9
A-008       64 R/S - - - - - - - - - - - - - - -
A-009    35  8 STO 8 f(xj), j odd.
A-010       21 ENTER ↑
A-011       59 +
A-012       21 ENTER ↑
A-013       59 +
A-014    61  0 f LAST x 2 f(xj), 4 f(xj).
A-015       67 Σ+
A-016       64 R/S
A-017    35  8 STO 8 - - - - - - - - - - - - - - -
A-018       21 ENTER ↑ f(xj) , j even.
A-019       59 +
A-020       21 ENTER ↑
A-021       67 Σ+ 2 f(xj), 2 f(xj).
A-022    63  9 GTO 9 - - - - - - - - - - - - - - -
A-023 61 63  1 f LBL 1
A-024        2 2 Trapezoidal area.
A-025    45 .1 RCL . 1
A-026    63  0 GTO 0 - - - - - - - - - - - - - - -
A-027 61 63  2 f LBL 2
A-028    45 .0 RCL . 0 Simpson area.
A-029        2 2
A-030       24 ÷
A-031    62  1 g FRAC
A-032       22 CHS Test n even.
A-033    62 42 g x≠0
A-034       41 √x
A-035        3 3
A-036    45 .3 RCL . 3
A-037 61 63  0 f LBL 0
A-038    45  8 RCL 8 2 f(xn) were added, so
A-039       49 subtract f(xn)
A-040    45  9 RCL 9
A-041       39 ×
A-042       11 x⇔y Area.
A-043       24 ÷

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