The Museum of HP Calculators

Gain of Horizontal Rhombic Antenna 0 Azimuth for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Antennas Solution Book. 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 "RHOMBIC"
 02 "H?"
 03 PROMPT
 04 STO 22
 05 "L?"
 06 PROMPT
 07 STO 23
 08 "?"  ;"\0D?"
 09 PROMPT
 10 D-R
 11 STO 00
 12 "FREQ?"
 13 PROMPT
 14 STO 05
 15 "TOA L?"
 16 PROMPT
 17 STO 01
 18 "TOA S?"
 19 PROMPT
 20 STO 02
 21 "TOA H?"
 22 PROMPT
 23 STO 03
 24 "S?"
 25 PROMPT
 26 STO 20
 27 "E?"
 28 PROMPT
 29 STO 21
 30 RCL 05
 31 RCL 01
 32 STO 04
 33 LBL 02
 34 XEQ 00
 35 RCL 04
 36 FIX 01
 37 "="  ;"\0D="
 38 ARCL X
 39 AVIEW
 40 PSE
 41 X<>Y
 42 "G="
 43 ARCL X
 44 AVIEW
 45 STOP
 46 RCL 02
 47 RCL 04
 48 +
 49 STO 04
 50 RCL 03
 51 -
 52 X>0?
 53 RTN
 54 RCL 05
 55 RCL 04
 56 GTO 02
 57 LBL 00
 58 COS
 59 STO 11
 60 LASTX
 61 SIN
 62 STO 12
 63 RAD
 64 RDN
 65 RDN
 66 299.8
 67 X<>Y
 68 /
 69 STO 13
 70 PI
 71 X<>Y
 72 /
 73 STO 14
 74 1
 75 RCL 11
 76 RCL 00
 77 SIN
 78 *
 79 -
 80 STO 15
 81 RCL 20
 82 RCL 13
 83 *
 84 -60
 85 *
 86 RCL 21
 87 RCL 11
 88 X^2
 89 -
 90 R-P
 91 SQRT
 92 X<>Y
 93 2
 94 /
 95 X<>Y
 96 P-R
 97 STO 16
 98 RDN
 99 STO 17
100 CHS
101 R^
102 CHS
103 RCL 12
104 +
105 R-P
106 X<>Y
107 RCL 16
108 RCL 12
109 +
110 RCL 17
111 X<>Y
112 R-P
113 RDN
114 -
115 STO 17
116 X<>Y
117 R^
118 /
119 STO 16
120 RCL 17
121 RCL 12
122 RCL 14
123 *
124 RCL 22
125 *
126 4
127 *
128 -
129 COS
130 *
131 2
132 *
133 1
134 +
135 RCL 16
136 X^2
137 +
138 RCL 15
139 RCL 14
140 *
141 RCL 23
142 *
143 SIN
144 X^2
145 RCL 00
146 COS
147 *
148 RCL 15
149 /
150 X^2
151 *
152 2.16
153 *
154 LOG
155 10
156 *
157 DEG
158 RTN
159 END

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