The Museum of HP Calculators

Colinear Antenna Gain and Pattern 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 "CAGP"
 02 RAD
 03 SF 00
 04 2
 05 XEQ 07
 06 STO 10
 07 "PHASE SHIFT?"
 08 PROMPT
 09 STO 00
 10 "DIPOLE L.?"
 11 PROMPT
 12 STO 01
 13 "DIPOLE S.?"
 14 PROMPT
 15 STO 02
 16 "N?"
 17 PROMPT
 18 STO 03
 19 XEQ B
 20 "?"  ;"\0D?"
 21 PROMPT
 22 CF 00
 23 LBL C
 24 D-R
 25 STO 08
 26 0
 27 STO 06
 28 STO 07
 29 PI
 30 2
 31 /
 32 RCL 08
 33 /
 34 FIX 00
 35 RND
 36 STO 05
 37 FIX 02
 38 FS? 00
 39 RTN
 40 PSE
 41 GTO D
 42 LBL c
 43 D-R
 44 RCL 08
 45 /
 46 FIX 00
 47 RND
 48 STO 06
 49 RTN
 50 LBL B
 51 SF 00
 52 90
 53 RCL 01
 54 RCL 03
 55 *
 56 RCL 03
 57 1
 58 -
 59 RCL 02
 60 *
 61 +
 62 PI
 63 2
 64 /
 65 *
 66 3
 67 +
 68 /
 69 XEQ C
 70 LBL b
 71 XEQ 09
 72 XEQ 01
 73 RCL 09
 74 SIN
 75 *
 76 ST+ 07
 77 1
 78 ST+ 06
 79 RCL 05
 80 RCL 06
 81 X#Y?
 82 GTO b
 83 RCL 07
 84 .5
 85 -
 86 RCL 08
 87 *
 88 XEQ 07
 89 CHS
 90 STO 04
 91 "G="
 92 ARCL X
 93 AVIEW
 94 STOP
 95 RTN
 96 LBL D
 97 XEQ 08
 98 R-D
 99 "="  ;"\0D="
100 ARCL X
101 AVIEW
102 STOP
103 XEQ 09
104 XEQ 01
105 XEQ 07
106 "G="
107 ARCL X
108 AVIEW
109 STOP
110 1
111 ST+ 06
112 RCL 05
113 RCL 06
114 X<=Y?
115 GTO D
116 GTO B
117 LBL 09
118 XEQ 08
119 PI
120 2
121 /
122 +
123 STO 09
124 RTN
125 LBL 08
126 RCL 08
127 RCL 06
128 *
129 RTN
130 LBL 07
131  E-9
132 +
133 LOG
134 10
135 *
136 RTN
137 LBL 01
138 FS? 01
139 GTO 02
140 RCL 09
141 COS
142 PI
143 *
144 RCL 01
145 *
146 COS
147 RCL 01
148 PI
149 *
150 COS
151 -
152 1
153 LASTX
154 -
155  E-9
156 +
157 /
158 RCL 09
159 SIN
160 /
161 X^2
162 FS? 02
163 RTN
164 LBL 02
165 RCL 09
166 COS
167 RCL 02
168 RCL 01
169 +
170 *
171 PI
172 *
173 2
174 *
175 RCL 00
176 +
177 2
178 /
179 STO 04
180 RCL 03
181 *
182 SIN
183 RCL 04
184 SIN
185 /
186 RCL 03
187 /
188 X^2
189 FC? 01
190 *
191 RTN
192 END

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