← Back to branch summary

~ubuntu-branches/debian/squeeze/maxima/squeeze

« back to all changes in this revision

Viewing changes to src/numerical/slatec/zunhj.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2006-10-18 14:52:42 UTC
  • mto: (1.1.5 upstream)
  • mto: This revision was merged to the branch mainline in revision 4.
  • Revision ID: james.westby@ubuntu.com-20061018145242-vzyrm5hmxr8kiosf
Import upstream version 5.10.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/numerical/slatec/zunhj.lisp
1
 
;;; Compiled by f2cl version 2.0 beta 2002-05-06
 
1
;;; Compiled by f2cl version 2.0 beta Date: 2006/01/31 15:11:05 
 
2
;;; Using Lisp CMU Common Lisp Snapshot 2006-01 (19C)
2
3
;;; 
3
4
;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
4
5
;;;           (:coerce-assigns :as-needed) (:array-type ':simple-array)
5
6
;;;           (:array-slicing nil) (:declare-common nil)
6
7
;;;           (:float-format double-float))
7
8
 
8
 
(in-package "SLATEC")
9
 
 
10
 
 
11
 
(let ((ar (make-array 14 :element-type 'double-float))
12
 
      (br (make-array 14 :element-type 'double-float))
13
 
      (c (make-array 105 :element-type 'double-float))
14
 
      (alfa (make-array 180 :element-type 'double-float))
15
 
      (beta (make-array 210 :element-type 'double-float))
16
 
      (gama (make-array 30 :element-type 'double-float))
17
 
      (ex1 0.33333333333333337)
18
 
      (ex2 0.6666666666666667)
 
9
(in-package :slatec)
 
10
 
 
11
 
 
12
(let ((ar
 
13
       (make-array 14
 
14
                   :element-type 'double-float
 
15
                   :initial-contents '(1.0 0.10416666666666667
 
16
                                       0.08355034722222222 0.12822657455632716
 
17
                                       0.29184902646414046 0.8816272674437576
 
18
                                       3.3214082818627677 14.995762986862555
 
19
                                       78.92301301158652 474.4515388682643
 
20
                                       3207.490090890662 24086.549640874004
 
21
                                       198923.1191695098 1791902.0077753437)))
 
22
      (br
 
23
       (make-array 14
 
24
                   :element-type 'double-float
 
25
                   :initial-contents '(1.0 -0.14583333333333334
 
26
                                       -0.09874131944444445
 
27
                                       -0.14331205391589505
 
28
                                       -0.31722720267841353 -0.9424291479571203
 
29
                                       -3.5112030408263544 -15.727263620368046
 
30
                                       -82.28143909718594 -492.3553705236705
 
31
                                       -3316.2185685479726 -24827.67424520859
 
32
                                       -204526.5873151298 -1838444.91706821)))
 
33
      (c
 
34
       (make-array 105
 
35
                   :element-type 'double-float
 
36
                   :initial-contents '(1.0 -0.20833333333333334 0.125
 
37
                                       0.3342013888888889 -0.4010416666666667
 
38
                                       0.0703125 -1.0258125964506173
 
39
                                       1.8464626736111112 -0.8912109375
 
40
                                       0.0732421875 4.669584423426247
 
41
                                       -11.207002616222994 8.78912353515625
 
42
                                       -2.3640869140625 0.112152099609375
 
43
                                       -28.212072558200244 84.63621767460073
 
44
                                       -91.81824154324002 42.53499874538846
 
45
                                       -7.368794359479632 0.22710800170898438
 
46
                                       212.57013003921713 -765.2524681411817
 
47
                                       1059.9904525279999 -699.5796273761325
 
48
                                       218.1905117442116 -26.491430486951554
 
49
                                       0.5725014209747314 -1919.457662318407
 
50
                                       8061.722181737309 -13586.550006434138
 
51
                                       11655.393336864534 -5305.646978613403
 
52
                                       1200.9029132163525 -108.09091978839466
 
53
                                       1.7277275025844574 20204.29133096615
 
54
                                       -96980.59838863752 192547.00123253153
 
55
                                       -203400.17728041555 122200.46498301746
 
56
                                       -41192.65496889755 7109.514302489364
 
57
                                       -493.915304773088 6.074042001273483
 
58
                                       -242919.18790055133 1311763.6146629772
 
59
                                       -2998015.9185381066 3763271.297656404
 
60
                                       -2813563.226586534 1268365.2733216248
 
61
                                       -331645.1724845636 45218.76898136273
 
62
                                       -2499.8304818112097 24.380529699556064
 
63
                                       3284469.853072038 -1.9706819118432228e7
 
64
                                       5.095260249266464e7 -7.410514821153265e7
 
65
                                       6.634451227472903e7 -3.756717666076335e7
 
66
                                       1.3288767166421818e7 -2785618.1280864547
 
67
                                       308186.4046126624 -13886.08975371704
 
68
                                       110.01714026924674 -4.932925366450996e7
 
69
                                       3.2557307418576574e8
 
70
                                       -9.394623596815784e8 1.55359689957058e9
 
71
                                       -1.6210805521083372e9
 
72
                                       1.1068428168230145e9
 
73
                                       -4.958897842750303e8 1.420629077975331e8
 
74
                                       -2.447406272573873e7 2243768.1779224495
 
75
                                       -84005.43360302408 551.3358961220206
 
76
                                       8.147890961183121e8 -5.866481492051847e9
 
77
                                       1.8688207509295826e10
 
78
                                       -3.4632043388158775e10
 
79
                                       4.1280185579753975e10
 
80
                                       -3.3026599749800724e10
 
81
                                       1.79542137311556e10 -6.563293792619285e9
 
82
                                       1.5592798648792574e9
 
83
                                       -2.2510566188941526e8
 
84
                                       1.7395107553978164e7 -549842.3275722887
 
85
                                       3038.090510922384 -1.4679261247695616e10
 
86
                                       1.144982377320258e11
 
87
                                       -3.990961752244665e11
 
88
                                       8.192186695485773e11
 
89
                                       -1.0983751560812233e12
 
90
                                       1.0081581068653821e12
 
91
                                       -6.453648692453765e11
 
92
                                       2.879006499061506e11
 
93
                                       -8.786707217802327e10
 
94
                                       1.763473060683497e10
 
95
                                       -2.167164983223795e9
 
96
                                       1.4315787671888897e8 -3871833.442572613
 
97
                                       18257.755474293175)))
 
98
      (alfa
 
99
       (make-array 180
 
100
                   :element-type 'double-float
 
101
                   :initial-contents '(-0.0044444444444444444
 
102
                                       -9.22077922077922e-4
 
103
                                       -8.848928848928849e-5
 
104
                                       1.6592768783244973e-4
 
105
                                       2.466913727417929e-4
 
106
                                       2.659955893462548e-4
 
107
                                       2.6182429706150096e-4
 
108
                                       2.487304373446556e-4
 
109
                                       2.3272104008323209e-4
 
110
                                       2.1636248571236508e-4
 
111
                                       2.0073885876275234e-4
 
112
                                       1.8626763663754517e-4
 
113
                                       1.730607759178765e-4
 
114
                                       1.6109170592901574e-4
 
115
                                       1.5027477416090814e-4
 
116
                                       1.405034973912698e-4
 
117
                                       1.316688165459228e-4
 
118
                                       1.2366744559825325e-4
 
119
                                       1.1640527147473791e-4
 
120
                                       1.0979829837271337e-4
 
121
                                       1.0377241042299283e-4
 
122
                                       9.826260783693634e-5
 
123
                                       9.321205172495032e-5
 
124
                                       8.857108524787117e-5
 
125
                                       8.429631057157003e-5
 
126
                                       8.034975484077912e-5
 
127
                                       7.669813453592074e-5
 
128
                                       7.331221574817778e-5
 
129
                                       7.016626251631414e-5
 
130
                                       6.723756337901603e-5 6.93735541354589e-4
 
131
                                       2.3224174518292166e-4
 
132
                                       -1.419862735566912e-5
 
133
                                       -1.1644493167204864e-4
 
134
                                       -1.5080355805304876e-4
 
135
                                       -1.5512192491809622e-4
 
136
                                       -1.4680975664646556e-4
 
137
                                       -1.3381550386749137e-4
 
138
                                       -1.1974497568425405e-4
 
139
                                       -1.0618431920797402e-4
 
140
                                       -9.376995498911944e-5
 
141
                                       -8.269230455881933e-5
 
142
                                       -7.293743481552213e-5
 
143
                                       -6.440423577210163e-5
 
144
                                       -5.69611566009369e-5
 
145
                                       -5.0473104430356164e-5
 
146
                                       -4.481348680088828e-5
 
147
                                       -3.9868872771759884e-5
 
148
                                       -3.554005329720425e-5
 
149
                                       -3.174142566090225e-5
 
150
                                       -2.839967939041748e-5
 
151
                                       -2.5452272063487058e-5
 
152
                                       -2.2845929716472455e-5
 
153
                                       -2.053527531064806e-5
 
154
                                       -1.848162176276661e-5
 
155
                                       -1.665193300213938e-5
 
156
                                       -1.5017941298011949e-5
 
157
                                       -1.3555403137904052e-5
 
158
                                       -1.2243474647385812e-5
 
159
                                       -1.1064188481130817e-5
 
160
                                       -3.5421197145774384e-4
 
161
                                       -1.5616126394515941e-4
 
162
                                       3.044655035949364e-5
 
163
                                       1.301986557732427e-4
 
164
                                       1.6747110669971228e-4
 
165
                                       1.7022258768359256e-4
 
166
                                       1.5650142760859472e-4
 
167
                                       1.3633917097744512e-4
 
168
                                       1.1488669202982512e-4
 
169
                                       9.458690930346882e-5
 
170
                                       7.644984192508983e-5
 
171
                                       6.0757033496519734e-5
 
172
                                       4.743942992905088e-5
 
173
                                       3.627575120053443e-5
 
174
                                       2.699397149792249e-5
 
175
                                       1.9321093824793926e-5
 
176
                                       1.3005667479396321e-5
 
177
                                       7.826208667444966e-6
 
178
                                       3.592574858193516e-6
 
179
                                       1.4404004981425182e-7
 
180
                                       -2.653967696979391e-6
 
181
                                       -4.913468670984859e-6
 
182
                                       -6.727392960912483e-6
 
183
                                       -8.17269379678658e-6
 
184
                                       -9.313047150935612e-6
 
185
                                       -1.0201141879801643e-5
 
186
                                       -1.0880596251059288e-5
 
187
                                       -1.1387548150960355e-5
 
188
                                       -1.1751967567455642e-5
 
189
                                       -1.1998736487094414e-5
 
190
                                       3.781941992017729e-4
 
191
                                       2.0247195276181616e-4
 
192
                                       -6.379385063188624e-5
 
193
                                       -2.385982306030059e-4
 
194
                                       -3.109162560273616e-4
 
195
                                       -3.1368011524757634e-4
 
196
                                       -2.789502737913234e-4
 
197
                                       -2.2856408261914138e-4
 
198
                                       -1.7524528034084676e-4
 
199
                                       -1.2554406306069035e-4
 
200
                                       -8.229828728202083e-5
 
201
                                       -4.628607305881165e-5
 
202
                                       -1.7233430236696227e-5
 
203
                                       5.6069048230460226e-6
 
204
                                       2.313954431482868e-5
 
205
                                       3.626427458567939e-5
 
206
                                       4.5800612449018877e-5
 
207
                                       5.2459529495911405e-5
 
208
                                       5.683962085458153e-5
 
209
                                       5.9434982039310406e-5
 
210
                                       6.0647852757842175e-5
 
211
                                       6.080239077884365e-5
 
212
                                       6.0157789453946036e-5
 
213
                                       5.891996573446985e-5 5.72515823777593e-5
 
214
                                       5.528043755858526e-5
 
215
                                       5.310637738028802e-5
 
216
                                       5.080693020123257e-5
 
217
                                       4.8441864762009484e-5
 
218
                                       4.6056858160747536e-5
 
219
                                       -6.911413972882942e-4
 
220
                                       -4.299766330588719e-4
 
221
                                       1.83067735980039e-4 6.600881475420142e-4
 
222
                                       8.759649699511859e-4
 
223
                                       8.773352359582355e-4
 
224
                                       7.493695853789907e-4 5.63832329756981e-4
 
225
                                       3.680593199714432e-4
 
226
                                       1.884645355144556e-4
 
227
                                       3.7066305766490415e-5
 
228
                                       -8.28520220232137e-5
 
229
                                       -1.72751952869173e-4
 
230
                                       -2.3631487360587297e-4
 
231
                                       -2.779661506949067e-4
 
232
                                       -3.0207951415545694e-4
 
233
                                       -3.125947126438201e-4
 
234
                                       -3.1287255875806717e-4
 
235
                                       -3.056780384663244e-4
 
236
                                       -2.932264706145573e-4
 
237
                                       -2.772556555829348e-4
 
238
                                       -2.591039284670317e-4
 
239
                                       -2.3978401439648034e-4
 
240
                                       -2.2004826004542284e-4
 
241
                                       -2.0044391109497149e-4
 
242
                                       -1.8135869221097068e-4
 
243
                                       -1.6305767447865748e-4
 
244
                                       -1.4571267217520584e-4
 
245
                                       -1.294254219839246e-4
 
246
                                       -1.1424569194244596e-4
 
247
                                       0.0019282196424877589
 
248
                                       0.0013559257630202223
 
249
                                       -7.17858090421303e-4
 
250
                                       -0.0025808480257527035
 
251
                                       -0.0034927113082616847
 
252
                                       -0.003469862993409606
 
253
                                       -0.002822852333513102
 
254
                                       -0.0018810307640489134
 
255
                                       -8.895317183839476e-4
 
256
                                       3.8791210263103525e-6
 
257
                                       7.286885401196914e-4
 
258
                                       0.0012656637305345775
 
259
                                       0.0016251815837267443
 
260
                                       0.0018320315321637317
 
261
                                       0.0019158838899052792
 
262
                                       0.0019058884675554615
 
263
                                       0.0018279898242182574
 
264
                                       0.0017038950642112153
 
265
                                       0.0015509712717109768
 
266
                                       0.0013826142185227616
 
267
                                       0.0012088142423006478
 
268
                                       0.0010367653263834496
 
269
                                       8.714379180686191e-4 7.16080155297701e-4
 
270
                                       5.726370025581294e-4
 
271
                                       4.420898194658023e-4
 
272
                                       3.2472494850309055e-4
 
273
                                       2.2034204273024659e-4
 
274
                                       1.2841289840135388e-4
 
275
                                       4.8200592455209545e-5)))
 
276
      (beta
 
277
       (make-array 210
 
278
                   :element-type 'double-float
 
279
                   :initial-contents '(0.01799887214135533 0.005599649110643881
 
280
                                       0.0028850140223113277
 
281
                                       0.0018009660676105393
 
282
                                       0.001247531105891992
 
283
                                       9.228788765729383e-4
 
284
                                       7.144304217272874e-4
 
285
                                       5.717872817897049e-4
 
286
                                       4.6943100760648155e-4
 
287
                                       3.9323283546291665e-4
 
288
                                       3.348188893182977e-4
 
289
                                       2.8895214849575154e-4
 
290
                                       2.522116155495733e-4
 
291
                                       2.2228058079888332e-4
 
292
                                       1.975418380330625e-4
 
293
                                       1.7683685501971802e-4
 
294
                                       1.593168996618211e-4
 
295
                                       1.4434793019733397e-4
 
296
                                       1.314480681199654e-4
 
297
                                       1.2024544494930288e-4
 
298
                                       1.104491445045994e-4
 
299
                                       1.0182877074056726e-4
 
300
                                       9.419982242042375e-5
 
301
                                       8.741305457538345e-5
 
302
                                       8.134662621628014e-5
 
303
                                       7.590022696462193e-5
 
304
                                       7.099063006341535e-5
 
305
                                       6.654828748424682e-5 6.25146958969275e-5
 
306
                                       5.884033944262518e-5
 
307
                                       -0.0014928295321342917
 
308
                                       -8.782047095463894e-4
 
309
                                       -5.029165495720346e-4
 
310
                                       -2.94822138512746e-4
 
311
                                       -1.7546399697078284e-4
 
312
                                       -1.0400855046081644e-4
 
313
                                       -5.961419530464579e-5
 
314
                                       -3.1203892907609836e-5
 
315
                                       -1.2608973598023005e-5
 
316
                                       -2.4289260857573037e-7
 
317
                                       8.059961654142736e-6
 
318
                                       1.3650700926214739e-5
 
319
                                       1.7396412547292627e-5
 
320
                                       1.9867297884213378e-5
 
321
                                       2.1446326379082263e-5
 
322
                                       2.2395465923245652e-5
 
323
                                       2.2896778381471263e-5
 
324
                                       2.307853898111778e-5
 
325
                                       2.3032197608090914e-5
 
326
                                       2.2823607372034874e-5
 
327
                                       2.250058811052924e-5
 
328
                                       2.2098101536199144e-5
 
329
                                       2.164184274481039e-5
 
330
                                       2.1150764925622083e-5
 
331
                                       2.0638874978217072e-5
 
332
                                       2.0116524199708165e-5
 
333
                                       1.9591345014117925e-5
 
334
                                       1.9068936791043675e-5
 
335
                                       1.8553371964163667e-5
 
336
                                       1.804757222596742e-5
 
337
                                       5.522130767212928e-4
 
338
                                       4.4793258155238465e-4
 
339
                                       2.795206539920206e-4
 
340
                                       1.524681561984466e-4
 
341
                                       6.932711056570436e-5
 
342
                                       1.762586830699914e-5
 
343
                                       -1.3574499634326914e-5
 
344
                                       -3.179724133504272e-5
 
345
                                       -4.188618616966934e-5
 
346
                                       -4.6900488937914104e-5
 
347
                                       -4.8766544741378735e-5
 
348
                                       -4.8701003118673505e-5
 
349
                                       -4.747556208900866e-5
 
350
                                       -4.558130581386284e-5
 
351
                                       -4.33309644511266e-5
 
352
                                       -4.0923019315775034e-5
 
353
                                       -3.848226386032213e-5
 
354
                                       -3.608571675354105e-5
 
355
                                       -3.377933061233674e-5
 
356
                                       -3.158885607721096e-5
 
357
                                       -2.952695617508073e-5
 
358
                                       -2.7597891482833575e-5
 
359
                                       -2.5800617466688372e-5
 
360
                                       -2.413083567612802e-5
 
361
                                       -2.2582350951834605e-5
 
362
                                       -2.1147965676891298e-5
 
363
                                       -1.9820063888529493e-5
 
364
                                       -1.8590987080106508e-5
 
365
                                       -1.7453269984421023e-5
 
366
                                       -1.63997823854498e-5
 
367
                                       -4.746177965599598e-4
 
368
                                       -4.778645671473215e-4
 
369
                                       -3.2039022806703763e-4
 
370
                                       -1.6110501611996228e-4
 
371
                                       -4.257781012854352e-5
 
372
                                       3.445712942949675e-5 7.97092684075675e-5
 
373
                                       1.031382367082722e-4
 
374
                                       1.1246677526220416e-4
 
375
                                       1.131036421084814e-4
 
376
                                       1.0865163484877427e-4
 
377
                                       1.0143795159766197e-4
 
378
                                       9.29298396593364e-5 8.4029313301609e-5
 
379
                                       7.52727991349134e-5 6.696325219757309e-5
 
380
                                       5.925645473231947e-5
 
381
                                       5.2216930882697554e-5
 
382
                                       4.585394851653606e-5
 
383
                                       4.014455138914868e-5
 
384
                                       3.504817300313281e-5
 
385
                                       3.0515799503434667e-5
 
386
                                       2.6495611995051603e-5
 
387
                                       2.2936363369099816e-5
 
388
                                       1.9789305666402162e-5
 
389
                                       1.7009198463641262e-5
 
390
                                       1.45547428261524e-5 1.238866409958784e-5
 
391
                                       1.0477587607658323e-5
 
392
                                       8.791799549784793e-6
 
393
                                       7.364658105725784e-4 8.72790805146194e-4
 
394
                                       6.226148625731351e-4
 
395
                                       2.8599815419430417e-4
 
396
                                       3.847376728793661e-6
 
397
                                       -1.8790600363697156e-4
 
398
                                       -2.9760364659455455e-4
 
399
                                       -3.4599812683265633e-4
 
400
                                       -3.5338247091603773e-4
 
401
                                       -3.3571563577504876e-4
 
402
                                       -3.043211247890398e-4
 
403
                                       -2.6672272304761283e-4
 
404
                                       -2.2765421412281953e-4
 
405
                                       -1.8992261185456235e-4
 
406
                                       -1.5505891859909386e-4
 
407
                                       -1.2377824076187363e-4
 
408
                                       -9.629261477176441e-5
 
409
                                       -7.251783277144253e-5
 
410
                                       -5.220700288956338e-5
 
411
                                       -3.5034775051190054e-5
 
412
                                       -2.0648976103555174e-5
 
413
                                       -8.701060968497671e-6
 
414
                                       1.136986866751003e-6
 
415
                                       9.164264741227788e-6
 
416
                                       1.564777854288726e-5
 
417
                                       2.0822362948246685e-5
 
418
                                       2.4892338100459516e-5
 
419
                                       2.803405095741463e-5
 
420
                                       3.039877746298619e-5
 
421
                                       3.211567314067006e-5
 
422
                                       -0.0018018219196388571
 
423
                                       -0.0024340296293804253
 
424
                                       -0.001834226635498568
 
425
                                       -7.622045963540097e-4
 
426
                                       2.3907947525692722e-4
 
427
                                       9.492661171768811e-4
 
428
                                       0.0013446744970154036
 
429
                                       0.0014845749525944918
 
430
                                       0.001447323398306176
 
431
                                       0.0013026826128565718
 
432
                                       0.0011035159737564268
 
433
                                       8.860474404197917e-4
 
434
                                       6.730732081656654e-4
 
435
                                       4.7760387285658237e-4
 
436
                                       3.0599192635878935e-4
 
437
                                       1.6031569459472162e-4
 
438
                                       4.007495552706133e-5
 
439
                                       -5.666074616352516e-5
 
440
                                       -1.3250618677298264e-4
 
441
                                       -1.9029618798961406e-4
 
442
                                       -2.328114503769374e-4
 
443
                                       -2.6262881146466884e-4
 
444
                                       -2.8205046986759866e-4
 
445
                                       -2.9308156319286116e-4
 
446
                                       -2.974359621763166e-4
 
447
                                       -2.965573342393481e-4
 
448
                                       -2.916473633120909e-4
 
449
                                       -2.836962038377342e-4
 
450
                                       -2.7351231709567335e-4
 
451
                                       -2.617501558067686e-4
 
452
                                       0.006385858912120509 0.00962374215806378
 
453
                                       0.0076187806120700105
 
454
                                       0.0028321905554562804
 
455
                                       -0.002098413520127201
 
456
                                       -0.005738267642166265
 
457
                                       -0.0077080424449541465
 
458
                                       -0.008210116922648444
 
459
                                       -0.007658245203469054
 
460
                                       -0.006472097293910452
 
461
                                       -0.004991324120049665
 
462
                                       -0.0034561228971313326
 
463
                                       -0.002017855800141708
 
464
                                       -7.594306867819614e-4
 
465
                                       2.841736315238591e-4
 
466
                                       0.001108916675863374
 
467
                                       0.0017290149387272878
 
468
                                       0.002168125908026847
 
469
                                       0.002453577104945397
 
470
                                       0.0026128182105833488
 
471
                                       0.002671410396562769
 
472
                                       0.0026520307339598045
 
473
                                       0.002574116528772873
 
474
                                       0.0024538912623609443
 
475
                                       0.002304600580717955
 
476
                                       0.0021368483768671267
 
477
                                       0.001958965284788709
 
478
                                       0.0017773700867945441
 
479
                                       0.0015969028076583906
 
480
                                       0.0014211197566443854)))
 
481
      (gama
 
482
       (make-array 30
 
483
                   :element-type 'double-float
 
484
                   :initial-contents '(0.6299605249474366 0.25198420997897464
 
485
                                       0.15479030041565583 0.11071306241615901
 
486
                                       0.08573093955273949 0.06971613169586843
 
487
                                       0.05860856718937136 0.05046988735363107
 
488
                                       0.04426005806891548 0.039372066154350994
 
489
                                       0.03542831959244554 0.032181885750209825
 
490
                                       0.029464624079115768
 
491
                                       0.027158167711293448
 
492
                                       0.025176827297386177 0.02345707553060789
 
493
                                       0.02195083901349072 0.020621082823564625
 
494
                                       0.019438824089788084
 
495
                                       0.018381063380068317
 
496
                                       0.017429321323196318
 
497
                                       0.016568583778661234
 
498
                                       0.015786528598791844 0.01507295014940956
 
499
                                       0.014419325083995464
 
500
                                       0.013818480573534178
 
501
                                       0.013264337899427657
 
502
                                       0.012751712197049864
 
503
                                       0.012276154531876277
 
504
                                       0.01183382623984824)))
 
505
      (ex1 0.3333333333333333)
 
506
      (ex2 0.6666666666666666)
19
507
      (hpi 1.5707963267948966)
20
508
      (gpi 3.141592653589793)
21
509
      (thpi 4.71238898038469)
29
517
           (type (simple-array double-float (180)) alfa)
30
518
           (type (simple-array double-float (105)) c)
31
519
           (type (simple-array double-float (14)) br ar))
32
 
  (f2cl-lib:fset (f2cl-lib:fref ar (1) ((1 14))) 1.0)
33
 
  (f2cl-lib:fset (f2cl-lib:fref ar (2) ((1 14))) 0.10416666666666669)
34
 
  (f2cl-lib:fset (f2cl-lib:fref ar (3) ((1 14))) 0.08355034722222221)
35
 
  (f2cl-lib:fset (f2cl-lib:fref ar (4) ((1 14))) 0.12822657455632716)
36
 
  (f2cl-lib:fset (f2cl-lib:fref ar (5) ((1 14))) 0.29184902646414046)
37
 
  (f2cl-lib:fset (f2cl-lib:fref ar (6) ((1 14))) 0.8816272674437576)
38
 
  (f2cl-lib:fset (f2cl-lib:fref ar (7) ((1 14))) 3.3214082818627677)
39
 
  (f2cl-lib:fset (f2cl-lib:fref ar (8) ((1 14))) 14.995762986862555)
40
 
  (f2cl-lib:fset (f2cl-lib:fref ar (9) ((1 14))) 78.92301301158652)
41
 
  (f2cl-lib:fset (f2cl-lib:fref ar (10) ((1 14))) 474.4515388682643)
42
 
  (f2cl-lib:fset (f2cl-lib:fref ar (11) ((1 14))) 3207.490090890662)
43
 
  (f2cl-lib:fset (f2cl-lib:fref ar (12) ((1 14))) 24086.549640874004)
44
 
  (f2cl-lib:fset (f2cl-lib:fref ar (13) ((1 14))) 198923.1191695098)
45
 
  (f2cl-lib:fset (f2cl-lib:fref ar (14) ((1 14))) 1791902.0077753437)
46
 
  (f2cl-lib:fset (f2cl-lib:fref br (1) ((1 14))) 1.0)
47
 
  (f2cl-lib:fset (f2cl-lib:fref br (2) ((1 14))) -0.14583333333333334)
48
 
  (f2cl-lib:fset (f2cl-lib:fref br (3) ((1 14))) -0.09874131944444445)
49
 
  (f2cl-lib:fset (f2cl-lib:fref br (4) ((1 14))) -0.14331205391589505)
50
 
  (f2cl-lib:fset (f2cl-lib:fref br (5) ((1 14))) -0.31722720267841353)
51
 
  (f2cl-lib:fset (f2cl-lib:fref br (6) ((1 14))) -0.9424291479571203)
52
 
  (f2cl-lib:fset (f2cl-lib:fref br (7) ((1 14))) -3.5112030408263544)
53
 
  (f2cl-lib:fset (f2cl-lib:fref br (8) ((1 14))) -15.727263620368046)
54
 
  (f2cl-lib:fset (f2cl-lib:fref br (9) ((1 14))) -82.28143909718595)
55
 
  (f2cl-lib:fset (f2cl-lib:fref br (10) ((1 14))) -492.35537052367056)
56
 
  (f2cl-lib:fset (f2cl-lib:fref br (11) ((1 14))) -3316.218568547972)
57
 
  (f2cl-lib:fset (f2cl-lib:fref br (12) ((1 14))) -24827.67424520859)
58
 
  (f2cl-lib:fset (f2cl-lib:fref br (13) ((1 14))) -204526.58731512981)
59
 
  (f2cl-lib:fset (f2cl-lib:fref br (14) ((1 14))) -1838444.91706821)
60
 
  (f2cl-lib:fset (f2cl-lib:fref c (1) ((1 105))) 1.0)
61
 
  (f2cl-lib:fset (f2cl-lib:fref c (2) ((1 105))) -0.20833333333333337)
62
 
  (f2cl-lib:fset (f2cl-lib:fref c (3) ((1 105))) 0.125)
63
 
  (f2cl-lib:fset (f2cl-lib:fref c (4) ((1 105))) 0.3342013888888889)
64
 
  (f2cl-lib:fset (f2cl-lib:fref c (5) ((1 105))) -0.40104166666666674)
65
 
  (f2cl-lib:fset (f2cl-lib:fref c (6) ((1 105))) 0.0703125)
66
 
  (f2cl-lib:fset (f2cl-lib:fref c (7) ((1 105))) -1.0258125964506173)
67
 
  (f2cl-lib:fset (f2cl-lib:fref c (8) ((1 105))) 1.8464626736111112)
68
 
  (f2cl-lib:fset (f2cl-lib:fref c (9) ((1 105))) -0.8912109375)
69
 
  (f2cl-lib:fset (f2cl-lib:fref c (10) ((1 105))) 0.0732421875)
70
 
  (f2cl-lib:fset (f2cl-lib:fref c (11) ((1 105))) 4.669584423426247)
71
 
  (f2cl-lib:fset (f2cl-lib:fref c (12) ((1 105))) -11.207002616222994)
72
 
  (f2cl-lib:fset (f2cl-lib:fref c (13) ((1 105))) 8.78912353515625)
73
 
  (f2cl-lib:fset (f2cl-lib:fref c (14) ((1 105))) -2.3640869140625)
74
 
  (f2cl-lib:fset (f2cl-lib:fref c (15) ((1 105))) 0.112152099609375)
75
 
  (f2cl-lib:fset (f2cl-lib:fref c (16) ((1 105))) -28.212072558200244)
76
 
  (f2cl-lib:fset (f2cl-lib:fref c (17) ((1 105))) 84.63621767460074)
77
 
  (f2cl-lib:fset (f2cl-lib:fref c (18) ((1 105))) -91.81824154324002)
78
 
  (f2cl-lib:fset (f2cl-lib:fref c (19) ((1 105))) 42.53499874538846)
79
 
  (f2cl-lib:fset (f2cl-lib:fref c (20) ((1 105))) -7.368794359479632)
80
 
  (f2cl-lib:fset (f2cl-lib:fref c (21) ((1 105))) 0.22710800170898437)
81
 
  (f2cl-lib:fset (f2cl-lib:fref c (22) ((1 105))) 212.57013003921713)
82
 
  (f2cl-lib:fset (f2cl-lib:fref c (23) ((1 105))) -765.2524681411817)
83
 
  (f2cl-lib:fset (f2cl-lib:fref c (24) ((1 105))) 1059.9904525279999)
84
 
  (f2cl-lib:fset (f2cl-lib:fref c (25) ((1 105))) -699.5796273761325)
85
 
  (f2cl-lib:fset (f2cl-lib:fref c (26) ((1 105))) 218.1905117442116)
86
 
  (f2cl-lib:fset (f2cl-lib:fref c (27) ((1 105))) -26.491430486951554)
87
 
  (f2cl-lib:fset (f2cl-lib:fref c (28) ((1 105))) 0.5725014209747314)
88
 
  (f2cl-lib:fset (f2cl-lib:fref c (29) ((1 105))) -1919.457662318407)
89
 
  (f2cl-lib:fset (f2cl-lib:fref c (30) ((1 105))) 8061.722181737309)
90
 
  (f2cl-lib:fset (f2cl-lib:fref c (31) ((1 105))) -13586.550006434138)
91
 
  (f2cl-lib:fset (f2cl-lib:fref c (32) ((1 105))) 11655.393336864532)
92
 
  (f2cl-lib:fset (f2cl-lib:fref c (33) ((1 105))) -5305.646978613403)
93
 
  (f2cl-lib:fset (f2cl-lib:fref c (34) ((1 105))) 1200.9029132163525)
94
 
  (f2cl-lib:fset (f2cl-lib:fref c (35) ((1 105))) -108.09091978839464)
95
 
  (f2cl-lib:fset (f2cl-lib:fref c (36) ((1 105))) 1.7277275025844574)
96
 
  (f2cl-lib:fset (f2cl-lib:fref c (37) ((1 105))) 20204.291330966145)
97
 
  (f2cl-lib:fset (f2cl-lib:fref c (38) ((1 105))) -96980.5983886375)
98
 
  (f2cl-lib:fset (f2cl-lib:fref c (39) ((1 105))) 192547.00123253153)
99
 
  (f2cl-lib:fset (f2cl-lib:fref c (40) ((1 105))) -203400.17728041552)
100
 
  (f2cl-lib:fset (f2cl-lib:fref c (41) ((1 105))) 122200.46498301746)
101
 
  (f2cl-lib:fset (f2cl-lib:fref c (42) ((1 105))) -41192.65496889756)
102
 
  (f2cl-lib:fset (f2cl-lib:fref c (43) ((1 105))) 7109.514302489364)
103
 
  (f2cl-lib:fset (f2cl-lib:fref c (44) ((1 105))) -493.915304773088)
104
 
  (f2cl-lib:fset (f2cl-lib:fref c (45) ((1 105))) 6.074042001273483)
105
 
  (f2cl-lib:fset (f2cl-lib:fref c (46) ((1 105))) -242919.1879005513)
106
 
  (f2cl-lib:fset (f2cl-lib:fref c (47) ((1 105))) 1311763.6146629772)
107
 
  (f2cl-lib:fset (f2cl-lib:fref c (48) ((1 105))) -2998015.9185381066)
108
 
  (f2cl-lib:fset (f2cl-lib:fref c (49) ((1 105))) 3763271.297656404)
109
 
  (f2cl-lib:fset (f2cl-lib:fref c (50) ((1 105))) -2813563.226586534)
110
 
  (f2cl-lib:fset (f2cl-lib:fref c (51) ((1 105))) 1268365.2733216248)
111
 
  (f2cl-lib:fset (f2cl-lib:fref c (52) ((1 105))) -331645.1724845636)
112
 
  (f2cl-lib:fset (f2cl-lib:fref c (53) ((1 105))) 45218.76898136273)
113
 
  (f2cl-lib:fset (f2cl-lib:fref c (54) ((1 105))) -2499.8304818112097)
114
 
  (f2cl-lib:fset (f2cl-lib:fref c (55) ((1 105))) 24.380529699556064)
115
 
  (f2cl-lib:fset (f2cl-lib:fref c (56) ((1 105))) 3284469.853072038)
116
 
  (f2cl-lib:fset (f2cl-lib:fref c (57) ((1 105))) -1.9706819118432228e+7)
117
 
  (f2cl-lib:fset (f2cl-lib:fref c (58) ((1 105))) 5.095260249266464e+7)
118
 
  (f2cl-lib:fset (f2cl-lib:fref c (59) ((1 105))) -7.410514821153266e+7)
119
 
  (f2cl-lib:fset (f2cl-lib:fref c (60) ((1 105))) 6.634451227472903e+7)
120
 
  (f2cl-lib:fset (f2cl-lib:fref c (61) ((1 105))) -3.756717666076335e+7)
121
 
  (f2cl-lib:fset (f2cl-lib:fref c (62) ((1 105))) 1.3288767166421817e+7)
122
 
  (f2cl-lib:fset (f2cl-lib:fref c (63) ((1 105))) -2785618.1280864547)
123
 
  (f2cl-lib:fset (f2cl-lib:fref c (64) ((1 105))) 308186.4046126624)
124
 
  (f2cl-lib:fset (f2cl-lib:fref c (65) ((1 105))) -13886.089753717042)
125
 
  (f2cl-lib:fset (f2cl-lib:fref c (66) ((1 105))) 110.01714026924674)
126
 
  (f2cl-lib:fset (f2cl-lib:fref c (67) ((1 105))) -4.932925366450996e+7)
127
 
  (f2cl-lib:fset (f2cl-lib:fref c (68) ((1 105))) 3.2557307418576575e+8)
128
 
  (f2cl-lib:fset (f2cl-lib:fref c (69) ((1 105))) -9.394623596815784e+8)
129
 
  (f2cl-lib:fset (f2cl-lib:fref c (70) ((1 105))) 1.55359689957058e+9)
130
 
  (f2cl-lib:fset (f2cl-lib:fref c (71) ((1 105))) -1.6210805521083374e+9)
131
 
  (f2cl-lib:fset (f2cl-lib:fref c (72) ((1 105))) 1.1068428168230145e+9)
132
 
  (f2cl-lib:fset (f2cl-lib:fref c (73) ((1 105))) -4.958897842750303e+8)
133
 
  (f2cl-lib:fset (f2cl-lib:fref c (74) ((1 105))) 1.4206290779753308e+8)
134
 
  (f2cl-lib:fset (f2cl-lib:fref c (75) ((1 105))) -2.4474062725738724e+7)
135
 
  (f2cl-lib:fset (f2cl-lib:fref c (76) ((1 105))) 2243768.1779224495)
136
 
  (f2cl-lib:fset (f2cl-lib:fref c (77) ((1 105))) -84005.4336030241)
137
 
  (f2cl-lib:fset (f2cl-lib:fref c (78) ((1 105))) 551.3358961220206)
138
 
  (f2cl-lib:fset (f2cl-lib:fref c (79) ((1 105))) 8.147890961183122e+8)
139
 
  (f2cl-lib:fset (f2cl-lib:fref c (80) ((1 105))) -5.866481492051847e+9)
140
 
  (f2cl-lib:fset (f2cl-lib:fref c (81) ((1 105))) 1.8688207509295826e+10)
141
 
  (f2cl-lib:fset (f2cl-lib:fref c (82) ((1 105))) -3.4632043388158773e+10)
142
 
  (f2cl-lib:fset (f2cl-lib:fref c (83) ((1 105))) 4.1280185579753975e+10)
143
 
  (f2cl-lib:fset (f2cl-lib:fref c (84) ((1 105))) -3.302659974980072e+10)
144
 
  (f2cl-lib:fset (f2cl-lib:fref c (85) ((1 105))) 1.79542137311556e+10)
145
 
  (f2cl-lib:fset (f2cl-lib:fref c (86) ((1 105))) -6.563293792619285e+9)
146
 
  (f2cl-lib:fset (f2cl-lib:fref c (87) ((1 105))) 1.5592798648792575e+9)
147
 
  (f2cl-lib:fset (f2cl-lib:fref c (88) ((1 105))) -2.251056618894153e+8)
148
 
  (f2cl-lib:fset (f2cl-lib:fref c (89) ((1 105))) 1.7395107553978165e+7)
149
 
  (f2cl-lib:fset (f2cl-lib:fref c (90) ((1 105))) -549842.3275722887)
150
 
  (f2cl-lib:fset (f2cl-lib:fref c (91) ((1 105))) 3038.0905109223845)
151
 
  (f2cl-lib:fset (f2cl-lib:fref c (92) ((1 105))) -1.4679261247695616e+10)
152
 
  (f2cl-lib:fset (f2cl-lib:fref c (93) ((1 105))) 1.1449823773202579e+11)
153
 
  (f2cl-lib:fset (f2cl-lib:fref c (94) ((1 105))) -3.990961752244665e+11)
154
 
  (f2cl-lib:fset (f2cl-lib:fref c (95) ((1 105))) 8.192186695485775e+11)
155
 
  (f2cl-lib:fset (f2cl-lib:fref c (96) ((1 105))) -1.0983751560812234e+12)
156
 
  (f2cl-lib:fset (f2cl-lib:fref c (97) ((1 105))) 1.008158106865382e+12)
157
 
  (f2cl-lib:fset (f2cl-lib:fref c (98) ((1 105))) -6.453648692453764e+11)
158
 
  (f2cl-lib:fset (f2cl-lib:fref c (99) ((1 105))) 2.879006499061506e+11)
159
 
  (f2cl-lib:fset (f2cl-lib:fref c (100) ((1 105))) -8.786707217802326e+10)
160
 
  (f2cl-lib:fset (f2cl-lib:fref c (101) ((1 105))) 1.763473060683497e+10)
161
 
  (f2cl-lib:fset (f2cl-lib:fref c (102) ((1 105))) -2.167164983223795e+9)
162
 
  (f2cl-lib:fset (f2cl-lib:fref c (103) ((1 105))) 1.4315787671888897e+8)
163
 
  (f2cl-lib:fset (f2cl-lib:fref c (104) ((1 105))) -3871833.4425726123)
164
 
  (f2cl-lib:fset (f2cl-lib:fref c (105) ((1 105))) 18257.755474293175)
165
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (1) ((1 180))) -0.0044444444444444444)
166
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (2) ((1 180))) -9.220779220779222e-4)
167
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (3) ((1 180))) -8.848928848928851e-5)
168
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (4) ((1 180))) 1.6592768783244974e-4)
169
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (5) ((1 180))) 2.4669137274179292e-4)
170
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (6) ((1 180))) 2.6599558934625483e-4)
171
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (7) ((1 180))) 2.6182429706150095e-4)
172
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (8) ((1 180))) 2.4873043734465564e-4)
173
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (9) ((1 180))) 2.327210400832321e-4)
174
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (10) ((1 180))) 2.163624857123651e-4)
175
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (11) ((1 180))) 2.0073885876275238e-4)
176
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (12) ((1 180))) 1.8626763663754517e-4)
177
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (13) ((1 180))) 1.730607759178765e-4)
178
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (14) ((1 180))) 1.6109170592901578e-4)
179
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (15) ((1 180))) 1.5027477416090815e-4)
180
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (16) ((1 180))) 1.405034973912698e-4)
181
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (17) ((1 180))) 1.316688165459228e-4)
182
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (18) ((1 180))) 1.2366744559825327e-4)
183
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (19) ((1 180))) 1.1640527147473789e-4)
184
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (20) ((1 180))) 1.0979829837271338e-4)
185
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (21) ((1 180))) 1.0377241042299283e-4)
186
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (22) ((1 180))) 9.826260783693634e-5)
187
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (23) ((1 180))) 9.321205172495034e-5)
188
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (24) ((1 180))) 8.857108524787118e-5)
189
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (25) ((1 180))) 8.429631057157001e-5)
190
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (26) ((1 180))) 8.034975484077912e-5)
191
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (27) ((1 180))) 7.669813453592074e-5)
192
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (28) ((1 180))) 7.33122157481778e-5)
193
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (29) ((1 180))) 7.016626251631414e-5)
194
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (30) ((1 180))) 6.723756337901602e-5)
195
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (31) ((1 180))) 6.937355413545891e-4)
196
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (32) ((1 180))) 2.3224174518292165e-4)
197
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (33) ((1 180))) -1.4198627355669122e-5)
198
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (34) ((1 180))) -1.1644493167204864e-4)
199
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (35) ((1 180))) -1.508035580530488e-4)
200
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (36) ((1 180))) -1.5512192491809623e-4)
201
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (37) ((1 180))) -1.4680975664646556e-4)
202
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (38) ((1 180))) -1.3381550386749136e-4)
203
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (39) ((1 180))) -1.1974497568425405e-4)
204
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (40) ((1 180))) -1.0618431920797404e-4)
205
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (41) ((1 180))) -9.376995498911946e-5)
206
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (42) ((1 180))) -8.269230455881934e-5)
207
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (43) ((1 180))) -7.293743481552213e-5)
208
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (44) ((1 180))) -6.440423577210163e-5)
209
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (45) ((1 180))) -5.69611566009369e-5)
210
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (46) ((1 180))) -5.047310443035617e-5)
211
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (47) ((1 180))) -4.481348680088828e-5)
212
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (48) ((1 180))) -3.9868872771759895e-5)
213
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (49) ((1 180))) -3.554005329720425e-5)
214
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (50) ((1 180))) -3.174142566090225e-5)
215
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (51) ((1 180))) -2.8399679390417487e-5)
216
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (52) ((1 180))) -2.545227206348706e-5)
217
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (53) ((1 180))) -2.2845929716472457e-5)
218
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (54) ((1 180))) -2.0535275310648063e-5)
219
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (55) ((1 180))) -1.8481621762766612e-5)
220
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (56) ((1 180))) -1.665193300213938e-5)
221
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (57) ((1 180))) -1.501794129801195e-5)
222
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (58) ((1 180))) -1.3555403137904054e-5)
223
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (59) ((1 180))) -1.2243474647385814e-5)
224
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (60) ((1 180))) -1.1064188481130818e-5)
225
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (61) ((1 180))) -3.5421197145774386e-4)
226
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (62) ((1 180))) -1.5616126394515942e-4)
227
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (63) ((1 180))) 3.0446550359493646e-5)
228
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (64) ((1 180))) 1.3019865577324272e-4)
229
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (65) ((1 180))) 1.6747110669971227e-4)
230
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (66) ((1 180))) 1.7022258768359258e-4)
231
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (67) ((1 180))) 1.565014276085947e-4)
232
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (68) ((1 180))) 1.3633917097744513e-4)
233
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (69) ((1 180))) 1.1488669202982513e-4)
234
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (70) ((1 180))) 9.458690930346881e-5)
235
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (71) ((1 180))) 7.644984192508983e-5)
236
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (72) ((1 180))) 6.075703349651974e-5)
237
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (73) ((1 180))) 4.743942992905088e-5)
238
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (74) ((1 180))) 3.627575120053444e-5)
239
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (75) ((1 180))) 2.69939714979225e-5)
240
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (76) ((1 180))) 1.9321093824793925e-5)
241
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (77) ((1 180))) 1.300566747939632e-5)
242
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (78) ((1 180))) 7.826208667444966e-6)
243
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (79) ((1 180))) 3.592574858193515e-6)
244
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (80) ((1 180))) 1.4404004981425184e-7)
245
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (81) ((1 180))) -2.653967696979391e-6)
246
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (82) ((1 180))) -4.9134686709848585e-6)
247
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (83) ((1 180))) -6.727392960912483e-6)
248
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (84) ((1 180))) -8.172693796786579e-6)
249
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (85) ((1 180))) -9.313047150935612e-6)
250
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (86) ((1 180))) -1.0201141879801645e-5)
251
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (87) ((1 180))) -1.088059625105929e-5)
252
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (88) ((1 180))) -1.1387548150960355e-5)
253
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (89) ((1 180))) -1.1751967567455643e-5)
254
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (90) ((1 180))) -1.1998736487094415e-5)
255
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (91) ((1 180))) 3.781941992017729e-4)
256
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (92) ((1 180))) 2.0247195276181618e-4)
257
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (93) ((1 180))) -6.379385063188625e-5)
258
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (94) ((1 180))) -2.385982306030059e-4)
259
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (95) ((1 180))) -3.109162560273616e-4)
260
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (96) ((1 180))) -3.136801152475764e-4)
261
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (97) ((1 180))) -2.789502737913234e-4)
262
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (98) ((1 180))) -2.2856408261914143e-4)
263
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (99) ((1 180))) -1.7524528034084677e-4)
264
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (100) ((1 180))) -1.2554406306069035e-4)
265
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (101) ((1 180))) -8.229828728202083e-5)
266
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (102) ((1 180))) -4.628607305881165e-5)
267
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (103) ((1 180))) -1.7233430236696232e-5)
268
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (104) ((1 180))) 5.606904823046023e-6)
269
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (105) ((1 180))) 2.313954431482868e-5)
270
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (106) ((1 180))) 3.62642745856794e-5)
271
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (107) ((1 180))) 4.5800612449018885e-5)
272
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (108) ((1 180))) 5.245952949591141e-5)
273
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (109) ((1 180))) 5.683962085458154e-5)
274
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (110) ((1 180))) 5.943498203931041e-5)
275
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (111) ((1 180))) 6.064785275784218e-5)
276
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (112) ((1 180))) 6.080239077884365e-5)
277
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (113) ((1 180))) 6.015778945394604e-5)
278
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (114) ((1 180))) 5.891996573446985e-5)
279
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (115) ((1 180))) 5.725158237775931e-5)
280
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (116) ((1 180))) 5.528043755858526e-5)
281
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (117) ((1 180))) 5.310637738028802e-5)
282
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (118) ((1 180))) 5.080693020123257e-5)
283
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (119) ((1 180))) 4.844186476200949e-5)
284
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (120) ((1 180))) 4.6056858160747544e-5)
285
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (121) ((1 180))) -6.911413972882943e-4)
286
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (122) ((1 180))) -4.2997663305887196e-4)
287
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (123) ((1 180))) 1.8306773598003906e-4)
288
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (124) ((1 180))) 6.600881475420142e-4)
289
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (125) ((1 180))) 8.75964969951186e-4)
290
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (126) ((1 180))) 8.773352359582357e-4)
291
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (127) ((1 180))) 7.493695853789907e-4)
292
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (128) ((1 180))) 5.638323297569809e-4)
293
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (129) ((1 180))) 3.680593199714432e-4)
294
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (130) ((1 180))) 1.884645355144556e-4)
295
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (131) ((1 180))) 3.7066305766490415e-5)
296
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (132) ((1 180))) -8.285202202321371e-5)
297
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (133) ((1 180))) -1.72751952869173e-4)
298
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (134) ((1 180))) -2.3631487360587297e-4)
299
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (135) ((1 180))) -2.779661506949067e-4)
300
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (136) ((1 180))) -3.020795141554569e-4)
301
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (137) ((1 180))) -3.125947126438201e-4)
302
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (138) ((1 180))) -3.128725587580672e-4)
303
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (139) ((1 180))) -3.056780384663244e-4)
304
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (140) ((1 180))) -2.932264706145573e-4)
305
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (141) ((1 180))) -2.772556555829348e-4)
306
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (142) ((1 180))) -2.5910392846703173e-4)
307
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (143) ((1 180))) -2.3978401439648037e-4)
308
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (144) ((1 180))) -2.2004826004542286e-4)
309
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (145) ((1 180))) -2.0044391109497148e-4)
310
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (146) ((1 180))) -1.813586922109707e-4)
311
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (147) ((1 180))) -1.6305767447865746e-4)
312
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (148) ((1 180))) -1.4571267217520587e-4)
313
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (149) ((1 180))) -1.2942542198392462e-4)
314
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (150) ((1 180))) -1.1424569194244598e-4)
315
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (151) ((1 180))) 0.0019282196424877589)
316
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (152) ((1 180))) 0.0013559257630202223)
317
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (153) ((1 180))) -7.178580904213031e-4)
318
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (154) ((1 180))) -0.0025808480257527035)
319
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (155) ((1 180))) -0.003492711308261685)
320
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (156) ((1 180))) -0.003469862993409606)
321
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (157) ((1 180))) -0.002822852333513102)
322
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (158) ((1 180))) -0.0018810307640489134)
323
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (159) ((1 180))) -8.895317183839476e-4)
324
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (160) ((1 180))) 3.879121026310352e-6)
325
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (161) ((1 180))) 7.286885401196914e-4)
326
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (162) ((1 180))) 0.0012656637305345775)
327
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (163) ((1 180))) 0.0016251815837267443)
328
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (164) ((1 180))) 0.0018320315321637317)
329
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (165) ((1 180))) 0.001915883889905279)
330
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (166) ((1 180))) 0.0019058884675554615)
331
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (167) ((1 180))) 0.0018279898242182574)
332
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (168) ((1 180))) 0.0017038950642112155)
333
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (169) ((1 180))) 0.001550971271710977)
334
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (170) ((1 180))) 0.0013826142185227616)
335
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (171) ((1 180))) 0.0012088142423006478)
336
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (172) ((1 180))) 0.0010367653263834496)
337
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (173) ((1 180))) 8.714379180686191e-4)
338
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (174) ((1 180))) 7.16080155297701e-4)
339
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (175) ((1 180))) 5.726370025581293e-4)
340
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (176) ((1 180))) 4.420898194658023e-4)
341
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (177) ((1 180))) 3.247249485030906e-4)
342
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (178) ((1 180))) 2.2034204273024657e-4)
343
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (179) ((1 180))) 1.284128984013539e-4)
344
 
  (f2cl-lib:fset (f2cl-lib:fref alfa (180) ((1 180))) 4.8200592455209545e-5)
345
 
  (f2cl-lib:fset (f2cl-lib:fref beta (1) ((1 210))) 0.017998872141355333)
346
 
  (f2cl-lib:fset (f2cl-lib:fref beta (2) ((1 210))) 0.005599649110643881)
347
 
  (f2cl-lib:fset (f2cl-lib:fref beta (3) ((1 210))) 0.002885014022311328)
348
 
  (f2cl-lib:fset (f2cl-lib:fref beta (4) ((1 210))) 0.0018009660676105395)
349
 
  (f2cl-lib:fset (f2cl-lib:fref beta (5) ((1 210))) 0.001247531105891992)
350
 
  (f2cl-lib:fset (f2cl-lib:fref beta (6) ((1 210))) 9.228788765729384e-4)
351
 
  (f2cl-lib:fset (f2cl-lib:fref beta (7) ((1 210))) 7.144304217272874e-4)
352
 
  (f2cl-lib:fset (f2cl-lib:fref beta (8) ((1 210))) 5.71787281789705e-4)
353
 
  (f2cl-lib:fset (f2cl-lib:fref beta (9) ((1 210))) 4.6943100760648154e-4)
354
 
  (f2cl-lib:fset (f2cl-lib:fref beta (10) ((1 210))) 3.932328354629167e-4)
355
 
  (f2cl-lib:fset (f2cl-lib:fref beta (11) ((1 210))) 3.348188893182977e-4)
356
 
  (f2cl-lib:fset (f2cl-lib:fref beta (12) ((1 210))) 2.8895214849575157e-4)
357
 
  (f2cl-lib:fset (f2cl-lib:fref beta (13) ((1 210))) 2.5221161554957333e-4)
358
 
  (f2cl-lib:fset (f2cl-lib:fref beta (14) ((1 210))) 2.2228058079888333e-4)
359
 
  (f2cl-lib:fset (f2cl-lib:fref beta (15) ((1 210))) 1.9754183803306255e-4)
360
 
  (f2cl-lib:fset (f2cl-lib:fref beta (16) ((1 210))) 1.7683685501971802e-4)
361
 
  (f2cl-lib:fset (f2cl-lib:fref beta (17) ((1 210))) 1.593168996618211e-4)
362
 
  (f2cl-lib:fset (f2cl-lib:fref beta (18) ((1 210))) 1.44347930197334e-4)
363
 
  (f2cl-lib:fset (f2cl-lib:fref beta (19) ((1 210))) 1.314480681199654e-4)
364
 
  (f2cl-lib:fset (f2cl-lib:fref beta (20) ((1 210))) 1.2024544494930292e-4)
365
 
  (f2cl-lib:fset (f2cl-lib:fref beta (21) ((1 210))) 1.1044914450459939e-4)
366
 
  (f2cl-lib:fset (f2cl-lib:fref beta (22) ((1 210))) 1.0182877074056726e-4)
367
 
  (f2cl-lib:fset (f2cl-lib:fref beta (23) ((1 210))) 9.419982242042375e-5)
368
 
  (f2cl-lib:fset (f2cl-lib:fref beta (24) ((1 210))) 8.741305457538344e-5)
369
 
  (f2cl-lib:fset (f2cl-lib:fref beta (25) ((1 210))) 8.134662621628016e-5)
370
 
  (f2cl-lib:fset (f2cl-lib:fref beta (26) ((1 210))) 7.590022696462193e-5)
371
 
  (f2cl-lib:fset (f2cl-lib:fref beta (27) ((1 210))) 7.099063006341535e-5)
372
 
  (f2cl-lib:fset (f2cl-lib:fref beta (28) ((1 210))) 6.654828748424683e-5)
373
 
  (f2cl-lib:fset (f2cl-lib:fref beta (29) ((1 210))) 6.251469589692751e-5)
374
 
  (f2cl-lib:fset (f2cl-lib:fref beta (30) ((1 210))) 5.884033944262518e-5)
375
 
  (f2cl-lib:fset (f2cl-lib:fref beta (31) ((1 210))) -0.0014928295321342917)
376
 
  (f2cl-lib:fset (f2cl-lib:fref beta (32) ((1 210))) -8.782047095463893e-4)
377
 
  (f2cl-lib:fset (f2cl-lib:fref beta (33) ((1 210))) -5.029165495720346e-4)
378
 
  (f2cl-lib:fset (f2cl-lib:fref beta (34) ((1 210))) -2.948221385127461e-4)
379
 
  (f2cl-lib:fset (f2cl-lib:fref beta (35) ((1 210))) -1.7546399697078285e-4)
380
 
  (f2cl-lib:fset (f2cl-lib:fref beta (36) ((1 210))) -1.0400855046081643e-4)
381
 
  (f2cl-lib:fset (f2cl-lib:fref beta (37) ((1 210))) -5.96141953046458e-5)
382
 
  (f2cl-lib:fset (f2cl-lib:fref beta (38) ((1 210))) -3.120389290760983e-5)
383
 
  (f2cl-lib:fset (f2cl-lib:fref beta (39) ((1 210))) -1.2608973598023004e-5)
384
 
  (f2cl-lib:fset (f2cl-lib:fref beta (40) ((1 210))) -2.4289260857573036e-7)
385
 
  (f2cl-lib:fset (f2cl-lib:fref beta (41) ((1 210))) 8.059961654142735e-6)
386
 
  (f2cl-lib:fset (f2cl-lib:fref beta (42) ((1 210))) 1.3650700926214737e-5)
387
 
  (f2cl-lib:fset (f2cl-lib:fref beta (43) ((1 210))) 1.7396412547292628e-5)
388
 
  (f2cl-lib:fset (f2cl-lib:fref beta (44) ((1 210))) 1.9867297884213378e-5)
389
 
  (f2cl-lib:fset (f2cl-lib:fref beta (45) ((1 210))) 2.1446326379082264e-5)
390
 
  (f2cl-lib:fset (f2cl-lib:fref beta (46) ((1 210))) 2.2395465923245655e-5)
391
 
  (f2cl-lib:fset (f2cl-lib:fref beta (47) ((1 210))) 2.289677838147126e-5)
392
 
  (f2cl-lib:fset (f2cl-lib:fref beta (48) ((1 210))) 2.307853898111778e-5)
393
 
  (f2cl-lib:fset (f2cl-lib:fref beta (49) ((1 210))) 2.3032197608090915e-5)
394
 
  (f2cl-lib:fset (f2cl-lib:fref beta (50) ((1 210))) 2.2823607372034874e-5)
395
 
  (f2cl-lib:fset (f2cl-lib:fref beta (51) ((1 210))) 2.250058811052924e-5)
396
 
  (f2cl-lib:fset (f2cl-lib:fref beta (52) ((1 210))) 2.2098101536199147e-5)
397
 
  (f2cl-lib:fset (f2cl-lib:fref beta (53) ((1 210))) 2.1641842744810388e-5)
398
 
  (f2cl-lib:fset (f2cl-lib:fref beta (54) ((1 210))) 2.1150764925622084e-5)
399
 
  (f2cl-lib:fset (f2cl-lib:fref beta (55) ((1 210))) 2.0638874978217076e-5)
400
 
  (f2cl-lib:fset (f2cl-lib:fref beta (56) ((1 210))) 2.011652419970817e-5)
401
 
  (f2cl-lib:fset (f2cl-lib:fref beta (57) ((1 210))) 1.9591345014117925e-5)
402
 
  (f2cl-lib:fset (f2cl-lib:fref beta (58) ((1 210))) 1.9068936791043675e-5)
403
 
  (f2cl-lib:fset (f2cl-lib:fref beta (59) ((1 210))) 1.855337196416367e-5)
404
 
  (f2cl-lib:fset (f2cl-lib:fref beta (60) ((1 210))) 1.8047572225967418e-5)
405
 
  (f2cl-lib:fset (f2cl-lib:fref beta (61) ((1 210))) 5.522130767212928e-4)
406
 
  (f2cl-lib:fset (f2cl-lib:fref beta (62) ((1 210))) 4.4793258155238475e-4)
407
 
  (f2cl-lib:fset (f2cl-lib:fref beta (63) ((1 210))) 2.795206539920206e-4)
408
 
  (f2cl-lib:fset (f2cl-lib:fref beta (64) ((1 210))) 1.5246815619844659e-4)
409
 
  (f2cl-lib:fset (f2cl-lib:fref beta (65) ((1 210))) 6.932711056570436e-5)
410
 
  (f2cl-lib:fset (f2cl-lib:fref beta (66) ((1 210))) 1.7625868306999143e-5)
411
 
  (f2cl-lib:fset (f2cl-lib:fref beta (67) ((1 210))) -1.3574499634326914e-5)
412
 
  (f2cl-lib:fset (f2cl-lib:fref beta (68) ((1 210))) -3.1797241335042714e-5)
413
 
  (f2cl-lib:fset (f2cl-lib:fref beta (69) ((1 210))) -4.188618616966934e-5)
414
 
  (f2cl-lib:fset (f2cl-lib:fref beta (70) ((1 210))) -4.690048893791411e-5)
415
 
  (f2cl-lib:fset (f2cl-lib:fref beta (71) ((1 210))) -4.8766544741378737e-5)
416
 
  (f2cl-lib:fset (f2cl-lib:fref beta (72) ((1 210))) -4.8701003118673514e-5)
417
 
  (f2cl-lib:fset (f2cl-lib:fref beta (73) ((1 210))) -4.747556208900867e-5)
418
 
  (f2cl-lib:fset (f2cl-lib:fref beta (74) ((1 210))) -4.558130581386285e-5)
419
 
  (f2cl-lib:fset (f2cl-lib:fref beta (75) ((1 210))) -4.3330964451126613e-5)
420
 
  (f2cl-lib:fset (f2cl-lib:fref beta (76) ((1 210))) -4.0923019315775044e-5)
421
 
  (f2cl-lib:fset (f2cl-lib:fref beta (77) ((1 210))) -3.848226386032213e-5)
422
 
  (f2cl-lib:fset (f2cl-lib:fref beta (78) ((1 210))) -3.6085716753541053e-5)
423
 
  (f2cl-lib:fset (f2cl-lib:fref beta (79) ((1 210))) -3.3779330612336744e-5)
424
 
  (f2cl-lib:fset (f2cl-lib:fref beta (80) ((1 210))) -3.158885607721097e-5)
425
 
  (f2cl-lib:fset (f2cl-lib:fref beta (81) ((1 210))) -2.952695617508073e-5)
426
 
  (f2cl-lib:fset (f2cl-lib:fref beta (82) ((1 210))) -2.7597891482833575e-5)
427
 
  (f2cl-lib:fset (f2cl-lib:fref beta (83) ((1 210))) -2.580061746668837e-5)
428
 
  (f2cl-lib:fset (f2cl-lib:fref beta (84) ((1 210))) -2.413083567612802e-5)
429
 
  (f2cl-lib:fset (f2cl-lib:fref beta (85) ((1 210))) -2.2582350951834607e-5)
430
 
  (f2cl-lib:fset (f2cl-lib:fref beta (86) ((1 210))) -2.1147965676891295e-5)
431
 
  (f2cl-lib:fset (f2cl-lib:fref beta (87) ((1 210))) -1.982006388852949e-5)
432
 
  (f2cl-lib:fset (f2cl-lib:fref beta (88) ((1 210))) -1.8590987080106508e-5)
433
 
  (f2cl-lib:fset (f2cl-lib:fref beta (89) ((1 210))) -1.7453269984421022e-5)
434
 
  (f2cl-lib:fset (f2cl-lib:fref beta (90) ((1 210))) -1.6399782385449801e-5)
435
 
  (f2cl-lib:fset (f2cl-lib:fref beta (91) ((1 210))) -4.746177965599597e-4)
436
 
  (f2cl-lib:fset (f2cl-lib:fref beta (92) ((1 210))) -4.778645671473215e-4)
437
 
  (f2cl-lib:fset (f2cl-lib:fref beta (93) ((1 210))) -3.2039022806703765e-4)
438
 
  (f2cl-lib:fset (f2cl-lib:fref beta (94) ((1 210))) -1.6110501611996228e-4)
439
 
  (f2cl-lib:fset (f2cl-lib:fref beta (95) ((1 210))) -4.2577810128543525e-5)
440
 
  (f2cl-lib:fset (f2cl-lib:fref beta (96) ((1 210))) 3.445712942949675e-5)
441
 
  (f2cl-lib:fset (f2cl-lib:fref beta (97) ((1 210))) 7.97092684075675e-5)
442
 
  (f2cl-lib:fset (f2cl-lib:fref beta (98) ((1 210))) 1.031382367082722e-4)
443
 
  (f2cl-lib:fset (f2cl-lib:fref beta (99) ((1 210))) 1.1246677526220417e-4)
444
 
  (f2cl-lib:fset (f2cl-lib:fref beta (100) ((1 210))) 1.1310364210848138e-4)
445
 
  (f2cl-lib:fset (f2cl-lib:fref beta (101) ((1 210))) 1.0865163484877427e-4)
446
 
  (f2cl-lib:fset (f2cl-lib:fref beta (102) ((1 210))) 1.0143795159766197e-4)
447
 
  (f2cl-lib:fset (f2cl-lib:fref beta (103) ((1 210))) 9.292983965933639e-5)
448
 
  (f2cl-lib:fset (f2cl-lib:fref beta (104) ((1 210))) 8.402931330160901e-5)
449
 
  (f2cl-lib:fset (f2cl-lib:fref beta (105) ((1 210))) 7.527279913491342e-5)
450
 
  (f2cl-lib:fset (f2cl-lib:fref beta (106) ((1 210))) 6.696325219757311e-5)
451
 
  (f2cl-lib:fset (f2cl-lib:fref beta (107) ((1 210))) 5.925645473231947e-5)
452
 
  (f2cl-lib:fset (f2cl-lib:fref beta (108) ((1 210))) 5.221693088269757e-5)
453
 
  (f2cl-lib:fset (f2cl-lib:fref beta (109) ((1 210))) 4.585394851653607e-5)
454
 
  (f2cl-lib:fset (f2cl-lib:fref beta (110) ((1 210))) 4.014455138914868e-5)
455
 
  (f2cl-lib:fset (f2cl-lib:fref beta (111) ((1 210))) 3.5048173003132804e-5)
456
 
  (f2cl-lib:fset (f2cl-lib:fref beta (112) ((1 210))) 3.0515799503434665e-5)
457
 
  (f2cl-lib:fset (f2cl-lib:fref beta (113) ((1 210))) 2.6495611995051604e-5)
458
 
  (f2cl-lib:fset (f2cl-lib:fref beta (114) ((1 210))) 2.293636336909982e-5)
459
 
  (f2cl-lib:fset (f2cl-lib:fref beta (115) ((1 210))) 1.9789305666402165e-5)
460
 
  (f2cl-lib:fset (f2cl-lib:fref beta (116) ((1 210))) 1.7009198463641262e-5)
461
 
  (f2cl-lib:fset (f2cl-lib:fref beta (117) ((1 210))) 1.4554742826152403e-5)
462
 
  (f2cl-lib:fset (f2cl-lib:fref beta (118) ((1 210))) 1.2388664099587843e-5)
463
 
  (f2cl-lib:fset (f2cl-lib:fref beta (119) ((1 210))) 1.0477587607658323e-5)
464
 
  (f2cl-lib:fset (f2cl-lib:fref beta (120) ((1 210))) 8.791799549784793e-6)
465
 
  (f2cl-lib:fset (f2cl-lib:fref beta (121) ((1 210))) 7.364658105725783e-4)
466
 
  (f2cl-lib:fset (f2cl-lib:fref beta (122) ((1 210))) 8.72790805146194e-4)
467
 
  (f2cl-lib:fset (f2cl-lib:fref beta (123) ((1 210))) 6.22614862573135e-4)
468
 
  (f2cl-lib:fset (f2cl-lib:fref beta (124) ((1 210))) 2.859981541943042e-4)
469
 
  (f2cl-lib:fset (f2cl-lib:fref beta (125) ((1 210))) 3.8473767287936605e-6)
470
 
  (f2cl-lib:fset (f2cl-lib:fref beta (126) ((1 210))) -1.8790600363697157e-4)
471
 
  (f2cl-lib:fset (f2cl-lib:fref beta (127) ((1 210))) -2.9760364659455457e-4)
472
 
  (f2cl-lib:fset (f2cl-lib:fref beta (128) ((1 210))) -3.459981268326564e-4)
473
 
  (f2cl-lib:fset (f2cl-lib:fref beta (129) ((1 210))) -3.533824709160377e-4)
474
 
  (f2cl-lib:fset (f2cl-lib:fref beta (130) ((1 210))) -3.357156357750488e-4)
475
 
  (f2cl-lib:fset (f2cl-lib:fref beta (131) ((1 210))) -3.043211247890398e-4)
476
 
  (f2cl-lib:fset (f2cl-lib:fref beta (132) ((1 210))) -2.667227230476128e-4)
477
 
  (f2cl-lib:fset (f2cl-lib:fref beta (133) ((1 210))) -2.2765421412281958e-4)
478
 
  (f2cl-lib:fset (f2cl-lib:fref beta (134) ((1 210))) -1.8992261185456238e-4)
479
 
  (f2cl-lib:fset (f2cl-lib:fref beta (135) ((1 210))) -1.5505891859909388e-4)
480
 
  (f2cl-lib:fset (f2cl-lib:fref beta (136) ((1 210))) -1.2377824076187363e-4)
481
 
  (f2cl-lib:fset (f2cl-lib:fref beta (137) ((1 210))) -9.629261477176442e-5)
482
 
  (f2cl-lib:fset (f2cl-lib:fref beta (138) ((1 210))) -7.251783277144254e-5)
483
 
  (f2cl-lib:fset (f2cl-lib:fref beta (139) ((1 210))) -5.220700288956338e-5)
484
 
  (f2cl-lib:fset (f2cl-lib:fref beta (140) ((1 210))) -3.5034775051190054e-5)
485
 
  (f2cl-lib:fset (f2cl-lib:fref beta (141) ((1 210))) -2.0648976103555175e-5)
486
 
  (f2cl-lib:fset (f2cl-lib:fref beta (142) ((1 210))) -8.70106096849767e-6)
487
 
  (f2cl-lib:fset (f2cl-lib:fref beta (143) ((1 210))) 1.1369868667510027e-6)
488
 
  (f2cl-lib:fset (f2cl-lib:fref beta (144) ((1 210))) 9.164264741227788e-6)
489
 
  (f2cl-lib:fset (f2cl-lib:fref beta (145) ((1 210))) 1.5647778542887264e-5)
490
 
  (f2cl-lib:fset (f2cl-lib:fref beta (146) ((1 210))) 2.0822362948246687e-5)
491
 
  (f2cl-lib:fset (f2cl-lib:fref beta (147) ((1 210))) 2.4892338100459516e-5)
492
 
  (f2cl-lib:fset (f2cl-lib:fref beta (148) ((1 210))) 2.8034050957414636e-5)
493
 
  (f2cl-lib:fset (f2cl-lib:fref beta (149) ((1 210))) 3.0398777462986193e-5)
494
 
  (f2cl-lib:fset (f2cl-lib:fref beta (150) ((1 210))) 3.2115673140670065e-5)
495
 
  (f2cl-lib:fset (f2cl-lib:fref beta (151) ((1 210))) -0.0018018219196388571)
496
 
  (f2cl-lib:fset (f2cl-lib:fref beta (152) ((1 210))) -0.0024340296293804253)
497
 
  (f2cl-lib:fset (f2cl-lib:fref beta (153) ((1 210))) -0.0018342266354985683)
498
 
  (f2cl-lib:fset (f2cl-lib:fref beta (154) ((1 210))) -7.622045963540097e-4)
499
 
  (f2cl-lib:fset (f2cl-lib:fref beta (155) ((1 210))) 2.3907947525692724e-4)
500
 
  (f2cl-lib:fset (f2cl-lib:fref beta (156) ((1 210))) 9.49266117176881e-4)
501
 
  (f2cl-lib:fset (f2cl-lib:fref beta (157) ((1 210))) 0.0013446744970154036)
502
 
  (f2cl-lib:fset (f2cl-lib:fref beta (158) ((1 210))) 0.0014845749525944918)
503
 
  (f2cl-lib:fset (f2cl-lib:fref beta (159) ((1 210))) 0.001447323398306176)
504
 
  (f2cl-lib:fset (f2cl-lib:fref beta (160) ((1 210))) 0.0013026826128565718)
505
 
  (f2cl-lib:fset (f2cl-lib:fref beta (161) ((1 210))) 0.0011035159737564268)
506
 
  (f2cl-lib:fset (f2cl-lib:fref beta (162) ((1 210))) 8.860474404197918e-4)
507
 
  (f2cl-lib:fset (f2cl-lib:fref beta (163) ((1 210))) 6.730732081656655e-4)
508
 
  (f2cl-lib:fset (f2cl-lib:fref beta (164) ((1 210))) 4.776038728565824e-4)
509
 
  (f2cl-lib:fset (f2cl-lib:fref beta (165) ((1 210))) 3.0599192635878936e-4)
510
 
  (f2cl-lib:fset (f2cl-lib:fref beta (166) ((1 210))) 1.6031569459472167e-4)
511
 
  (f2cl-lib:fset (f2cl-lib:fref beta (167) ((1 210))) 4.0074955527061334e-5)
512
 
  (f2cl-lib:fset (f2cl-lib:fref beta (168) ((1 210))) -5.666074616352517e-5)
513
 
  (f2cl-lib:fset (f2cl-lib:fref beta (169) ((1 210))) -1.3250618677298265e-4)
514
 
  (f2cl-lib:fset (f2cl-lib:fref beta (170) ((1 210))) -1.9029618798961406e-4)
515
 
  (f2cl-lib:fset (f2cl-lib:fref beta (171) ((1 210))) -2.328114503769374e-4)
516
 
  (f2cl-lib:fset (f2cl-lib:fref beta (172) ((1 210))) -2.626288114646688e-4)
517
 
  (f2cl-lib:fset (f2cl-lib:fref beta (173) ((1 210))) -2.8205046986759863e-4)
518
 
  (f2cl-lib:fset (f2cl-lib:fref beta (174) ((1 210))) -2.9308156319286116e-4)
519
 
  (f2cl-lib:fset (f2cl-lib:fref beta (175) ((1 210))) -2.974359621763166e-4)
520
 
  (f2cl-lib:fset (f2cl-lib:fref beta (176) ((1 210))) -2.9655733423934805e-4)
521
 
  (f2cl-lib:fset (f2cl-lib:fref beta (177) ((1 210))) -2.9164736331209085e-4)
522
 
  (f2cl-lib:fset (f2cl-lib:fref beta (178) ((1 210))) -2.836962038377342e-4)
523
 
  (f2cl-lib:fset (f2cl-lib:fref beta (179) ((1 210))) -2.7351231709567336e-4)
524
 
  (f2cl-lib:fset (f2cl-lib:fref beta (180) ((1 210))) -2.617501558067686e-4)
525
 
  (f2cl-lib:fset (f2cl-lib:fref beta (181) ((1 210))) 0.006385858912120509)
526
 
  (f2cl-lib:fset (f2cl-lib:fref beta (182) ((1 210))) 0.009623742158063778)
527
 
  (f2cl-lib:fset (f2cl-lib:fref beta (183) ((1 210))) 0.007618780612070011)
528
 
  (f2cl-lib:fset (f2cl-lib:fref beta (184) ((1 210))) 0.002832190555456281)
529
 
  (f2cl-lib:fset (f2cl-lib:fref beta (185) ((1 210))) -0.002098413520127201)
530
 
  (f2cl-lib:fset (f2cl-lib:fref beta (186) ((1 210))) -0.005738267642166265)
531
 
  (f2cl-lib:fset (f2cl-lib:fref beta (187) ((1 210))) -0.0077080424449541465)
532
 
  (f2cl-lib:fset (f2cl-lib:fref beta (188) ((1 210))) -0.008210116922648444)
533
 
  (f2cl-lib:fset (f2cl-lib:fref beta (189) ((1 210))) -0.007658245203469054)
534
 
  (f2cl-lib:fset (f2cl-lib:fref beta (190) ((1 210))) -0.006472097293910452)
535
 
  (f2cl-lib:fset (f2cl-lib:fref beta (191) ((1 210))) -0.004991324120049665)
536
 
  (f2cl-lib:fset (f2cl-lib:fref beta (192) ((1 210))) -0.003456122897131333)
537
 
  (f2cl-lib:fset (f2cl-lib:fref beta (193) ((1 210))) -0.002017855800141708)
538
 
  (f2cl-lib:fset (f2cl-lib:fref beta (194) ((1 210))) -7.594306867819615e-4)
539
 
  (f2cl-lib:fset (f2cl-lib:fref beta (195) ((1 210))) 2.8417363152385916e-4)
540
 
  (f2cl-lib:fset (f2cl-lib:fref beta (196) ((1 210))) 0.0011089166758633739)
541
 
  (f2cl-lib:fset (f2cl-lib:fref beta (197) ((1 210))) 0.0017290149387272878)
542
 
  (f2cl-lib:fset (f2cl-lib:fref beta (198) ((1 210))) 0.0021681259080268468)
543
 
  (f2cl-lib:fset (f2cl-lib:fref beta (199) ((1 210))) 0.0024535771049453976)
544
 
  (f2cl-lib:fset (f2cl-lib:fref beta (200) ((1 210))) 0.0026128182105833483)
545
 
  (f2cl-lib:fset (f2cl-lib:fref beta (201) ((1 210))) 0.002671410396562769)
546
 
  (f2cl-lib:fset (f2cl-lib:fref beta (202) ((1 210))) 0.0026520307339598045)
547
 
  (f2cl-lib:fset (f2cl-lib:fref beta (203) ((1 210))) 0.002574116528772873)
548
 
  (f2cl-lib:fset (f2cl-lib:fref beta (204) ((1 210))) 0.0024538912623609443)
549
 
  (f2cl-lib:fset (f2cl-lib:fref beta (205) ((1 210))) 0.002304600580717955)
550
 
  (f2cl-lib:fset (f2cl-lib:fref beta (206) ((1 210))) 0.0021368483768671267)
551
 
  (f2cl-lib:fset (f2cl-lib:fref beta (207) ((1 210))) 0.001958965284788709)
552
 
  (f2cl-lib:fset (f2cl-lib:fref beta (208) ((1 210))) 0.0017773700867945441)
553
 
  (f2cl-lib:fset (f2cl-lib:fref beta (209) ((1 210))) 0.0015969028076583908)
554
 
  (f2cl-lib:fset (f2cl-lib:fref beta (210) ((1 210))) 0.0014211197566443854)
555
 
  (f2cl-lib:fset (f2cl-lib:fref gama (1) ((1 30))) 0.6299605249474367)
556
 
  (f2cl-lib:fset (f2cl-lib:fref gama (2) ((1 30))) 0.25198420997897464)
557
 
  (f2cl-lib:fset (f2cl-lib:fref gama (3) ((1 30))) 0.15479030041565586)
558
 
  (f2cl-lib:fset (f2cl-lib:fref gama (4) ((1 30))) 0.11071306241615902)
559
 
  (f2cl-lib:fset (f2cl-lib:fref gama (5) ((1 30))) 0.08573093955273949)
560
 
  (f2cl-lib:fset (f2cl-lib:fref gama (6) ((1 30))) 0.06971613169586843)
561
 
  (f2cl-lib:fset (f2cl-lib:fref gama (7) ((1 30))) 0.05860856718937136)
562
 
  (f2cl-lib:fset (f2cl-lib:fref gama (8) ((1 30))) 0.050469887353631074)
563
 
  (f2cl-lib:fset (f2cl-lib:fref gama (9) ((1 30))) 0.04426005806891548)
564
 
  (f2cl-lib:fset (f2cl-lib:fref gama (10) ((1 30))) 0.039372066154350994)
565
 
  (f2cl-lib:fset (f2cl-lib:fref gama (11) ((1 30))) 0.03542831959244554)
566
 
  (f2cl-lib:fset (f2cl-lib:fref gama (12) ((1 30))) 0.032181885750209825)
567
 
  (f2cl-lib:fset (f2cl-lib:fref gama (13) ((1 30))) 0.029464624079115768)
568
 
  (f2cl-lib:fset (f2cl-lib:fref gama (14) ((1 30))) 0.027158167711293448)
569
 
  (f2cl-lib:fset (f2cl-lib:fref gama (15) ((1 30))) 0.025176827297386177)
570
 
  (f2cl-lib:fset (f2cl-lib:fref gama (16) ((1 30))) 0.02345707553060789)
571
 
  (f2cl-lib:fset (f2cl-lib:fref gama (17) ((1 30))) 0.021950839013490722)
572
 
  (f2cl-lib:fset (f2cl-lib:fref gama (18) ((1 30))) 0.020621082823564625)
573
 
  (f2cl-lib:fset (f2cl-lib:fref gama (19) ((1 30))) 0.019438824089788084)
574
 
  (f2cl-lib:fset (f2cl-lib:fref gama (20) ((1 30))) 0.018381063380068317)
575
 
  (f2cl-lib:fset (f2cl-lib:fref gama (21) ((1 30))) 0.017429321323196318)
576
 
  (f2cl-lib:fset (f2cl-lib:fref gama (22) ((1 30))) 0.016568583778661234)
577
 
  (f2cl-lib:fset (f2cl-lib:fref gama (23) ((1 30))) 0.015786528598791844)
578
 
  (f2cl-lib:fset (f2cl-lib:fref gama (24) ((1 30))) 0.01507295014940956)
579
 
  (f2cl-lib:fset (f2cl-lib:fref gama (25) ((1 30))) 0.014419325083995465)
580
 
  (f2cl-lib:fset (f2cl-lib:fref gama (26) ((1 30))) 0.013818480573534178)
581
 
  (f2cl-lib:fset (f2cl-lib:fref gama (27) ((1 30))) 0.013264337899427657)
582
 
  (f2cl-lib:fset (f2cl-lib:fref gama (28) ((1 30))) 0.012751712197049864)
583
 
  (f2cl-lib:fset (f2cl-lib:fref gama (29) ((1 30))) 0.012276154531876278)
584
 
  (f2cl-lib:fset (f2cl-lib:fref gama (30) ((1 30))) 0.01183382623984824)
585
520
  (defun zunhj
586
521
         (zr zi fnu ipmtr tol phir phii argr argi zeta1r zeta1i zeta2r zeta2i
587
522
          asumr asumi bsumr bsumi)
588
523
    (declare (type f2cl-lib:integer4 ipmtr)
589
 
             (type double-float zr zi fnu tol phir phii argr argi zeta1r zeta1i
590
 
              zeta2r zeta2i asumr asumi bsumr bsumi))
 
524
             (type double-float bsumi bsumr asumi asumr zeta2i zeta2r zeta1i
 
525
                                zeta1r argi argr phii phir tol fnu zi zr))
591
526
    (prog ((ap (make-array 30 :element-type 'double-float))
592
527
           (pr (make-array 30 :element-type 'double-float))
593
 
           (pi_ (make-array 30 :element-type 'double-float))
 
528
           (pi$ (make-array 30 :element-type 'double-float))
594
529
           (upr (make-array 14 :element-type 'double-float))
595
530
           (upi (make-array 14 :element-type 'double-float))
596
531
           (crr (make-array 14 :element-type 'double-float))
607
542
           (tfni 0.0) (tfnr 0.0) (tzai 0.0) (tzar 0.0) (t2i 0.0) (t2r 0.0)
608
543
           (wi 0.0) (wr 0.0) (w2i 0.0) (w2r 0.0) (zai 0.0) (zar 0.0) (zbi 0.0)
609
544
           (zbr 0.0) (zci 0.0) (zcr 0.0) (zetai 0.0) (zetar 0.0) (zthi 0.0)
610
 
           (zthr 0.0) (ac 0.0))
611
 
      (declare (type (simple-array double-float (14)) upr upi drr dri crr cri)
612
 
               (type (simple-array double-float (30)) pr pi_ ap)
 
545
           (zthr 0.0) (ac 0.0) (abs$ 0.0f0))
 
546
      (declare (type single-float abs$)
 
547
               (type (simple-array double-float (14)) upr upi drr dri crr cri)
 
548
               (type (simple-array double-float (30)) pr pi$ ap)
613
549
               (type double-float ac zthr zthi zetar zetai zcr zci zbr zbi zar
614
 
                zai w2r w2i wr wi t2r t2i tzar tzai tfnr tfni test sumbr sumbi
615
 
                sumar sumai str sti rzthr rzthi rtztr rtzti rfn13 rfnu2 rfnu
616
 
                razth raw2 raw ptfnr ptfni przthr przthi pp fn23 fn13 btol azth
617
 
                aw2 atol ang)
 
550
                                  zai w2r w2i wr wi t2r t2i tzar tzai tfnr tfni
 
551
                                  test sumbr sumbi sumar sumai str sti rzthr
 
552
                                  rzthi rtztr rtzti rfn13 rfnu2 rfnu razth raw2
 
553
                                  raw ptfnr ptfni przthr przthi pp fn23 fn13
 
554
                                  btol azth aw2 atol ang)
618
555
               (type f2cl-lib:integer4 idum m l2 l1 lrp1 lr l ks kp1 kmax k ju
619
 
                jr j is ibs ias))
 
556
                                       jr j is ibs ias))
620
557
      (setf rfnu (/ 1.0 fnu))
621
558
      (setf test (* (f2cl-lib:d1mach 1) 1000.0))
622
559
      (setf ac (* fnu test))
643
580
      (if (> aw2 0.25) (go label130))
644
581
      (setf k 1)
645
582
      (f2cl-lib:fset (f2cl-lib:fref pr (1) ((1 30))) coner)
646
 
      (f2cl-lib:fset (f2cl-lib:fref pi_ (1) ((1 30))) conei)
 
583
      (f2cl-lib:fset (f2cl-lib:fref pi$ (1) ((1 30))) conei)
647
584
      (setf sumar (f2cl-lib:fref gama (1) ((1 30))))
648
585
      (setf sumai zeroi)
649
586
      (f2cl-lib:fset (f2cl-lib:fref ap (1) ((1 30))) 1.0)
657
594
                           (f2cl-lib:fref pr ((f2cl-lib:int-sub k 1)) ((1 30)))
658
595
                           w2r)
659
596
                          (*
660
 
                           (f2cl-lib:fref pi_
 
597
                           (f2cl-lib:fref pi$
661
598
                                          ((f2cl-lib:int-sub k 1))
662
599
                                          ((1 30)))
663
600
                           w2i)))
664
 
          (f2cl-lib:fset (f2cl-lib:fref pi_ (k) ((1 30)))
 
601
          (f2cl-lib:fset (f2cl-lib:fref pi$ (k) ((1 30)))
665
602
                         (+
666
603
                          (*
667
604
                           (f2cl-lib:fref pr ((f2cl-lib:int-sub k 1)) ((1 30)))
668
605
                           w2i)
669
606
                          (*
670
 
                           (f2cl-lib:fref pi_
 
607
                           (f2cl-lib:fref pi$
671
608
                                          ((f2cl-lib:int-sub k 1))
672
609
                                          ((1 30)))
673
610
                           w2r)))
677
614
                        (f2cl-lib:fref gama (k) ((1 30))))))
678
615
          (setf sumai
679
616
                  (+ sumai
680
 
                     (* (f2cl-lib:fref pi_ (k) ((1 30)))
 
617
                     (* (f2cl-lib:fref pi$ (k) ((1 30)))
681
618
                        (f2cl-lib:fref gama (k) ((1 30))))))
682
619
          (f2cl-lib:fset (f2cl-lib:fref ap (k) ((1 30)))
683
620
                         (*
692
629
      (setf zetai (+ (* w2r sumai) (* w2i sumar)))
693
630
      (setf argr (* zetar fn23))
694
631
      (setf argi (* zetai fn23))
695
 
      (multiple-value-bind
696
 
          (var-0 var-1 var-2 var-3)
 
632
      (multiple-value-bind (var-0 var-1 var-2 var-3)
697
633
          (zsqrt sumar sumai zar zai)
698
634
        (declare (ignore var-0 var-1))
699
635
        (setf zar var-2)
700
636
        (setf zai var-3))
701
 
      (multiple-value-bind
702
 
          (var-0 var-1 var-2 var-3)
 
637
      (multiple-value-bind (var-0 var-1 var-2 var-3)
703
638
          (zsqrt w2r w2i str sti)
704
639
        (declare (ignore var-0 var-1))
705
640
        (setf str var-2)
712
647
      (setf zeta1i (+ (* str zeta2i) (* sti zeta2r)))
713
648
      (setf zar (+ zar zar))
714
649
      (setf zai (+ zai zai))
715
 
      (multiple-value-bind
716
 
          (var-0 var-1 var-2 var-3)
 
650
      (multiple-value-bind (var-0 var-1 var-2 var-3)
717
651
          (zsqrt zar zai str sti)
718
652
        (declare (ignore var-0 var-1))
719
653
        (setf str var-2)
732
666
                        (f2cl-lib:fref beta (k) ((1 210))))))
733
667
          (setf sumbi
734
668
                  (+ sumbi
735
 
                     (* (f2cl-lib:fref pi_ (k) ((1 30)))
 
669
                     (* (f2cl-lib:fref pi$ (k) ((1 30)))
736
670
                        (f2cl-lib:fref beta (k) ((1 210))))))
737
671
         label30))
738
672
      (setf asumr zeror)
765
699
                            (f2cl-lib:fref alfa (m) ((1 180))))))
766
700
              (setf sumai
767
701
                      (+ sumai
768
 
                         (* (f2cl-lib:fref pi_ (k) ((1 30)))
 
702
                         (* (f2cl-lib:fref pi$ (k) ((1 30)))
769
703
                            (f2cl-lib:fref alfa (m) ((1 180))))))
770
704
              (if (< (f2cl-lib:fref ap (k) ((1 30))) atol) (go label50))
771
705
             label40))
787
721
                            (f2cl-lib:fref beta (m) ((1 210))))))
788
722
              (setf sumbi
789
723
                      (+ sumbi
790
 
                         (* (f2cl-lib:fref pi_ (k) ((1 30)))
 
724
                         (* (f2cl-lib:fref pi$ (k) ((1 30)))
791
725
                            (f2cl-lib:fref beta (m) ((1 210))))))
792
726
              (if (< (f2cl-lib:fref ap (k) ((1 30))) atol) (go label80))
793
727
             label70))
808
742
     label120
809
743
      (go end_label)
810
744
     label130
811
 
      (multiple-value-bind
812
 
          (var-0 var-1 var-2 var-3)
 
745
      (multiple-value-bind (var-0 var-1 var-2 var-3)
813
746
          (zsqrt w2r w2i wr wi)
814
747
        (declare (ignore var-0 var-1))
815
748
        (setf wr var-2)
818
751
      (if (< wi 0.0) (setf wi 0.0))
819
752
      (setf str (+ coner wr))
820
753
      (setf sti wi)
821
 
      (multiple-value-bind
822
 
          (var-0 var-1 var-2 var-3 var-4 var-5)
 
754
      (multiple-value-bind (var-0 var-1 var-2 var-3 var-4 var-5)
823
755
          (zdiv str sti zbr zbi zar zai)
824
756
        (declare (ignore var-0 var-1 var-2 var-3))
825
757
        (setf zar var-4)
826
758
        (setf zai var-5))
827
 
      (multiple-value-bind
828
 
          (var-0 var-1 var-2 var-3 var-4)
 
759
      (multiple-value-bind (var-0 var-1 var-2 var-3 var-4)
829
760
          (zlog zar zai zcr zci idum)
830
761
        (declare (ignore var-0 var-1))
831
762
        (setf zcr var-2)
855
786
      (if (< zetai 0.0) (setf zetai 0.0))
856
787
      (setf argr (* zetar fn23))
857
788
      (setf argi (* zetai fn23))
858
 
      (multiple-value-bind
859
 
          (var-0 var-1 var-2 var-3 var-4 var-5)
 
789
      (multiple-value-bind (var-0 var-1 var-2 var-3 var-4 var-5)
860
790
          (zdiv zthr zthi zetar zetai rtztr rtzti)
861
791
        (declare (ignore var-0 var-1 var-2 var-3))
862
792
        (setf rtztr var-4)
863
793
        (setf rtzti var-5))
864
 
      (multiple-value-bind
865
 
          (var-0 var-1 var-2 var-3 var-4 var-5)
 
794
      (multiple-value-bind (var-0 var-1 var-2 var-3 var-4 var-5)
866
795
          (zdiv rtztr rtzti wr wi zar zai)
867
796
        (declare (ignore var-0 var-1 var-2 var-3))
868
797
        (setf zar var-4)
869
798
        (setf zai var-5))
870
799
      (setf tzar (+ zar zar))
871
800
      (setf tzai (+ zai zai))
872
 
      (multiple-value-bind
873
 
          (var-0 var-1 var-2 var-3)
 
801
      (multiple-value-bind (var-0 var-1 var-2 var-3)
874
802
          (zsqrt tzar tzai str sti)
875
803
        (declare (ignore var-0 var-1))
876
804
        (setf str var-2)
1042
970
      (setf asumr (+ asumr coner))
1043
971
      (setf str (* (- bsumr) rfn13))
1044
972
      (setf sti (* (- bsumi) rfn13))
1045
 
      (multiple-value-bind
1046
 
          (var-0 var-1 var-2 var-3 var-4 var-5)
 
973
      (multiple-value-bind (var-0 var-1 var-2 var-3 var-4 var-5)
1047
974
          (zdiv str sti rtztr rtzti bsumr bsumi)
1048
975
        (declare (ignore var-0 var-1 var-2 var-3))
1049
976
        (setf bsumr var-4)