The Museum of HP Calculators

Clebsch-Gordon Coefficients for the HP-41C/CV/CX

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 "CGC"
 02 SCI 04
 03 CLRG
 04 "J1=?"
 05 PROMPT
 06 STO 01
 07 "J2=?"
 08 PROMPT
 09 STO 02
 10 "J=?"
 11 PROMPT
 12 STO 03
 13 "M1=?"
 14 PROMPT
 15 STO 11
 16 "M2=?"
 17 PROMPT
 18 STO 12
 19 "M=?"
 20 PROMPT
 21 CHS
 22 STO 10
 23 RCL 01
 24 RCL 02
 25 RCL 03
 26 -
 27 +
 28 FACT
 29 STO 04
 30 RCL 02
 31 RCL 03
 32 RCL 01
 33 -
 34 +
 35 FACT
 36 ST* 04
 37 RCL 03
 38 RCL 01
 39 RCL 02
 40 -
 41 +
 42 FACT
 43 ST* 04
 44 1
 45 RCL 01
 46 RCL 02
 47 RCL 03
 48 +
 49 +
 50 +
 51 FACT
 52 RCL 04
 53 X<>Y
 54 /
 55 SQRT
 56 STO 04
 57 RCL 01
 58 RCL 11
 59 +
 60 FACT
 61 RCL 01
 62 RCL 11
 63 -
 64 FACT
 65 *
 66 STO 05
 67 RCL 02
 68 RCL 12
 69 +
 70 FACT
 71 RCL 02
 72 RCL 12
 73 -
 74 FACT
 75 *
 76 ST* 05
 77 RCL 03
 78 RCL 10
 79 +
 80 FACT
 81 RCL 03
 82 RCL 10
 83 -
 84 FACT
 85 *
 86 ST* 05
 87 RCL 05
 88 SQRT
 89 STO 05
 90 RCL 01
 91 RCL 02
 92 RCL 10
 93 +
 94 -
 95 -1
 96 X<>Y
 97 Y^X
 98 STO 06
 99 RCL 04
100 RCL 05
101 RCL 06
102 *
103 *
104 STO 13
105 CLX
106 SF 00
107 RCL 11
108 STO 15
109 RCL 12
110 STO 16
111 RCL 10
112 STO 17
113 0
114 STO 14
115 LBL 02
116 RCL 03
117 RCL 14
118 RCL 15
119 +
120 +
121 RCL 02
122 -
123 X<0?
124 GTO 03
125 FACT
126 STO 04
127 RCL 03
128 RCL 14
129 +
130 RCL 01
131 RCL 16
132 +
133 -
134 X<0?
135 GTO 03
136 FACT
137 STO 05
138 RCL 01
139 RCL 02
140 +
141 RCL 03
142 RCL 14
143 +
144 -
145 X<0?
146 GTO 03
147 FACT
148 STO 06
149 RCL 01
150 RCL 14
151 RCL 15
152 +
153 -
154 X<0?
155 GTO 03
156 FACT
157 STO 07
158 RCL 02
159 RCL 16
160 +
161 RCL 14
162 -
163 X<0?
164 GTO 03
165 FACT
166 STO 08
167 CF 00
168 RCL 04
169 RCL 05
170 RCL 06
171 *
172 *
173 RCL 07
174 RCL 08
175 *
176 *
177 RCL 14
178 FACT
179 *
180 1/X
181 -1
182 RCL 14
183 Y^X
184 *
185 ST+ 09
186 1
187 ST+ 14
188 GTO 02
189 LBL 03
190 1
191 ST+ 14
192 FS? 00
193 GTO 02
194 RCL 09
195 RCL 13
196 *
197 STO 00
198 -1
199 RCL 01
200 RCL 17
201 -
202 RCL 02
203 -
204 Y^X
205 RCL 03
206 2
207 *
208 1
209 +
210 SQRT
211 *
212 RCL 00
213 *
214 "C.G.="
215 ARCL X
216 AVIEW
217 STOP
218 "3J="
219 ARCL 00
220 AVIEW
221 RTN
222 END

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