The Museum of HP Calculators

Azimuth Pattern of Cylindriacal Array 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 "AZIPAT"
 02 "N?"
 03 PROMPT
 04 "F?"  ;"\0DF?"
 05 PROMPT
 06 "R?"
 07 PROMPT
 08 STO 20
 09 RDN
 10 STO 21
 11 RDN
 12 STO 22
 13 XEQ 01
 14 "SCEW A.?"
 15 PROMPT
 16 "SCEW L.?"
 17 PROMPT
 18 STO 23
 19 RDN
 20 STO 24
 21 XEQ 01
 22 "WAV. L?"
 23 PROMPT
 24 STO 09
 25 XEQ 01
 26 GTO D
 27 LBL 01
 28 CLX
 29 360
 30 ENTER
 31 ENTER
 32 RCL 20
 33 *
 34 RCL 09
 35 X=0?
 36 RTN
 37 /
 38 STO 08
 39 X<>Y
 40 RCL 23
 41 *
 42 RCL 09
 43 /
 44 STO 07
 45 CLX
 46 RTN
 47 LBL D
 48 "?"  ;"\0D?"
 49 PROMPT
 50 STO 05
 51 1
 52 STO 06
 53 CLX
 54 STO 04
 55 STO 03
 56 LBL 10
 57 RCL 05
 58 COS
 59 RCL 08
 60 *
 61 RCL 05
 62 SIN
 63 RCL 07
 64 *
 65 +
 66 RCL 05
 67 RCL 24
 68 -
 69 X<0?
 70 XEQ 03
 71 RCL 06
 72 FIX 00
 73 "FACE "
 74 ARCL X
 75 AVIEW
 76 PSE
 77 FIX 02
 78 RDN
 79 "N="  ;"\0DN="
 80 ARCL X
 81 AVIEW
 82 STOP
 83 "PHASE R?"
 84 PROMPT
 85 "PHASE N?"
 86 PROMPT
 87 +
 88 R^
 89 +
 90 "AMP. R?"
 91 PROMPT
 92 "AMP. N?"
 93 PROMPT
 94 +
 95 P-R
 96 ST+ 03
 97 X<>Y
 98 ST+ 04
 99 RCL 22
100 RCL 06
101 X=Y?
102 GTO 02
103 1
104 ST+ 06
105 RCL 21
106 ST- 05
107 GTO 10
108 LBL 02
109 RCL 04
110 RCL 03
111 R-P
112 "M="
113 ARCL X
114 AVIEW
115 STOP
116 X<>Y
117 "="  ;"\0D="
118 ARCL X
119 AVIEW
120 STOP
121 GTO D
122 LBL 03
123 360
124 +
125 X<0?
126 GTO 03
127 RTN
128 END

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