The Museum of HP Calculators

Earthquake Seismic Wave (Shear Fault) for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Earth Sciences Solution Book. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, 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.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "DBLCPL"
 02 LBL 10
 03 LBL A
 04 STO 01
 05 RDN
 06 STO 02
 07 XEQ 14
 08 RTN
 09 LBL 11
 10 LBL B
 11 STO 05
 12 X<>Y
 13 STO 06
 14 XEQ 13
 15 STO 07
 16 XEQ 13
 17 STO 08
 18 *
 19 2
 20 *
 21 STOP
 22 1
 23 ASIN
 24 ST+ 06
 25 XEQ 13
 26 RCL 08
 27 *
 28 XEQ 13
 29 RCL 07
 30 *
 31 +
 32 STOP
 33 0
 34 STO 06
 35 RCL 05
 36 1
 37 ASIN
 38 -
 39 STO 05
 40 R^
 41 XEQ 13
 42 RCL 08
 43 *
 44 X<>Y
 45 STO 08
 46 X<>Y
 47 XEQ 13
 48 RCL 07
 49 *
 50 +
 51 STOP
 52 RCL 08
 53 R-P
 54 STOP
 55 X<>Y
 56 RTN
 57 LBL 13
 58 LBL D
 59 RCL 01
 60 RCL 05
 61 -
 62 COS
 63 RCL 02
 64 COS
 65 *
 66 RCL 06
 67 COS
 68 *
 69 RCL 06
 70 SIN
 71 RCL 02
 72 SIN
 73 *
 74 +
 75 LBL 14
 76 LBL E
 77 RCL 01
 78 RCL 03
 79 STO 01
 80 RDN
 81 STO 03
 82 RDN
 83 RCL 02
 84 RCL 04
 85 STO 02
 86 RDN
 87 STO 04
 88 RDN
 89 RTN
 90 STOP
 91 END

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