The Museum of HP Calculators

Numerical Integration, Simpson’s Rule 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 b
A-002       11 x⇔y
A-003    35 .2 STO . 2 a
A-004       64 R/S
A-005    35 52 STO I n
A-006        2 2
A-007       24 ÷
A-008    62  1 g FRAC
A-009       22 CHS Display "See 5" if n is
A-010    62 42 g x≠0 not even.
A-011       41 √x
A-012    45 .2 RCL . 2
A-013        b B
A-014    35 .1 STO . 1
A-015    45 .3 RCL . 3
A-016        b B R.1 ← f(a) + f(b).
A-017    45 .1 RCL . 1
A-018       59 +
A-019    35 .1 STO . 1
A-020    45 .3 RCL . 3
A-021    45 .2 RCL . 2
A-022    35 .5 STO . 5 x0 ← a.
A-023       49
A-024       52 I
A-025       24 ÷
A-026    35 .4 STO . 4 h ← (b - a)/n.
A-027        2 2
A-028    35 .0 STO . 0 R.0 will be 2 or 4.
A-029    62 52 g DSZ - - - - - - - - - - - - - - -
A-030 61 63  9 f LBL 9
A-031    45 .4 RCL . 4
A-032    45 .5 RCL . 5
A-033       59 + x ← x + h
A-034    35 .5 STO . 5 f(x)
A-035        b B
A-036        6 6
A-037    45 .0 RCL . 0
A-038       49
A-039    35 .0 STO . 0
A-040       39 ×
A-041    45 .1 RCL . 1
A-042       59 + R.1 ← R.1 + 4 (or 2) f(x)
A-043    35 .1 STO . 1
A-044    62 52 g DSZ
A-045    63  9 GTO 9 - - - - - - - - - - - - - - -
A-046    45 .1 RCL . 1
A-047    45 .4 RCL . 4
A-048       39 ×
A-049        3 3 Area.
A-050       24 ÷
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