Hyperbolic Operations for HP-41cv/cx

This program adds hyperbolic operations to the HP-41.

History

I wrote this code in October 1986.  I uses modified functions to improve accuracy.

Instructions

The labels automatically map to the user keyboard. Note that some hyperbolic operations leave the stack disturbed.

Examples

  1. Calculate the sinh(1)
    GTO “HYP”
    USER
    1 SIN 1.1752

Listing

  • Requires
    • X-Functions module on the HP-41cv
  • Available as
  • Size
    • 12 registers; 78 bytes including END; 1 magnetic track (78/112=0.70)
 01	LBL "HYP"

02	LBL H	; [sinh]
03	STO M
04	E^X-1
05	LASTX
06	E^X
07	/
08	RCL M
09	E^X-1
10	+
11	LBL 00
12	2
13	/
14	RTN

15	LBL I 	; [cosh]
16	E^X
17	1/X
18	LASTX
19	+
20	GTO 00

21	LBL J	; [tanh]
22	XEQ H
23	RCL M
24	XEQ I
25	/
26	RTN

27	LBL C	; [asinh]
28	X^2
29	LASTX
30	X<>Y
31	 E
32	+
33	GTO 01

34	LBL E	; [atanh]
35	 E
36	+
37	ENTER^
38	ENTER^
39	2
40	-
41	/
42	CHS
43	LN
44	GTO 00

45	LBL D	; [acosh]
46	X^2
47	LASTX
48	X<>Y
49	 E
50	-
51	LBL 01
52	SQRT
53	+
54	LN
55	END
Embedded software developer
Passionately curious and stubbornly persistent. Enjoys to inspire and consult with others to exchange the poetry of logical ideas.

Leave a Reply

Your email address will not be published. Required fields are marked *

 

This site uses Akismet to reduce spam. Learn how your comment data is processed.