@openwaters/almanac 0.4.0 → 0.4.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (2) hide show
  1. package/dist/moon.js +2172 -119
  2. package/package.json +1 -1
package/dist/moon.js CHANGED
@@ -97,127 +97,2180 @@ export function calcMoon(tt) {
97
97
  SetSI(-J, I, -SI(J, I));
98
98
  }
99
99
  }
100
+ let termY = 0;
100
101
  function Term(p, q, r, s) {
101
- var result = { x: 1, y: 0 };
102
- var I = [0, p, q, r, s]; // I[0] is not used; it is a placeholder
103
- for (var k = 1; k <= 4; ++k)
104
- if (I[k] !== 0)
105
- AddThe(result.x, result.y, CO(I[k], k), SI(I[k], k), (c, s) => (result.x = c, result.y = s));
106
- return result;
107
- }
108
- function AddSol(coeffl, coeffs, coeffg, coeffp, p, q, r, s) {
109
- var result = Term(p, q, r, s);
110
- DLAM += coeffl * result.y;
111
- DS += coeffs * result.y;
112
- GAM1C += coeffg * result.x;
113
- SINPI += coeffp * result.x;
114
- }
115
- AddSol(13.9020, 14.0600, -0.0010, 0.2607, 0, 0, 0, 4);
116
- AddSol(0.4030, -4.0100, 0.3940, 0.0023, 0, 0, 0, 3);
117
- AddSol(2369.9120, 2373.3600, 0.6010, 28.2333, 0, 0, 0, 2);
118
- AddSol(-125.1540, -112.7900, -0.7250, -0.9781, 0, 0, 0, 1);
119
- AddSol(1.9790, 6.9800, -0.4450, 0.0433, 1, 0, 0, 4);
120
- AddSol(191.9530, 192.7200, 0.0290, 3.0861, 1, 0, 0, 2);
121
- AddSol(-8.4660, -13.5100, 0.4550, -0.1093, 1, 0, 0, 1);
122
- AddSol(22639.5000, 22609.0700, 0.0790, 186.5398, 1, 0, 0, 0);
123
- AddSol(18.6090, 3.5900, -0.0940, 0.0118, 1, 0, 0, -1);
124
- AddSol(-4586.4650, -4578.1300, -0.0770, 34.3117, 1, 0, 0, -2);
125
- AddSol(3.2150, 5.4400, 0.1920, -0.0386, 1, 0, 0, -3);
126
- AddSol(-38.4280, -38.6400, 0.0010, 0.6008, 1, 0, 0, -4);
127
- AddSol(-0.3930, -1.4300, -0.0920, 0.0086, 1, 0, 0, -6);
128
- AddSol(-0.2890, -1.5900, 0.1230, -0.0053, 0, 1, 0, 4);
129
- AddSol(-24.4200, -25.1000, 0.0400, -0.3000, 0, 1, 0, 2);
130
- AddSol(18.0230, 17.9300, 0.0070, 0.1494, 0, 1, 0, 1);
131
- AddSol(-668.1460, -126.9800, -1.3020, -0.3997, 0, 1, 0, 0);
132
- AddSol(0.5600, 0.3200, -0.0010, -0.0037, 0, 1, 0, -1);
133
- AddSol(-165.1450, -165.0600, 0.0540, 1.9178, 0, 1, 0, -2);
134
- AddSol(-1.8770, -6.4600, -0.4160, 0.0339, 0, 1, 0, -4);
135
- AddSol(0.2130, 1.0200, -0.0740, 0.0054, 2, 0, 0, 4);
136
- AddSol(14.3870, 14.7800, -0.0170, 0.2833, 2, 0, 0, 2);
137
- AddSol(-0.5860, -1.2000, 0.0540, -0.0100, 2, 0, 0, 1);
138
- AddSol(769.0160, 767.9600, 0.1070, 10.1657, 2, 0, 0, 0);
139
- AddSol(1.7500, 2.0100, -0.0180, 0.0155, 2, 0, 0, -1);
140
- AddSol(-211.6560, -152.5300, 5.6790, -0.3039, 2, 0, 0, -2);
141
- AddSol(1.2250, 0.9100, -0.0300, -0.0088, 2, 0, 0, -3);
142
- AddSol(-30.7730, -34.0700, -0.3080, 0.3722, 2, 0, 0, -4);
143
- AddSol(-0.5700, -1.4000, -0.0740, 0.0109, 2, 0, 0, -6);
144
- AddSol(-2.9210, -11.7500, 0.7870, -0.0484, 1, 1, 0, 2);
145
- AddSol(1.2670, 1.5200, -0.0220, 0.0164, 1, 1, 0, 1);
146
- AddSol(-109.6730, -115.1800, 0.4610, -0.9490, 1, 1, 0, 0);
147
- AddSol(-205.9620, -182.3600, 2.0560, 1.4437, 1, 1, 0, -2);
148
- AddSol(0.2330, 0.3600, 0.0120, -0.0025, 1, 1, 0, -3);
149
- AddSol(-4.3910, -9.6600, -0.4710, 0.0673, 1, 1, 0, -4);
150
- AddSol(0.2830, 1.5300, -0.1110, 0.0060, 1, -1, 0, 4);
151
- AddSol(14.5770, 31.7000, -1.5400, 0.2302, 1, -1, 0, 2);
152
- AddSol(147.6870, 138.7600, 0.6790, 1.1528, 1, -1, 0, 0);
153
- AddSol(-1.0890, 0.5500, 0.0210, 0.0000, 1, -1, 0, -1);
154
- AddSol(28.4750, 23.5900, -0.4430, -0.2257, 1, -1, 0, -2);
155
- AddSol(-0.2760, -0.3800, -0.0060, -0.0036, 1, -1, 0, -3);
156
- AddSol(0.6360, 2.2700, 0.1460, -0.0102, 1, -1, 0, -4);
157
- AddSol(-0.1890, -1.6800, 0.1310, -0.0028, 0, 2, 0, 2);
158
- AddSol(-7.4860, -0.6600, -0.0370, -0.0086, 0, 2, 0, 0);
159
- AddSol(-8.0960, -16.3500, -0.7400, 0.0918, 0, 2, 0, -2);
160
- AddSol(-5.7410, -0.0400, 0.0000, -0.0009, 0, 0, 2, 2);
161
- AddSol(0.2550, 0.0000, 0.0000, 0.0000, 0, 0, 2, 1);
162
- AddSol(-411.6080, -0.2000, 0.0000, -0.0124, 0, 0, 2, 0);
163
- AddSol(0.5840, 0.8400, 0.0000, 0.0071, 0, 0, 2, -1);
164
- AddSol(-55.1730, -52.1400, 0.0000, -0.1052, 0, 0, 2, -2);
165
- AddSol(0.2540, 0.2500, 0.0000, -0.0017, 0, 0, 2, -3);
166
- AddSol(0.0250, -1.6700, 0.0000, 0.0031, 0, 0, 2, -4);
167
- AddSol(1.0600, 2.9600, -0.1660, 0.0243, 3, 0, 0, 2);
168
- AddSol(36.1240, 50.6400, -1.3000, 0.6215, 3, 0, 0, 0);
169
- AddSol(-13.1930, -16.4000, 0.2580, -0.1187, 3, 0, 0, -2);
170
- AddSol(-1.1870, -0.7400, 0.0420, 0.0074, 3, 0, 0, -4);
171
- AddSol(-0.2930, -0.3100, -0.0020, 0.0046, 3, 0, 0, -6);
172
- AddSol(-0.2900, -1.4500, 0.1160, -0.0051, 2, 1, 0, 2);
173
- AddSol(-7.6490, -10.5600, 0.2590, -0.1038, 2, 1, 0, 0);
174
- AddSol(-8.6270, -7.5900, 0.0780, -0.0192, 2, 1, 0, -2);
175
- AddSol(-2.7400, -2.5400, 0.0220, 0.0324, 2, 1, 0, -4);
176
- AddSol(1.1810, 3.3200, -0.2120, 0.0213, 2, -1, 0, 2);
177
- AddSol(9.7030, 11.6700, -0.1510, 0.1268, 2, -1, 0, 0);
178
- AddSol(-0.3520, -0.3700, 0.0010, -0.0028, 2, -1, 0, -1);
179
- AddSol(-2.4940, -1.1700, -0.0030, -0.0017, 2, -1, 0, -2);
180
- AddSol(0.3600, 0.2000, -0.0120, -0.0043, 2, -1, 0, -4);
181
- AddSol(-1.1670, -1.2500, 0.0080, -0.0106, 1, 2, 0, 0);
182
- AddSol(-7.4120, -6.1200, 0.1170, 0.0484, 1, 2, 0, -2);
183
- AddSol(-0.3110, -0.6500, -0.0320, 0.0044, 1, 2, 0, -4);
184
- AddSol(0.7570, 1.8200, -0.1050, 0.0112, 1, -2, 0, 2);
185
- AddSol(2.5800, 2.3200, 0.0270, 0.0196, 1, -2, 0, 0);
186
- AddSol(2.5330, 2.4000, -0.0140, -0.0212, 1, -2, 0, -2);
187
- AddSol(-0.3440, -0.5700, -0.0250, 0.0036, 0, 3, 0, -2);
188
- AddSol(-0.9920, -0.0200, 0.0000, 0.0000, 1, 0, 2, 2);
189
- AddSol(-45.0990, -0.0200, 0.0000, -0.0010, 1, 0, 2, 0);
190
- AddSol(-0.1790, -9.5200, 0.0000, -0.0833, 1, 0, 2, -2);
191
- AddSol(-0.3010, -0.3300, 0.0000, 0.0014, 1, 0, 2, -4);
192
- AddSol(-6.3820, -3.3700, 0.0000, -0.0481, 1, 0, -2, 2);
193
- AddSol(39.5280, 85.1300, 0.0000, -0.7136, 1, 0, -2, 0);
194
- AddSol(9.3660, 0.7100, 0.0000, -0.0112, 1, 0, -2, -2);
195
- AddSol(0.2020, 0.0200, 0.0000, 0.0000, 1, 0, -2, -4);
196
- AddSol(0.4150, 0.1000, 0.0000, 0.0013, 0, 1, 2, 0);
197
- AddSol(-2.1520, -2.2600, 0.0000, -0.0066, 0, 1, 2, -2);
198
- AddSol(-1.4400, -1.3000, 0.0000, 0.0014, 0, 1, -2, 2);
199
- AddSol(0.3840, -0.0400, 0.0000, 0.0000, 0, 1, -2, -2);
200
- AddSol(1.9380, 3.6000, -0.1450, 0.0401, 4, 0, 0, 0);
201
- AddSol(-0.9520, -1.5800, 0.0520, -0.0130, 4, 0, 0, -2);
202
- AddSol(-0.5510, -0.9400, 0.0320, -0.0097, 3, 1, 0, 0);
203
- AddSol(-0.4820, -0.5700, 0.0050, -0.0045, 3, 1, 0, -2);
204
- AddSol(0.6810, 0.9600, -0.0260, 0.0115, 3, -1, 0, 0);
205
- AddSol(-0.2970, -0.2700, 0.0020, -0.0009, 2, 2, 0, -2);
206
- AddSol(0.2540, 0.2100, -0.0030, 0.0000, 2, -2, 0, -2);
207
- AddSol(-0.2500, -0.2200, 0.0040, 0.0014, 1, 3, 0, -2);
208
- AddSol(-3.9960, 0.0000, 0.0000, 0.0004, 2, 0, 2, 0);
209
- AddSol(0.5570, -0.7500, 0.0000, -0.0090, 2, 0, 2, -2);
210
- AddSol(-0.4590, -0.3800, 0.0000, -0.0053, 2, 0, -2, 2);
211
- AddSol(-1.2980, 0.7400, 0.0000, 0.0004, 2, 0, -2, 0);
212
- AddSol(0.5380, 1.1400, 0.0000, -0.0141, 2, 0, -2, -2);
213
- AddSol(0.2630, 0.0200, 0.0000, 0.0000, 1, 1, 2, 0);
214
- AddSol(0.4260, 0.0700, 0.0000, -0.0006, 1, 1, -2, -2);
215
- AddSol(-0.3040, 0.0300, 0.0000, 0.0003, 1, -1, 2, 0);
216
- AddSol(-0.3720, -0.1900, 0.0000, -0.0027, 1, -1, -2, 2);
217
- AddSol(0.4180, 0.0000, 0.0000, 0.0000, 0, 0, 4, 0);
218
- AddSol(-0.3300, -0.0400, 0.0000, 0.0000, 3, 0, 2, 0);
102
+ let x = 1;
103
+ let y = 0;
104
+ let c, si, nextX;
105
+ if (p !== 0) {
106
+ c = CO(p, 1);
107
+ si = SI(p, 1);
108
+ nextX = x * c - y * si;
109
+ y = y * c + x * si;
110
+ x = nextX;
111
+ }
112
+ if (q !== 0) {
113
+ c = CO(q, 2);
114
+ si = SI(q, 2);
115
+ nextX = x * c - y * si;
116
+ y = y * c + x * si;
117
+ x = nextX;
118
+ }
119
+ if (r !== 0) {
120
+ c = CO(r, 3);
121
+ si = SI(r, 3);
122
+ nextX = x * c - y * si;
123
+ y = y * c + x * si;
124
+ x = nextX;
125
+ }
126
+ if (s !== 0) {
127
+ c = CO(s, 4);
128
+ si = SI(s, 4);
129
+ nextX = x * c - y * si;
130
+ y = y * c + x * si;
131
+ x = nextX;
132
+ }
133
+ termY = y;
134
+ }
135
+ {
136
+ let x = 1;
137
+ let y = 0;
138
+ let c, si, nextX;
139
+ c = coArray[43];
140
+ si = siArray[43];
141
+ nextX = x * c - y * si;
142
+ y = y * c + x * si;
143
+ x = nextX;
144
+ DLAM += 13.9020 * y;
145
+ DS += 14.0600 * y;
146
+ GAM1C += -0.0010 * x;
147
+ SINPI += 0.2607 * x;
148
+ }
149
+ {
150
+ let x = 1;
151
+ let y = 0;
152
+ let c, si, nextX;
153
+ c = coArray[39];
154
+ si = siArray[39];
155
+ nextX = x * c - y * si;
156
+ y = y * c + x * si;
157
+ x = nextX;
158
+ DLAM += 0.4030 * y;
159
+ DS += -4.0100 * y;
160
+ GAM1C += 0.3940 * x;
161
+ SINPI += 0.0023 * x;
162
+ }
163
+ {
164
+ let x = 1;
165
+ let y = 0;
166
+ let c, si, nextX;
167
+ c = coArray[35];
168
+ si = siArray[35];
169
+ nextX = x * c - y * si;
170
+ y = y * c + x * si;
171
+ x = nextX;
172
+ DLAM += 2369.9120 * y;
173
+ DS += 2373.3600 * y;
174
+ GAM1C += 0.6010 * x;
175
+ SINPI += 28.2333 * x;
176
+ }
177
+ {
178
+ let x = 1;
179
+ let y = 0;
180
+ let c, si, nextX;
181
+ c = coArray[31];
182
+ si = siArray[31];
183
+ nextX = x * c - y * si;
184
+ y = y * c + x * si;
185
+ x = nextX;
186
+ DLAM += -125.1540 * y;
187
+ DS += -112.7900 * y;
188
+ GAM1C += -0.7250 * x;
189
+ SINPI += -0.9781 * x;
190
+ }
191
+ {
192
+ let x = 1;
193
+ let y = 0;
194
+ let c, si, nextX;
195
+ c = coArray[28];
196
+ si = siArray[28];
197
+ nextX = x * c - y * si;
198
+ y = y * c + x * si;
199
+ x = nextX;
200
+ c = coArray[43];
201
+ si = siArray[43];
202
+ nextX = x * c - y * si;
203
+ y = y * c + x * si;
204
+ x = nextX;
205
+ DLAM += 1.9790 * y;
206
+ DS += 6.9800 * y;
207
+ GAM1C += -0.4450 * x;
208
+ SINPI += 0.0433 * x;
209
+ }
210
+ {
211
+ let x = 1;
212
+ let y = 0;
213
+ let c, si, nextX;
214
+ c = coArray[28];
215
+ si = siArray[28];
216
+ nextX = x * c - y * si;
217
+ y = y * c + x * si;
218
+ x = nextX;
219
+ c = coArray[35];
220
+ si = siArray[35];
221
+ nextX = x * c - y * si;
222
+ y = y * c + x * si;
223
+ x = nextX;
224
+ DLAM += 191.9530 * y;
225
+ DS += 192.7200 * y;
226
+ GAM1C += 0.0290 * x;
227
+ SINPI += 3.0861 * x;
228
+ }
229
+ {
230
+ let x = 1;
231
+ let y = 0;
232
+ let c, si, nextX;
233
+ c = coArray[28];
234
+ si = siArray[28];
235
+ nextX = x * c - y * si;
236
+ y = y * c + x * si;
237
+ x = nextX;
238
+ c = coArray[31];
239
+ si = siArray[31];
240
+ nextX = x * c - y * si;
241
+ y = y * c + x * si;
242
+ x = nextX;
243
+ DLAM += -8.4660 * y;
244
+ DS += -13.5100 * y;
245
+ GAM1C += 0.4550 * x;
246
+ SINPI += -0.1093 * x;
247
+ }
248
+ {
249
+ let x = 1;
250
+ let y = 0;
251
+ let c, si, nextX;
252
+ c = coArray[28];
253
+ si = siArray[28];
254
+ nextX = x * c - y * si;
255
+ y = y * c + x * si;
256
+ x = nextX;
257
+ DLAM += 22639.5000 * y;
258
+ DS += 22609.0700 * y;
259
+ GAM1C += 0.0790 * x;
260
+ SINPI += 186.5398 * x;
261
+ }
262
+ {
263
+ let x = 1;
264
+ let y = 0;
265
+ let c, si, nextX;
266
+ c = coArray[28];
267
+ si = siArray[28];
268
+ nextX = x * c - y * si;
269
+ y = y * c + x * si;
270
+ x = nextX;
271
+ c = coArray[23];
272
+ si = siArray[23];
273
+ nextX = x * c - y * si;
274
+ y = y * c + x * si;
275
+ x = nextX;
276
+ DLAM += 18.6090 * y;
277
+ DS += 3.5900 * y;
278
+ GAM1C += -0.0940 * x;
279
+ SINPI += 0.0118 * x;
280
+ }
281
+ {
282
+ let x = 1;
283
+ let y = 0;
284
+ let c, si, nextX;
285
+ c = coArray[28];
286
+ si = siArray[28];
287
+ nextX = x * c - y * si;
288
+ y = y * c + x * si;
289
+ x = nextX;
290
+ c = coArray[19];
291
+ si = siArray[19];
292
+ nextX = x * c - y * si;
293
+ y = y * c + x * si;
294
+ x = nextX;
295
+ DLAM += -4586.4650 * y;
296
+ DS += -4578.1300 * y;
297
+ GAM1C += -0.0770 * x;
298
+ SINPI += 34.3117 * x;
299
+ }
300
+ {
301
+ let x = 1;
302
+ let y = 0;
303
+ let c, si, nextX;
304
+ c = coArray[28];
305
+ si = siArray[28];
306
+ nextX = x * c - y * si;
307
+ y = y * c + x * si;
308
+ x = nextX;
309
+ c = coArray[15];
310
+ si = siArray[15];
311
+ nextX = x * c - y * si;
312
+ y = y * c + x * si;
313
+ x = nextX;
314
+ DLAM += 3.2150 * y;
315
+ DS += 5.4400 * y;
316
+ GAM1C += 0.1920 * x;
317
+ SINPI += -0.0386 * x;
318
+ }
319
+ {
320
+ let x = 1;
321
+ let y = 0;
322
+ let c, si, nextX;
323
+ c = coArray[28];
324
+ si = siArray[28];
325
+ nextX = x * c - y * si;
326
+ y = y * c + x * si;
327
+ x = nextX;
328
+ c = coArray[11];
329
+ si = siArray[11];
330
+ nextX = x * c - y * si;
331
+ y = y * c + x * si;
332
+ x = nextX;
333
+ DLAM += -38.4280 * y;
334
+ DS += -38.6400 * y;
335
+ GAM1C += 0.0010 * x;
336
+ SINPI += 0.6008 * x;
337
+ }
338
+ {
339
+ let x = 1;
340
+ let y = 0;
341
+ let c, si, nextX;
342
+ c = coArray[28];
343
+ si = siArray[28];
344
+ nextX = x * c - y * si;
345
+ y = y * c + x * si;
346
+ x = nextX;
347
+ c = coArray[3];
348
+ si = siArray[3];
349
+ nextX = x * c - y * si;
350
+ y = y * c + x * si;
351
+ x = nextX;
352
+ DLAM += -0.3930 * y;
353
+ DS += -1.4300 * y;
354
+ GAM1C += -0.0920 * x;
355
+ SINPI += 0.0086 * x;
356
+ }
357
+ {
358
+ let x = 1;
359
+ let y = 0;
360
+ let c, si, nextX;
361
+ c = coArray[29];
362
+ si = siArray[29];
363
+ nextX = x * c - y * si;
364
+ y = y * c + x * si;
365
+ x = nextX;
366
+ c = coArray[43];
367
+ si = siArray[43];
368
+ nextX = x * c - y * si;
369
+ y = y * c + x * si;
370
+ x = nextX;
371
+ DLAM += -0.2890 * y;
372
+ DS += -1.5900 * y;
373
+ GAM1C += 0.1230 * x;
374
+ SINPI += -0.0053 * x;
375
+ }
376
+ {
377
+ let x = 1;
378
+ let y = 0;
379
+ let c, si, nextX;
380
+ c = coArray[29];
381
+ si = siArray[29];
382
+ nextX = x * c - y * si;
383
+ y = y * c + x * si;
384
+ x = nextX;
385
+ c = coArray[35];
386
+ si = siArray[35];
387
+ nextX = x * c - y * si;
388
+ y = y * c + x * si;
389
+ x = nextX;
390
+ DLAM += -24.4200 * y;
391
+ DS += -25.1000 * y;
392
+ GAM1C += 0.0400 * x;
393
+ SINPI += -0.3000 * x;
394
+ }
395
+ {
396
+ let x = 1;
397
+ let y = 0;
398
+ let c, si, nextX;
399
+ c = coArray[29];
400
+ si = siArray[29];
401
+ nextX = x * c - y * si;
402
+ y = y * c + x * si;
403
+ x = nextX;
404
+ c = coArray[31];
405
+ si = siArray[31];
406
+ nextX = x * c - y * si;
407
+ y = y * c + x * si;
408
+ x = nextX;
409
+ DLAM += 18.0230 * y;
410
+ DS += 17.9300 * y;
411
+ GAM1C += 0.0070 * x;
412
+ SINPI += 0.1494 * x;
413
+ }
414
+ {
415
+ let x = 1;
416
+ let y = 0;
417
+ let c, si, nextX;
418
+ c = coArray[29];
419
+ si = siArray[29];
420
+ nextX = x * c - y * si;
421
+ y = y * c + x * si;
422
+ x = nextX;
423
+ DLAM += -668.1460 * y;
424
+ DS += -126.9800 * y;
425
+ GAM1C += -1.3020 * x;
426
+ SINPI += -0.3997 * x;
427
+ }
428
+ {
429
+ let x = 1;
430
+ let y = 0;
431
+ let c, si, nextX;
432
+ c = coArray[29];
433
+ si = siArray[29];
434
+ nextX = x * c - y * si;
435
+ y = y * c + x * si;
436
+ x = nextX;
437
+ c = coArray[23];
438
+ si = siArray[23];
439
+ nextX = x * c - y * si;
440
+ y = y * c + x * si;
441
+ x = nextX;
442
+ DLAM += 0.5600 * y;
443
+ DS += 0.3200 * y;
444
+ GAM1C += -0.0010 * x;
445
+ SINPI += -0.0037 * x;
446
+ }
447
+ {
448
+ let x = 1;
449
+ let y = 0;
450
+ let c, si, nextX;
451
+ c = coArray[29];
452
+ si = siArray[29];
453
+ nextX = x * c - y * si;
454
+ y = y * c + x * si;
455
+ x = nextX;
456
+ c = coArray[19];
457
+ si = siArray[19];
458
+ nextX = x * c - y * si;
459
+ y = y * c + x * si;
460
+ x = nextX;
461
+ DLAM += -165.1450 * y;
462
+ DS += -165.0600 * y;
463
+ GAM1C += 0.0540 * x;
464
+ SINPI += 1.9178 * x;
465
+ }
466
+ {
467
+ let x = 1;
468
+ let y = 0;
469
+ let c, si, nextX;
470
+ c = coArray[29];
471
+ si = siArray[29];
472
+ nextX = x * c - y * si;
473
+ y = y * c + x * si;
474
+ x = nextX;
475
+ c = coArray[11];
476
+ si = siArray[11];
477
+ nextX = x * c - y * si;
478
+ y = y * c + x * si;
479
+ x = nextX;
480
+ DLAM += -1.8770 * y;
481
+ DS += -6.4600 * y;
482
+ GAM1C += -0.4160 * x;
483
+ SINPI += 0.0339 * x;
484
+ }
485
+ {
486
+ let x = 1;
487
+ let y = 0;
488
+ let c, si, nextX;
489
+ c = coArray[32];
490
+ si = siArray[32];
491
+ nextX = x * c - y * si;
492
+ y = y * c + x * si;
493
+ x = nextX;
494
+ c = coArray[43];
495
+ si = siArray[43];
496
+ nextX = x * c - y * si;
497
+ y = y * c + x * si;
498
+ x = nextX;
499
+ DLAM += 0.2130 * y;
500
+ DS += 1.0200 * y;
501
+ GAM1C += -0.0740 * x;
502
+ SINPI += 0.0054 * x;
503
+ }
504
+ {
505
+ let x = 1;
506
+ let y = 0;
507
+ let c, si, nextX;
508
+ c = coArray[32];
509
+ si = siArray[32];
510
+ nextX = x * c - y * si;
511
+ y = y * c + x * si;
512
+ x = nextX;
513
+ c = coArray[35];
514
+ si = siArray[35];
515
+ nextX = x * c - y * si;
516
+ y = y * c + x * si;
517
+ x = nextX;
518
+ DLAM += 14.3870 * y;
519
+ DS += 14.7800 * y;
520
+ GAM1C += -0.0170 * x;
521
+ SINPI += 0.2833 * x;
522
+ }
523
+ {
524
+ let x = 1;
525
+ let y = 0;
526
+ let c, si, nextX;
527
+ c = coArray[32];
528
+ si = siArray[32];
529
+ nextX = x * c - y * si;
530
+ y = y * c + x * si;
531
+ x = nextX;
532
+ c = coArray[31];
533
+ si = siArray[31];
534
+ nextX = x * c - y * si;
535
+ y = y * c + x * si;
536
+ x = nextX;
537
+ DLAM += -0.5860 * y;
538
+ DS += -1.2000 * y;
539
+ GAM1C += 0.0540 * x;
540
+ SINPI += -0.0100 * x;
541
+ }
542
+ {
543
+ let x = 1;
544
+ let y = 0;
545
+ let c, si, nextX;
546
+ c = coArray[32];
547
+ si = siArray[32];
548
+ nextX = x * c - y * si;
549
+ y = y * c + x * si;
550
+ x = nextX;
551
+ DLAM += 769.0160 * y;
552
+ DS += 767.9600 * y;
553
+ GAM1C += 0.1070 * x;
554
+ SINPI += 10.1657 * x;
555
+ }
556
+ {
557
+ let x = 1;
558
+ let y = 0;
559
+ let c, si, nextX;
560
+ c = coArray[32];
561
+ si = siArray[32];
562
+ nextX = x * c - y * si;
563
+ y = y * c + x * si;
564
+ x = nextX;
565
+ c = coArray[23];
566
+ si = siArray[23];
567
+ nextX = x * c - y * si;
568
+ y = y * c + x * si;
569
+ x = nextX;
570
+ DLAM += 1.7500 * y;
571
+ DS += 2.0100 * y;
572
+ GAM1C += -0.0180 * x;
573
+ SINPI += 0.0155 * x;
574
+ }
575
+ {
576
+ let x = 1;
577
+ let y = 0;
578
+ let c, si, nextX;
579
+ c = coArray[32];
580
+ si = siArray[32];
581
+ nextX = x * c - y * si;
582
+ y = y * c + x * si;
583
+ x = nextX;
584
+ c = coArray[19];
585
+ si = siArray[19];
586
+ nextX = x * c - y * si;
587
+ y = y * c + x * si;
588
+ x = nextX;
589
+ DLAM += -211.6560 * y;
590
+ DS += -152.5300 * y;
591
+ GAM1C += 5.6790 * x;
592
+ SINPI += -0.3039 * x;
593
+ }
594
+ {
595
+ let x = 1;
596
+ let y = 0;
597
+ let c, si, nextX;
598
+ c = coArray[32];
599
+ si = siArray[32];
600
+ nextX = x * c - y * si;
601
+ y = y * c + x * si;
602
+ x = nextX;
603
+ c = coArray[15];
604
+ si = siArray[15];
605
+ nextX = x * c - y * si;
606
+ y = y * c + x * si;
607
+ x = nextX;
608
+ DLAM += 1.2250 * y;
609
+ DS += 0.9100 * y;
610
+ GAM1C += -0.0300 * x;
611
+ SINPI += -0.0088 * x;
612
+ }
613
+ {
614
+ let x = 1;
615
+ let y = 0;
616
+ let c, si, nextX;
617
+ c = coArray[32];
618
+ si = siArray[32];
619
+ nextX = x * c - y * si;
620
+ y = y * c + x * si;
621
+ x = nextX;
622
+ c = coArray[11];
623
+ si = siArray[11];
624
+ nextX = x * c - y * si;
625
+ y = y * c + x * si;
626
+ x = nextX;
627
+ DLAM += -30.7730 * y;
628
+ DS += -34.0700 * y;
629
+ GAM1C += -0.3080 * x;
630
+ SINPI += 0.3722 * x;
631
+ }
632
+ {
633
+ let x = 1;
634
+ let y = 0;
635
+ let c, si, nextX;
636
+ c = coArray[32];
637
+ si = siArray[32];
638
+ nextX = x * c - y * si;
639
+ y = y * c + x * si;
640
+ x = nextX;
641
+ c = coArray[3];
642
+ si = siArray[3];
643
+ nextX = x * c - y * si;
644
+ y = y * c + x * si;
645
+ x = nextX;
646
+ DLAM += -0.5700 * y;
647
+ DS += -1.4000 * y;
648
+ GAM1C += -0.0740 * x;
649
+ SINPI += 0.0109 * x;
650
+ }
651
+ {
652
+ let x = 1;
653
+ let y = 0;
654
+ let c, si, nextX;
655
+ c = coArray[28];
656
+ si = siArray[28];
657
+ nextX = x * c - y * si;
658
+ y = y * c + x * si;
659
+ x = nextX;
660
+ c = coArray[29];
661
+ si = siArray[29];
662
+ nextX = x * c - y * si;
663
+ y = y * c + x * si;
664
+ x = nextX;
665
+ c = coArray[35];
666
+ si = siArray[35];
667
+ nextX = x * c - y * si;
668
+ y = y * c + x * si;
669
+ x = nextX;
670
+ DLAM += -2.9210 * y;
671
+ DS += -11.7500 * y;
672
+ GAM1C += 0.7870 * x;
673
+ SINPI += -0.0484 * x;
674
+ }
675
+ {
676
+ let x = 1;
677
+ let y = 0;
678
+ let c, si, nextX;
679
+ c = coArray[28];
680
+ si = siArray[28];
681
+ nextX = x * c - y * si;
682
+ y = y * c + x * si;
683
+ x = nextX;
684
+ c = coArray[29];
685
+ si = siArray[29];
686
+ nextX = x * c - y * si;
687
+ y = y * c + x * si;
688
+ x = nextX;
689
+ c = coArray[31];
690
+ si = siArray[31];
691
+ nextX = x * c - y * si;
692
+ y = y * c + x * si;
693
+ x = nextX;
694
+ DLAM += 1.2670 * y;
695
+ DS += 1.5200 * y;
696
+ GAM1C += -0.0220 * x;
697
+ SINPI += 0.0164 * x;
698
+ }
699
+ {
700
+ let x = 1;
701
+ let y = 0;
702
+ let c, si, nextX;
703
+ c = coArray[28];
704
+ si = siArray[28];
705
+ nextX = x * c - y * si;
706
+ y = y * c + x * si;
707
+ x = nextX;
708
+ c = coArray[29];
709
+ si = siArray[29];
710
+ nextX = x * c - y * si;
711
+ y = y * c + x * si;
712
+ x = nextX;
713
+ DLAM += -109.6730 * y;
714
+ DS += -115.1800 * y;
715
+ GAM1C += 0.4610 * x;
716
+ SINPI += -0.9490 * x;
717
+ }
718
+ {
719
+ let x = 1;
720
+ let y = 0;
721
+ let c, si, nextX;
722
+ c = coArray[28];
723
+ si = siArray[28];
724
+ nextX = x * c - y * si;
725
+ y = y * c + x * si;
726
+ x = nextX;
727
+ c = coArray[29];
728
+ si = siArray[29];
729
+ nextX = x * c - y * si;
730
+ y = y * c + x * si;
731
+ x = nextX;
732
+ c = coArray[19];
733
+ si = siArray[19];
734
+ nextX = x * c - y * si;
735
+ y = y * c + x * si;
736
+ x = nextX;
737
+ DLAM += -205.9620 * y;
738
+ DS += -182.3600 * y;
739
+ GAM1C += 2.0560 * x;
740
+ SINPI += 1.4437 * x;
741
+ }
742
+ {
743
+ let x = 1;
744
+ let y = 0;
745
+ let c, si, nextX;
746
+ c = coArray[28];
747
+ si = siArray[28];
748
+ nextX = x * c - y * si;
749
+ y = y * c + x * si;
750
+ x = nextX;
751
+ c = coArray[29];
752
+ si = siArray[29];
753
+ nextX = x * c - y * si;
754
+ y = y * c + x * si;
755
+ x = nextX;
756
+ c = coArray[15];
757
+ si = siArray[15];
758
+ nextX = x * c - y * si;
759
+ y = y * c + x * si;
760
+ x = nextX;
761
+ DLAM += 0.2330 * y;
762
+ DS += 0.3600 * y;
763
+ GAM1C += 0.0120 * x;
764
+ SINPI += -0.0025 * x;
765
+ }
766
+ {
767
+ let x = 1;
768
+ let y = 0;
769
+ let c, si, nextX;
770
+ c = coArray[28];
771
+ si = siArray[28];
772
+ nextX = x * c - y * si;
773
+ y = y * c + x * si;
774
+ x = nextX;
775
+ c = coArray[29];
776
+ si = siArray[29];
777
+ nextX = x * c - y * si;
778
+ y = y * c + x * si;
779
+ x = nextX;
780
+ c = coArray[11];
781
+ si = siArray[11];
782
+ nextX = x * c - y * si;
783
+ y = y * c + x * si;
784
+ x = nextX;
785
+ DLAM += -4.3910 * y;
786
+ DS += -9.6600 * y;
787
+ GAM1C += -0.4710 * x;
788
+ SINPI += 0.0673 * x;
789
+ }
790
+ {
791
+ let x = 1;
792
+ let y = 0;
793
+ let c, si, nextX;
794
+ c = coArray[28];
795
+ si = siArray[28];
796
+ nextX = x * c - y * si;
797
+ y = y * c + x * si;
798
+ x = nextX;
799
+ c = coArray[21];
800
+ si = siArray[21];
801
+ nextX = x * c - y * si;
802
+ y = y * c + x * si;
803
+ x = nextX;
804
+ c = coArray[43];
805
+ si = siArray[43];
806
+ nextX = x * c - y * si;
807
+ y = y * c + x * si;
808
+ x = nextX;
809
+ DLAM += 0.2830 * y;
810
+ DS += 1.5300 * y;
811
+ GAM1C += -0.1110 * x;
812
+ SINPI += 0.0060 * x;
813
+ }
814
+ {
815
+ let x = 1;
816
+ let y = 0;
817
+ let c, si, nextX;
818
+ c = coArray[28];
819
+ si = siArray[28];
820
+ nextX = x * c - y * si;
821
+ y = y * c + x * si;
822
+ x = nextX;
823
+ c = coArray[21];
824
+ si = siArray[21];
825
+ nextX = x * c - y * si;
826
+ y = y * c + x * si;
827
+ x = nextX;
828
+ c = coArray[35];
829
+ si = siArray[35];
830
+ nextX = x * c - y * si;
831
+ y = y * c + x * si;
832
+ x = nextX;
833
+ DLAM += 14.5770 * y;
834
+ DS += 31.7000 * y;
835
+ GAM1C += -1.5400 * x;
836
+ SINPI += 0.2302 * x;
837
+ }
838
+ {
839
+ let x = 1;
840
+ let y = 0;
841
+ let c, si, nextX;
842
+ c = coArray[28];
843
+ si = siArray[28];
844
+ nextX = x * c - y * si;
845
+ y = y * c + x * si;
846
+ x = nextX;
847
+ c = coArray[21];
848
+ si = siArray[21];
849
+ nextX = x * c - y * si;
850
+ y = y * c + x * si;
851
+ x = nextX;
852
+ DLAM += 147.6870 * y;
853
+ DS += 138.7600 * y;
854
+ GAM1C += 0.6790 * x;
855
+ SINPI += 1.1528 * x;
856
+ }
857
+ {
858
+ let x = 1;
859
+ let y = 0;
860
+ let c, si, nextX;
861
+ c = coArray[28];
862
+ si = siArray[28];
863
+ nextX = x * c - y * si;
864
+ y = y * c + x * si;
865
+ x = nextX;
866
+ c = coArray[21];
867
+ si = siArray[21];
868
+ nextX = x * c - y * si;
869
+ y = y * c + x * si;
870
+ x = nextX;
871
+ c = coArray[23];
872
+ si = siArray[23];
873
+ nextX = x * c - y * si;
874
+ y = y * c + x * si;
875
+ x = nextX;
876
+ DLAM += -1.0890 * y;
877
+ DS += 0.5500 * y;
878
+ GAM1C += 0.0210 * x;
879
+ SINPI += 0.0000 * x;
880
+ }
881
+ {
882
+ let x = 1;
883
+ let y = 0;
884
+ let c, si, nextX;
885
+ c = coArray[28];
886
+ si = siArray[28];
887
+ nextX = x * c - y * si;
888
+ y = y * c + x * si;
889
+ x = nextX;
890
+ c = coArray[21];
891
+ si = siArray[21];
892
+ nextX = x * c - y * si;
893
+ y = y * c + x * si;
894
+ x = nextX;
895
+ c = coArray[19];
896
+ si = siArray[19];
897
+ nextX = x * c - y * si;
898
+ y = y * c + x * si;
899
+ x = nextX;
900
+ DLAM += 28.4750 * y;
901
+ DS += 23.5900 * y;
902
+ GAM1C += -0.4430 * x;
903
+ SINPI += -0.2257 * x;
904
+ }
905
+ {
906
+ let x = 1;
907
+ let y = 0;
908
+ let c, si, nextX;
909
+ c = coArray[28];
910
+ si = siArray[28];
911
+ nextX = x * c - y * si;
912
+ y = y * c + x * si;
913
+ x = nextX;
914
+ c = coArray[21];
915
+ si = siArray[21];
916
+ nextX = x * c - y * si;
917
+ y = y * c + x * si;
918
+ x = nextX;
919
+ c = coArray[15];
920
+ si = siArray[15];
921
+ nextX = x * c - y * si;
922
+ y = y * c + x * si;
923
+ x = nextX;
924
+ DLAM += -0.2760 * y;
925
+ DS += -0.3800 * y;
926
+ GAM1C += -0.0060 * x;
927
+ SINPI += -0.0036 * x;
928
+ }
929
+ {
930
+ let x = 1;
931
+ let y = 0;
932
+ let c, si, nextX;
933
+ c = coArray[28];
934
+ si = siArray[28];
935
+ nextX = x * c - y * si;
936
+ y = y * c + x * si;
937
+ x = nextX;
938
+ c = coArray[21];
939
+ si = siArray[21];
940
+ nextX = x * c - y * si;
941
+ y = y * c + x * si;
942
+ x = nextX;
943
+ c = coArray[11];
944
+ si = siArray[11];
945
+ nextX = x * c - y * si;
946
+ y = y * c + x * si;
947
+ x = nextX;
948
+ DLAM += 0.6360 * y;
949
+ DS += 2.2700 * y;
950
+ GAM1C += 0.1460 * x;
951
+ SINPI += -0.0102 * x;
952
+ }
953
+ {
954
+ let x = 1;
955
+ let y = 0;
956
+ let c, si, nextX;
957
+ c = coArray[33];
958
+ si = siArray[33];
959
+ nextX = x * c - y * si;
960
+ y = y * c + x * si;
961
+ x = nextX;
962
+ c = coArray[35];
963
+ si = siArray[35];
964
+ nextX = x * c - y * si;
965
+ y = y * c + x * si;
966
+ x = nextX;
967
+ DLAM += -0.1890 * y;
968
+ DS += -1.6800 * y;
969
+ GAM1C += 0.1310 * x;
970
+ SINPI += -0.0028 * x;
971
+ }
972
+ {
973
+ let x = 1;
974
+ let y = 0;
975
+ let c, si, nextX;
976
+ c = coArray[33];
977
+ si = siArray[33];
978
+ nextX = x * c - y * si;
979
+ y = y * c + x * si;
980
+ x = nextX;
981
+ DLAM += -7.4860 * y;
982
+ DS += -0.6600 * y;
983
+ GAM1C += -0.0370 * x;
984
+ SINPI += -0.0086 * x;
985
+ }
986
+ {
987
+ let x = 1;
988
+ let y = 0;
989
+ let c, si, nextX;
990
+ c = coArray[33];
991
+ si = siArray[33];
992
+ nextX = x * c - y * si;
993
+ y = y * c + x * si;
994
+ x = nextX;
995
+ c = coArray[19];
996
+ si = siArray[19];
997
+ nextX = x * c - y * si;
998
+ y = y * c + x * si;
999
+ x = nextX;
1000
+ DLAM += -8.0960 * y;
1001
+ DS += -16.3500 * y;
1002
+ GAM1C += -0.7400 * x;
1003
+ SINPI += 0.0918 * x;
1004
+ }
1005
+ {
1006
+ let x = 1;
1007
+ let y = 0;
1008
+ let c, si, nextX;
1009
+ c = coArray[34];
1010
+ si = siArray[34];
1011
+ nextX = x * c - y * si;
1012
+ y = y * c + x * si;
1013
+ x = nextX;
1014
+ c = coArray[35];
1015
+ si = siArray[35];
1016
+ nextX = x * c - y * si;
1017
+ y = y * c + x * si;
1018
+ x = nextX;
1019
+ DLAM += -5.7410 * y;
1020
+ DS += -0.0400 * y;
1021
+ GAM1C += 0.0000 * x;
1022
+ SINPI += -0.0009 * x;
1023
+ }
1024
+ {
1025
+ let x = 1;
1026
+ let y = 0;
1027
+ let c, si, nextX;
1028
+ c = coArray[34];
1029
+ si = siArray[34];
1030
+ nextX = x * c - y * si;
1031
+ y = y * c + x * si;
1032
+ x = nextX;
1033
+ c = coArray[31];
1034
+ si = siArray[31];
1035
+ nextX = x * c - y * si;
1036
+ y = y * c + x * si;
1037
+ x = nextX;
1038
+ DLAM += 0.2550 * y;
1039
+ DS += 0.0000 * y;
1040
+ GAM1C += 0.0000 * x;
1041
+ SINPI += 0.0000 * x;
1042
+ }
1043
+ {
1044
+ let x = 1;
1045
+ let y = 0;
1046
+ let c, si, nextX;
1047
+ c = coArray[34];
1048
+ si = siArray[34];
1049
+ nextX = x * c - y * si;
1050
+ y = y * c + x * si;
1051
+ x = nextX;
1052
+ DLAM += -411.6080 * y;
1053
+ DS += -0.2000 * y;
1054
+ GAM1C += 0.0000 * x;
1055
+ SINPI += -0.0124 * x;
1056
+ }
1057
+ {
1058
+ let x = 1;
1059
+ let y = 0;
1060
+ let c, si, nextX;
1061
+ c = coArray[34];
1062
+ si = siArray[34];
1063
+ nextX = x * c - y * si;
1064
+ y = y * c + x * si;
1065
+ x = nextX;
1066
+ c = coArray[23];
1067
+ si = siArray[23];
1068
+ nextX = x * c - y * si;
1069
+ y = y * c + x * si;
1070
+ x = nextX;
1071
+ DLAM += 0.5840 * y;
1072
+ DS += 0.8400 * y;
1073
+ GAM1C += 0.0000 * x;
1074
+ SINPI += 0.0071 * x;
1075
+ }
1076
+ {
1077
+ let x = 1;
1078
+ let y = 0;
1079
+ let c, si, nextX;
1080
+ c = coArray[34];
1081
+ si = siArray[34];
1082
+ nextX = x * c - y * si;
1083
+ y = y * c + x * si;
1084
+ x = nextX;
1085
+ c = coArray[19];
1086
+ si = siArray[19];
1087
+ nextX = x * c - y * si;
1088
+ y = y * c + x * si;
1089
+ x = nextX;
1090
+ DLAM += -55.1730 * y;
1091
+ DS += -52.1400 * y;
1092
+ GAM1C += 0.0000 * x;
1093
+ SINPI += -0.1052 * x;
1094
+ }
1095
+ {
1096
+ let x = 1;
1097
+ let y = 0;
1098
+ let c, si, nextX;
1099
+ c = coArray[34];
1100
+ si = siArray[34];
1101
+ nextX = x * c - y * si;
1102
+ y = y * c + x * si;
1103
+ x = nextX;
1104
+ c = coArray[15];
1105
+ si = siArray[15];
1106
+ nextX = x * c - y * si;
1107
+ y = y * c + x * si;
1108
+ x = nextX;
1109
+ DLAM += 0.2540 * y;
1110
+ DS += 0.2500 * y;
1111
+ GAM1C += 0.0000 * x;
1112
+ SINPI += -0.0017 * x;
1113
+ }
1114
+ {
1115
+ let x = 1;
1116
+ let y = 0;
1117
+ let c, si, nextX;
1118
+ c = coArray[34];
1119
+ si = siArray[34];
1120
+ nextX = x * c - y * si;
1121
+ y = y * c + x * si;
1122
+ x = nextX;
1123
+ c = coArray[11];
1124
+ si = siArray[11];
1125
+ nextX = x * c - y * si;
1126
+ y = y * c + x * si;
1127
+ x = nextX;
1128
+ DLAM += 0.0250 * y;
1129
+ DS += -1.6700 * y;
1130
+ GAM1C += 0.0000 * x;
1131
+ SINPI += 0.0031 * x;
1132
+ }
1133
+ {
1134
+ let x = 1;
1135
+ let y = 0;
1136
+ let c, si, nextX;
1137
+ c = coArray[36];
1138
+ si = siArray[36];
1139
+ nextX = x * c - y * si;
1140
+ y = y * c + x * si;
1141
+ x = nextX;
1142
+ c = coArray[35];
1143
+ si = siArray[35];
1144
+ nextX = x * c - y * si;
1145
+ y = y * c + x * si;
1146
+ x = nextX;
1147
+ DLAM += 1.0600 * y;
1148
+ DS += 2.9600 * y;
1149
+ GAM1C += -0.1660 * x;
1150
+ SINPI += 0.0243 * x;
1151
+ }
1152
+ {
1153
+ let x = 1;
1154
+ let y = 0;
1155
+ let c, si, nextX;
1156
+ c = coArray[36];
1157
+ si = siArray[36];
1158
+ nextX = x * c - y * si;
1159
+ y = y * c + x * si;
1160
+ x = nextX;
1161
+ DLAM += 36.1240 * y;
1162
+ DS += 50.6400 * y;
1163
+ GAM1C += -1.3000 * x;
1164
+ SINPI += 0.6215 * x;
1165
+ }
1166
+ {
1167
+ let x = 1;
1168
+ let y = 0;
1169
+ let c, si, nextX;
1170
+ c = coArray[36];
1171
+ si = siArray[36];
1172
+ nextX = x * c - y * si;
1173
+ y = y * c + x * si;
1174
+ x = nextX;
1175
+ c = coArray[19];
1176
+ si = siArray[19];
1177
+ nextX = x * c - y * si;
1178
+ y = y * c + x * si;
1179
+ x = nextX;
1180
+ DLAM += -13.1930 * y;
1181
+ DS += -16.4000 * y;
1182
+ GAM1C += 0.2580 * x;
1183
+ SINPI += -0.1187 * x;
1184
+ }
1185
+ {
1186
+ let x = 1;
1187
+ let y = 0;
1188
+ let c, si, nextX;
1189
+ c = coArray[36];
1190
+ si = siArray[36];
1191
+ nextX = x * c - y * si;
1192
+ y = y * c + x * si;
1193
+ x = nextX;
1194
+ c = coArray[11];
1195
+ si = siArray[11];
1196
+ nextX = x * c - y * si;
1197
+ y = y * c + x * si;
1198
+ x = nextX;
1199
+ DLAM += -1.1870 * y;
1200
+ DS += -0.7400 * y;
1201
+ GAM1C += 0.0420 * x;
1202
+ SINPI += 0.0074 * x;
1203
+ }
1204
+ {
1205
+ let x = 1;
1206
+ let y = 0;
1207
+ let c, si, nextX;
1208
+ c = coArray[36];
1209
+ si = siArray[36];
1210
+ nextX = x * c - y * si;
1211
+ y = y * c + x * si;
1212
+ x = nextX;
1213
+ c = coArray[3];
1214
+ si = siArray[3];
1215
+ nextX = x * c - y * si;
1216
+ y = y * c + x * si;
1217
+ x = nextX;
1218
+ DLAM += -0.2930 * y;
1219
+ DS += -0.3100 * y;
1220
+ GAM1C += -0.0020 * x;
1221
+ SINPI += 0.0046 * x;
1222
+ }
1223
+ {
1224
+ let x = 1;
1225
+ let y = 0;
1226
+ let c, si, nextX;
1227
+ c = coArray[32];
1228
+ si = siArray[32];
1229
+ nextX = x * c - y * si;
1230
+ y = y * c + x * si;
1231
+ x = nextX;
1232
+ c = coArray[29];
1233
+ si = siArray[29];
1234
+ nextX = x * c - y * si;
1235
+ y = y * c + x * si;
1236
+ x = nextX;
1237
+ c = coArray[35];
1238
+ si = siArray[35];
1239
+ nextX = x * c - y * si;
1240
+ y = y * c + x * si;
1241
+ x = nextX;
1242
+ DLAM += -0.2900 * y;
1243
+ DS += -1.4500 * y;
1244
+ GAM1C += 0.1160 * x;
1245
+ SINPI += -0.0051 * x;
1246
+ }
1247
+ {
1248
+ let x = 1;
1249
+ let y = 0;
1250
+ let c, si, nextX;
1251
+ c = coArray[32];
1252
+ si = siArray[32];
1253
+ nextX = x * c - y * si;
1254
+ y = y * c + x * si;
1255
+ x = nextX;
1256
+ c = coArray[29];
1257
+ si = siArray[29];
1258
+ nextX = x * c - y * si;
1259
+ y = y * c + x * si;
1260
+ x = nextX;
1261
+ DLAM += -7.6490 * y;
1262
+ DS += -10.5600 * y;
1263
+ GAM1C += 0.2590 * x;
1264
+ SINPI += -0.1038 * x;
1265
+ }
1266
+ {
1267
+ let x = 1;
1268
+ let y = 0;
1269
+ let c, si, nextX;
1270
+ c = coArray[32];
1271
+ si = siArray[32];
1272
+ nextX = x * c - y * si;
1273
+ y = y * c + x * si;
1274
+ x = nextX;
1275
+ c = coArray[29];
1276
+ si = siArray[29];
1277
+ nextX = x * c - y * si;
1278
+ y = y * c + x * si;
1279
+ x = nextX;
1280
+ c = coArray[19];
1281
+ si = siArray[19];
1282
+ nextX = x * c - y * si;
1283
+ y = y * c + x * si;
1284
+ x = nextX;
1285
+ DLAM += -8.6270 * y;
1286
+ DS += -7.5900 * y;
1287
+ GAM1C += 0.0780 * x;
1288
+ SINPI += -0.0192 * x;
1289
+ }
1290
+ {
1291
+ let x = 1;
1292
+ let y = 0;
1293
+ let c, si, nextX;
1294
+ c = coArray[32];
1295
+ si = siArray[32];
1296
+ nextX = x * c - y * si;
1297
+ y = y * c + x * si;
1298
+ x = nextX;
1299
+ c = coArray[29];
1300
+ si = siArray[29];
1301
+ nextX = x * c - y * si;
1302
+ y = y * c + x * si;
1303
+ x = nextX;
1304
+ c = coArray[11];
1305
+ si = siArray[11];
1306
+ nextX = x * c - y * si;
1307
+ y = y * c + x * si;
1308
+ x = nextX;
1309
+ DLAM += -2.7400 * y;
1310
+ DS += -2.5400 * y;
1311
+ GAM1C += 0.0220 * x;
1312
+ SINPI += 0.0324 * x;
1313
+ }
1314
+ {
1315
+ let x = 1;
1316
+ let y = 0;
1317
+ let c, si, nextX;
1318
+ c = coArray[32];
1319
+ si = siArray[32];
1320
+ nextX = x * c - y * si;
1321
+ y = y * c + x * si;
1322
+ x = nextX;
1323
+ c = coArray[21];
1324
+ si = siArray[21];
1325
+ nextX = x * c - y * si;
1326
+ y = y * c + x * si;
1327
+ x = nextX;
1328
+ c = coArray[35];
1329
+ si = siArray[35];
1330
+ nextX = x * c - y * si;
1331
+ y = y * c + x * si;
1332
+ x = nextX;
1333
+ DLAM += 1.1810 * y;
1334
+ DS += 3.3200 * y;
1335
+ GAM1C += -0.2120 * x;
1336
+ SINPI += 0.0213 * x;
1337
+ }
1338
+ {
1339
+ let x = 1;
1340
+ let y = 0;
1341
+ let c, si, nextX;
1342
+ c = coArray[32];
1343
+ si = siArray[32];
1344
+ nextX = x * c - y * si;
1345
+ y = y * c + x * si;
1346
+ x = nextX;
1347
+ c = coArray[21];
1348
+ si = siArray[21];
1349
+ nextX = x * c - y * si;
1350
+ y = y * c + x * si;
1351
+ x = nextX;
1352
+ DLAM += 9.7030 * y;
1353
+ DS += 11.6700 * y;
1354
+ GAM1C += -0.1510 * x;
1355
+ SINPI += 0.1268 * x;
1356
+ }
1357
+ {
1358
+ let x = 1;
1359
+ let y = 0;
1360
+ let c, si, nextX;
1361
+ c = coArray[32];
1362
+ si = siArray[32];
1363
+ nextX = x * c - y * si;
1364
+ y = y * c + x * si;
1365
+ x = nextX;
1366
+ c = coArray[21];
1367
+ si = siArray[21];
1368
+ nextX = x * c - y * si;
1369
+ y = y * c + x * si;
1370
+ x = nextX;
1371
+ c = coArray[23];
1372
+ si = siArray[23];
1373
+ nextX = x * c - y * si;
1374
+ y = y * c + x * si;
1375
+ x = nextX;
1376
+ DLAM += -0.3520 * y;
1377
+ DS += -0.3700 * y;
1378
+ GAM1C += 0.0010 * x;
1379
+ SINPI += -0.0028 * x;
1380
+ }
1381
+ {
1382
+ let x = 1;
1383
+ let y = 0;
1384
+ let c, si, nextX;
1385
+ c = coArray[32];
1386
+ si = siArray[32];
1387
+ nextX = x * c - y * si;
1388
+ y = y * c + x * si;
1389
+ x = nextX;
1390
+ c = coArray[21];
1391
+ si = siArray[21];
1392
+ nextX = x * c - y * si;
1393
+ y = y * c + x * si;
1394
+ x = nextX;
1395
+ c = coArray[19];
1396
+ si = siArray[19];
1397
+ nextX = x * c - y * si;
1398
+ y = y * c + x * si;
1399
+ x = nextX;
1400
+ DLAM += -2.4940 * y;
1401
+ DS += -1.1700 * y;
1402
+ GAM1C += -0.0030 * x;
1403
+ SINPI += -0.0017 * x;
1404
+ }
1405
+ {
1406
+ let x = 1;
1407
+ let y = 0;
1408
+ let c, si, nextX;
1409
+ c = coArray[32];
1410
+ si = siArray[32];
1411
+ nextX = x * c - y * si;
1412
+ y = y * c + x * si;
1413
+ x = nextX;
1414
+ c = coArray[21];
1415
+ si = siArray[21];
1416
+ nextX = x * c - y * si;
1417
+ y = y * c + x * si;
1418
+ x = nextX;
1419
+ c = coArray[11];
1420
+ si = siArray[11];
1421
+ nextX = x * c - y * si;
1422
+ y = y * c + x * si;
1423
+ x = nextX;
1424
+ DLAM += 0.3600 * y;
1425
+ DS += 0.2000 * y;
1426
+ GAM1C += -0.0120 * x;
1427
+ SINPI += -0.0043 * x;
1428
+ }
1429
+ {
1430
+ let x = 1;
1431
+ let y = 0;
1432
+ let c, si, nextX;
1433
+ c = coArray[28];
1434
+ si = siArray[28];
1435
+ nextX = x * c - y * si;
1436
+ y = y * c + x * si;
1437
+ x = nextX;
1438
+ c = coArray[33];
1439
+ si = siArray[33];
1440
+ nextX = x * c - y * si;
1441
+ y = y * c + x * si;
1442
+ x = nextX;
1443
+ DLAM += -1.1670 * y;
1444
+ DS += -1.2500 * y;
1445
+ GAM1C += 0.0080 * x;
1446
+ SINPI += -0.0106 * x;
1447
+ }
1448
+ {
1449
+ let x = 1;
1450
+ let y = 0;
1451
+ let c, si, nextX;
1452
+ c = coArray[28];
1453
+ si = siArray[28];
1454
+ nextX = x * c - y * si;
1455
+ y = y * c + x * si;
1456
+ x = nextX;
1457
+ c = coArray[33];
1458
+ si = siArray[33];
1459
+ nextX = x * c - y * si;
1460
+ y = y * c + x * si;
1461
+ x = nextX;
1462
+ c = coArray[19];
1463
+ si = siArray[19];
1464
+ nextX = x * c - y * si;
1465
+ y = y * c + x * si;
1466
+ x = nextX;
1467
+ DLAM += -7.4120 * y;
1468
+ DS += -6.1200 * y;
1469
+ GAM1C += 0.1170 * x;
1470
+ SINPI += 0.0484 * x;
1471
+ }
1472
+ {
1473
+ let x = 1;
1474
+ let y = 0;
1475
+ let c, si, nextX;
1476
+ c = coArray[28];
1477
+ si = siArray[28];
1478
+ nextX = x * c - y * si;
1479
+ y = y * c + x * si;
1480
+ x = nextX;
1481
+ c = coArray[33];
1482
+ si = siArray[33];
1483
+ nextX = x * c - y * si;
1484
+ y = y * c + x * si;
1485
+ x = nextX;
1486
+ c = coArray[11];
1487
+ si = siArray[11];
1488
+ nextX = x * c - y * si;
1489
+ y = y * c + x * si;
1490
+ x = nextX;
1491
+ DLAM += -0.3110 * y;
1492
+ DS += -0.6500 * y;
1493
+ GAM1C += -0.0320 * x;
1494
+ SINPI += 0.0044 * x;
1495
+ }
1496
+ {
1497
+ let x = 1;
1498
+ let y = 0;
1499
+ let c, si, nextX;
1500
+ c = coArray[28];
1501
+ si = siArray[28];
1502
+ nextX = x * c - y * si;
1503
+ y = y * c + x * si;
1504
+ x = nextX;
1505
+ c = coArray[17];
1506
+ si = siArray[17];
1507
+ nextX = x * c - y * si;
1508
+ y = y * c + x * si;
1509
+ x = nextX;
1510
+ c = coArray[35];
1511
+ si = siArray[35];
1512
+ nextX = x * c - y * si;
1513
+ y = y * c + x * si;
1514
+ x = nextX;
1515
+ DLAM += 0.7570 * y;
1516
+ DS += 1.8200 * y;
1517
+ GAM1C += -0.1050 * x;
1518
+ SINPI += 0.0112 * x;
1519
+ }
1520
+ {
1521
+ let x = 1;
1522
+ let y = 0;
1523
+ let c, si, nextX;
1524
+ c = coArray[28];
1525
+ si = siArray[28];
1526
+ nextX = x * c - y * si;
1527
+ y = y * c + x * si;
1528
+ x = nextX;
1529
+ c = coArray[17];
1530
+ si = siArray[17];
1531
+ nextX = x * c - y * si;
1532
+ y = y * c + x * si;
1533
+ x = nextX;
1534
+ DLAM += 2.5800 * y;
1535
+ DS += 2.3200 * y;
1536
+ GAM1C += 0.0270 * x;
1537
+ SINPI += 0.0196 * x;
1538
+ }
1539
+ {
1540
+ let x = 1;
1541
+ let y = 0;
1542
+ let c, si, nextX;
1543
+ c = coArray[28];
1544
+ si = siArray[28];
1545
+ nextX = x * c - y * si;
1546
+ y = y * c + x * si;
1547
+ x = nextX;
1548
+ c = coArray[17];
1549
+ si = siArray[17];
1550
+ nextX = x * c - y * si;
1551
+ y = y * c + x * si;
1552
+ x = nextX;
1553
+ c = coArray[19];
1554
+ si = siArray[19];
1555
+ nextX = x * c - y * si;
1556
+ y = y * c + x * si;
1557
+ x = nextX;
1558
+ DLAM += 2.5330 * y;
1559
+ DS += 2.4000 * y;
1560
+ GAM1C += -0.0140 * x;
1561
+ SINPI += -0.0212 * x;
1562
+ }
1563
+ {
1564
+ let x = 1;
1565
+ let y = 0;
1566
+ let c, si, nextX;
1567
+ c = coArray[37];
1568
+ si = siArray[37];
1569
+ nextX = x * c - y * si;
1570
+ y = y * c + x * si;
1571
+ x = nextX;
1572
+ c = coArray[19];
1573
+ si = siArray[19];
1574
+ nextX = x * c - y * si;
1575
+ y = y * c + x * si;
1576
+ x = nextX;
1577
+ DLAM += -0.3440 * y;
1578
+ DS += -0.5700 * y;
1579
+ GAM1C += -0.0250 * x;
1580
+ SINPI += 0.0036 * x;
1581
+ }
1582
+ {
1583
+ let x = 1;
1584
+ let y = 0;
1585
+ let c, si, nextX;
1586
+ c = coArray[28];
1587
+ si = siArray[28];
1588
+ nextX = x * c - y * si;
1589
+ y = y * c + x * si;
1590
+ x = nextX;
1591
+ c = coArray[34];
1592
+ si = siArray[34];
1593
+ nextX = x * c - y * si;
1594
+ y = y * c + x * si;
1595
+ x = nextX;
1596
+ c = coArray[35];
1597
+ si = siArray[35];
1598
+ nextX = x * c - y * si;
1599
+ y = y * c + x * si;
1600
+ x = nextX;
1601
+ DLAM += -0.9920 * y;
1602
+ DS += -0.0200 * y;
1603
+ GAM1C += 0.0000 * x;
1604
+ SINPI += 0.0000 * x;
1605
+ }
1606
+ {
1607
+ let x = 1;
1608
+ let y = 0;
1609
+ let c, si, nextX;
1610
+ c = coArray[28];
1611
+ si = siArray[28];
1612
+ nextX = x * c - y * si;
1613
+ y = y * c + x * si;
1614
+ x = nextX;
1615
+ c = coArray[34];
1616
+ si = siArray[34];
1617
+ nextX = x * c - y * si;
1618
+ y = y * c + x * si;
1619
+ x = nextX;
1620
+ DLAM += -45.0990 * y;
1621
+ DS += -0.0200 * y;
1622
+ GAM1C += 0.0000 * x;
1623
+ SINPI += -0.0010 * x;
1624
+ }
1625
+ {
1626
+ let x = 1;
1627
+ let y = 0;
1628
+ let c, si, nextX;
1629
+ c = coArray[28];
1630
+ si = siArray[28];
1631
+ nextX = x * c - y * si;
1632
+ y = y * c + x * si;
1633
+ x = nextX;
1634
+ c = coArray[34];
1635
+ si = siArray[34];
1636
+ nextX = x * c - y * si;
1637
+ y = y * c + x * si;
1638
+ x = nextX;
1639
+ c = coArray[19];
1640
+ si = siArray[19];
1641
+ nextX = x * c - y * si;
1642
+ y = y * c + x * si;
1643
+ x = nextX;
1644
+ DLAM += -0.1790 * y;
1645
+ DS += -9.5200 * y;
1646
+ GAM1C += 0.0000 * x;
1647
+ SINPI += -0.0833 * x;
1648
+ }
1649
+ {
1650
+ let x = 1;
1651
+ let y = 0;
1652
+ let c, si, nextX;
1653
+ c = coArray[28];
1654
+ si = siArray[28];
1655
+ nextX = x * c - y * si;
1656
+ y = y * c + x * si;
1657
+ x = nextX;
1658
+ c = coArray[34];
1659
+ si = siArray[34];
1660
+ nextX = x * c - y * si;
1661
+ y = y * c + x * si;
1662
+ x = nextX;
1663
+ c = coArray[11];
1664
+ si = siArray[11];
1665
+ nextX = x * c - y * si;
1666
+ y = y * c + x * si;
1667
+ x = nextX;
1668
+ DLAM += -0.3010 * y;
1669
+ DS += -0.3300 * y;
1670
+ GAM1C += 0.0000 * x;
1671
+ SINPI += 0.0014 * x;
1672
+ }
1673
+ {
1674
+ let x = 1;
1675
+ let y = 0;
1676
+ let c, si, nextX;
1677
+ c = coArray[28];
1678
+ si = siArray[28];
1679
+ nextX = x * c - y * si;
1680
+ y = y * c + x * si;
1681
+ x = nextX;
1682
+ c = coArray[18];
1683
+ si = siArray[18];
1684
+ nextX = x * c - y * si;
1685
+ y = y * c + x * si;
1686
+ x = nextX;
1687
+ c = coArray[35];
1688
+ si = siArray[35];
1689
+ nextX = x * c - y * si;
1690
+ y = y * c + x * si;
1691
+ x = nextX;
1692
+ DLAM += -6.3820 * y;
1693
+ DS += -3.3700 * y;
1694
+ GAM1C += 0.0000 * x;
1695
+ SINPI += -0.0481 * x;
1696
+ }
1697
+ {
1698
+ let x = 1;
1699
+ let y = 0;
1700
+ let c, si, nextX;
1701
+ c = coArray[28];
1702
+ si = siArray[28];
1703
+ nextX = x * c - y * si;
1704
+ y = y * c + x * si;
1705
+ x = nextX;
1706
+ c = coArray[18];
1707
+ si = siArray[18];
1708
+ nextX = x * c - y * si;
1709
+ y = y * c + x * si;
1710
+ x = nextX;
1711
+ DLAM += 39.5280 * y;
1712
+ DS += 85.1300 * y;
1713
+ GAM1C += 0.0000 * x;
1714
+ SINPI += -0.7136 * x;
1715
+ }
1716
+ {
1717
+ let x = 1;
1718
+ let y = 0;
1719
+ let c, si, nextX;
1720
+ c = coArray[28];
1721
+ si = siArray[28];
1722
+ nextX = x * c - y * si;
1723
+ y = y * c + x * si;
1724
+ x = nextX;
1725
+ c = coArray[18];
1726
+ si = siArray[18];
1727
+ nextX = x * c - y * si;
1728
+ y = y * c + x * si;
1729
+ x = nextX;
1730
+ c = coArray[19];
1731
+ si = siArray[19];
1732
+ nextX = x * c - y * si;
1733
+ y = y * c + x * si;
1734
+ x = nextX;
1735
+ DLAM += 9.3660 * y;
1736
+ DS += 0.7100 * y;
1737
+ GAM1C += 0.0000 * x;
1738
+ SINPI += -0.0112 * x;
1739
+ }
1740
+ {
1741
+ let x = 1;
1742
+ let y = 0;
1743
+ let c, si, nextX;
1744
+ c = coArray[28];
1745
+ si = siArray[28];
1746
+ nextX = x * c - y * si;
1747
+ y = y * c + x * si;
1748
+ x = nextX;
1749
+ c = coArray[18];
1750
+ si = siArray[18];
1751
+ nextX = x * c - y * si;
1752
+ y = y * c + x * si;
1753
+ x = nextX;
1754
+ c = coArray[11];
1755
+ si = siArray[11];
1756
+ nextX = x * c - y * si;
1757
+ y = y * c + x * si;
1758
+ x = nextX;
1759
+ DLAM += 0.2020 * y;
1760
+ DS += 0.0200 * y;
1761
+ GAM1C += 0.0000 * x;
1762
+ SINPI += 0.0000 * x;
1763
+ }
1764
+ {
1765
+ let x = 1;
1766
+ let y = 0;
1767
+ let c, si, nextX;
1768
+ c = coArray[29];
1769
+ si = siArray[29];
1770
+ nextX = x * c - y * si;
1771
+ y = y * c + x * si;
1772
+ x = nextX;
1773
+ c = coArray[34];
1774
+ si = siArray[34];
1775
+ nextX = x * c - y * si;
1776
+ y = y * c + x * si;
1777
+ x = nextX;
1778
+ DLAM += 0.4150 * y;
1779
+ DS += 0.1000 * y;
1780
+ GAM1C += 0.0000 * x;
1781
+ SINPI += 0.0013 * x;
1782
+ }
1783
+ {
1784
+ let x = 1;
1785
+ let y = 0;
1786
+ let c, si, nextX;
1787
+ c = coArray[29];
1788
+ si = siArray[29];
1789
+ nextX = x * c - y * si;
1790
+ y = y * c + x * si;
1791
+ x = nextX;
1792
+ c = coArray[34];
1793
+ si = siArray[34];
1794
+ nextX = x * c - y * si;
1795
+ y = y * c + x * si;
1796
+ x = nextX;
1797
+ c = coArray[19];
1798
+ si = siArray[19];
1799
+ nextX = x * c - y * si;
1800
+ y = y * c + x * si;
1801
+ x = nextX;
1802
+ DLAM += -2.1520 * y;
1803
+ DS += -2.2600 * y;
1804
+ GAM1C += 0.0000 * x;
1805
+ SINPI += -0.0066 * x;
1806
+ }
1807
+ {
1808
+ let x = 1;
1809
+ let y = 0;
1810
+ let c, si, nextX;
1811
+ c = coArray[29];
1812
+ si = siArray[29];
1813
+ nextX = x * c - y * si;
1814
+ y = y * c + x * si;
1815
+ x = nextX;
1816
+ c = coArray[18];
1817
+ si = siArray[18];
1818
+ nextX = x * c - y * si;
1819
+ y = y * c + x * si;
1820
+ x = nextX;
1821
+ c = coArray[35];
1822
+ si = siArray[35];
1823
+ nextX = x * c - y * si;
1824
+ y = y * c + x * si;
1825
+ x = nextX;
1826
+ DLAM += -1.4400 * y;
1827
+ DS += -1.3000 * y;
1828
+ GAM1C += 0.0000 * x;
1829
+ SINPI += 0.0014 * x;
1830
+ }
1831
+ {
1832
+ let x = 1;
1833
+ let y = 0;
1834
+ let c, si, nextX;
1835
+ c = coArray[29];
1836
+ si = siArray[29];
1837
+ nextX = x * c - y * si;
1838
+ y = y * c + x * si;
1839
+ x = nextX;
1840
+ c = coArray[18];
1841
+ si = siArray[18];
1842
+ nextX = x * c - y * si;
1843
+ y = y * c + x * si;
1844
+ x = nextX;
1845
+ c = coArray[19];
1846
+ si = siArray[19];
1847
+ nextX = x * c - y * si;
1848
+ y = y * c + x * si;
1849
+ x = nextX;
1850
+ DLAM += 0.3840 * y;
1851
+ DS += -0.0400 * y;
1852
+ GAM1C += 0.0000 * x;
1853
+ SINPI += 0.0000 * x;
1854
+ }
1855
+ {
1856
+ let x = 1;
1857
+ let y = 0;
1858
+ let c, si, nextX;
1859
+ c = coArray[40];
1860
+ si = siArray[40];
1861
+ nextX = x * c - y * si;
1862
+ y = y * c + x * si;
1863
+ x = nextX;
1864
+ DLAM += 1.9380 * y;
1865
+ DS += 3.6000 * y;
1866
+ GAM1C += -0.1450 * x;
1867
+ SINPI += 0.0401 * x;
1868
+ }
1869
+ {
1870
+ let x = 1;
1871
+ let y = 0;
1872
+ let c, si, nextX;
1873
+ c = coArray[40];
1874
+ si = siArray[40];
1875
+ nextX = x * c - y * si;
1876
+ y = y * c + x * si;
1877
+ x = nextX;
1878
+ c = coArray[19];
1879
+ si = siArray[19];
1880
+ nextX = x * c - y * si;
1881
+ y = y * c + x * si;
1882
+ x = nextX;
1883
+ DLAM += -0.9520 * y;
1884
+ DS += -1.5800 * y;
1885
+ GAM1C += 0.0520 * x;
1886
+ SINPI += -0.0130 * x;
1887
+ }
1888
+ {
1889
+ let x = 1;
1890
+ let y = 0;
1891
+ let c, si, nextX;
1892
+ c = coArray[36];
1893
+ si = siArray[36];
1894
+ nextX = x * c - y * si;
1895
+ y = y * c + x * si;
1896
+ x = nextX;
1897
+ c = coArray[29];
1898
+ si = siArray[29];
1899
+ nextX = x * c - y * si;
1900
+ y = y * c + x * si;
1901
+ x = nextX;
1902
+ DLAM += -0.5510 * y;
1903
+ DS += -0.9400 * y;
1904
+ GAM1C += 0.0320 * x;
1905
+ SINPI += -0.0097 * x;
1906
+ }
1907
+ {
1908
+ let x = 1;
1909
+ let y = 0;
1910
+ let c, si, nextX;
1911
+ c = coArray[36];
1912
+ si = siArray[36];
1913
+ nextX = x * c - y * si;
1914
+ y = y * c + x * si;
1915
+ x = nextX;
1916
+ c = coArray[29];
1917
+ si = siArray[29];
1918
+ nextX = x * c - y * si;
1919
+ y = y * c + x * si;
1920
+ x = nextX;
1921
+ c = coArray[19];
1922
+ si = siArray[19];
1923
+ nextX = x * c - y * si;
1924
+ y = y * c + x * si;
1925
+ x = nextX;
1926
+ DLAM += -0.4820 * y;
1927
+ DS += -0.5700 * y;
1928
+ GAM1C += 0.0050 * x;
1929
+ SINPI += -0.0045 * x;
1930
+ }
1931
+ {
1932
+ let x = 1;
1933
+ let y = 0;
1934
+ let c, si, nextX;
1935
+ c = coArray[36];
1936
+ si = siArray[36];
1937
+ nextX = x * c - y * si;
1938
+ y = y * c + x * si;
1939
+ x = nextX;
1940
+ c = coArray[21];
1941
+ si = siArray[21];
1942
+ nextX = x * c - y * si;
1943
+ y = y * c + x * si;
1944
+ x = nextX;
1945
+ DLAM += 0.6810 * y;
1946
+ DS += 0.9600 * y;
1947
+ GAM1C += -0.0260 * x;
1948
+ SINPI += 0.0115 * x;
1949
+ }
1950
+ {
1951
+ let x = 1;
1952
+ let y = 0;
1953
+ let c, si, nextX;
1954
+ c = coArray[32];
1955
+ si = siArray[32];
1956
+ nextX = x * c - y * si;
1957
+ y = y * c + x * si;
1958
+ x = nextX;
1959
+ c = coArray[33];
1960
+ si = siArray[33];
1961
+ nextX = x * c - y * si;
1962
+ y = y * c + x * si;
1963
+ x = nextX;
1964
+ c = coArray[19];
1965
+ si = siArray[19];
1966
+ nextX = x * c - y * si;
1967
+ y = y * c + x * si;
1968
+ x = nextX;
1969
+ DLAM += -0.2970 * y;
1970
+ DS += -0.2700 * y;
1971
+ GAM1C += 0.0020 * x;
1972
+ SINPI += -0.0009 * x;
1973
+ }
1974
+ {
1975
+ let x = 1;
1976
+ let y = 0;
1977
+ let c, si, nextX;
1978
+ c = coArray[32];
1979
+ si = siArray[32];
1980
+ nextX = x * c - y * si;
1981
+ y = y * c + x * si;
1982
+ x = nextX;
1983
+ c = coArray[17];
1984
+ si = siArray[17];
1985
+ nextX = x * c - y * si;
1986
+ y = y * c + x * si;
1987
+ x = nextX;
1988
+ c = coArray[19];
1989
+ si = siArray[19];
1990
+ nextX = x * c - y * si;
1991
+ y = y * c + x * si;
1992
+ x = nextX;
1993
+ DLAM += 0.2540 * y;
1994
+ DS += 0.2100 * y;
1995
+ GAM1C += -0.0030 * x;
1996
+ SINPI += 0.0000 * x;
1997
+ }
1998
+ {
1999
+ let x = 1;
2000
+ let y = 0;
2001
+ let c, si, nextX;
2002
+ c = coArray[28];
2003
+ si = siArray[28];
2004
+ nextX = x * c - y * si;
2005
+ y = y * c + x * si;
2006
+ x = nextX;
2007
+ c = coArray[37];
2008
+ si = siArray[37];
2009
+ nextX = x * c - y * si;
2010
+ y = y * c + x * si;
2011
+ x = nextX;
2012
+ c = coArray[19];
2013
+ si = siArray[19];
2014
+ nextX = x * c - y * si;
2015
+ y = y * c + x * si;
2016
+ x = nextX;
2017
+ DLAM += -0.2500 * y;
2018
+ DS += -0.2200 * y;
2019
+ GAM1C += 0.0040 * x;
2020
+ SINPI += 0.0014 * x;
2021
+ }
2022
+ {
2023
+ let x = 1;
2024
+ let y = 0;
2025
+ let c, si, nextX;
2026
+ c = coArray[32];
2027
+ si = siArray[32];
2028
+ nextX = x * c - y * si;
2029
+ y = y * c + x * si;
2030
+ x = nextX;
2031
+ c = coArray[34];
2032
+ si = siArray[34];
2033
+ nextX = x * c - y * si;
2034
+ y = y * c + x * si;
2035
+ x = nextX;
2036
+ DLAM += -3.9960 * y;
2037
+ DS += 0.0000 * y;
2038
+ GAM1C += 0.0000 * x;
2039
+ SINPI += 0.0004 * x;
2040
+ }
2041
+ {
2042
+ let x = 1;
2043
+ let y = 0;
2044
+ let c, si, nextX;
2045
+ c = coArray[32];
2046
+ si = siArray[32];
2047
+ nextX = x * c - y * si;
2048
+ y = y * c + x * si;
2049
+ x = nextX;
2050
+ c = coArray[34];
2051
+ si = siArray[34];
2052
+ nextX = x * c - y * si;
2053
+ y = y * c + x * si;
2054
+ x = nextX;
2055
+ c = coArray[19];
2056
+ si = siArray[19];
2057
+ nextX = x * c - y * si;
2058
+ y = y * c + x * si;
2059
+ x = nextX;
2060
+ DLAM += 0.5570 * y;
2061
+ DS += -0.7500 * y;
2062
+ GAM1C += 0.0000 * x;
2063
+ SINPI += -0.0090 * x;
2064
+ }
2065
+ {
2066
+ let x = 1;
2067
+ let y = 0;
2068
+ let c, si, nextX;
2069
+ c = coArray[32];
2070
+ si = siArray[32];
2071
+ nextX = x * c - y * si;
2072
+ y = y * c + x * si;
2073
+ x = nextX;
2074
+ c = coArray[18];
2075
+ si = siArray[18];
2076
+ nextX = x * c - y * si;
2077
+ y = y * c + x * si;
2078
+ x = nextX;
2079
+ c = coArray[35];
2080
+ si = siArray[35];
2081
+ nextX = x * c - y * si;
2082
+ y = y * c + x * si;
2083
+ x = nextX;
2084
+ DLAM += -0.4590 * y;
2085
+ DS += -0.3800 * y;
2086
+ GAM1C += 0.0000 * x;
2087
+ SINPI += -0.0053 * x;
2088
+ }
2089
+ {
2090
+ let x = 1;
2091
+ let y = 0;
2092
+ let c, si, nextX;
2093
+ c = coArray[32];
2094
+ si = siArray[32];
2095
+ nextX = x * c - y * si;
2096
+ y = y * c + x * si;
2097
+ x = nextX;
2098
+ c = coArray[18];
2099
+ si = siArray[18];
2100
+ nextX = x * c - y * si;
2101
+ y = y * c + x * si;
2102
+ x = nextX;
2103
+ DLAM += -1.2980 * y;
2104
+ DS += 0.7400 * y;
2105
+ GAM1C += 0.0000 * x;
2106
+ SINPI += 0.0004 * x;
2107
+ }
2108
+ {
2109
+ let x = 1;
2110
+ let y = 0;
2111
+ let c, si, nextX;
2112
+ c = coArray[32];
2113
+ si = siArray[32];
2114
+ nextX = x * c - y * si;
2115
+ y = y * c + x * si;
2116
+ x = nextX;
2117
+ c = coArray[18];
2118
+ si = siArray[18];
2119
+ nextX = x * c - y * si;
2120
+ y = y * c + x * si;
2121
+ x = nextX;
2122
+ c = coArray[19];
2123
+ si = siArray[19];
2124
+ nextX = x * c - y * si;
2125
+ y = y * c + x * si;
2126
+ x = nextX;
2127
+ DLAM += 0.5380 * y;
2128
+ DS += 1.1400 * y;
2129
+ GAM1C += 0.0000 * x;
2130
+ SINPI += -0.0141 * x;
2131
+ }
2132
+ {
2133
+ let x = 1;
2134
+ let y = 0;
2135
+ let c, si, nextX;
2136
+ c = coArray[28];
2137
+ si = siArray[28];
2138
+ nextX = x * c - y * si;
2139
+ y = y * c + x * si;
2140
+ x = nextX;
2141
+ c = coArray[29];
2142
+ si = siArray[29];
2143
+ nextX = x * c - y * si;
2144
+ y = y * c + x * si;
2145
+ x = nextX;
2146
+ c = coArray[34];
2147
+ si = siArray[34];
2148
+ nextX = x * c - y * si;
2149
+ y = y * c + x * si;
2150
+ x = nextX;
2151
+ DLAM += 0.2630 * y;
2152
+ DS += 0.0200 * y;
2153
+ GAM1C += 0.0000 * x;
2154
+ SINPI += 0.0000 * x;
2155
+ }
2156
+ {
2157
+ let x = 1;
2158
+ let y = 0;
2159
+ let c, si, nextX;
2160
+ c = coArray[28];
2161
+ si = siArray[28];
2162
+ nextX = x * c - y * si;
2163
+ y = y * c + x * si;
2164
+ x = nextX;
2165
+ c = coArray[29];
2166
+ si = siArray[29];
2167
+ nextX = x * c - y * si;
2168
+ y = y * c + x * si;
2169
+ x = nextX;
2170
+ c = coArray[18];
2171
+ si = siArray[18];
2172
+ nextX = x * c - y * si;
2173
+ y = y * c + x * si;
2174
+ x = nextX;
2175
+ c = coArray[19];
2176
+ si = siArray[19];
2177
+ nextX = x * c - y * si;
2178
+ y = y * c + x * si;
2179
+ x = nextX;
2180
+ DLAM += 0.4260 * y;
2181
+ DS += 0.0700 * y;
2182
+ GAM1C += 0.0000 * x;
2183
+ SINPI += -0.0006 * x;
2184
+ }
2185
+ {
2186
+ let x = 1;
2187
+ let y = 0;
2188
+ let c, si, nextX;
2189
+ c = coArray[28];
2190
+ si = siArray[28];
2191
+ nextX = x * c - y * si;
2192
+ y = y * c + x * si;
2193
+ x = nextX;
2194
+ c = coArray[21];
2195
+ si = siArray[21];
2196
+ nextX = x * c - y * si;
2197
+ y = y * c + x * si;
2198
+ x = nextX;
2199
+ c = coArray[34];
2200
+ si = siArray[34];
2201
+ nextX = x * c - y * si;
2202
+ y = y * c + x * si;
2203
+ x = nextX;
2204
+ DLAM += -0.3040 * y;
2205
+ DS += 0.0300 * y;
2206
+ GAM1C += 0.0000 * x;
2207
+ SINPI += 0.0003 * x;
2208
+ }
2209
+ {
2210
+ let x = 1;
2211
+ let y = 0;
2212
+ let c, si, nextX;
2213
+ c = coArray[28];
2214
+ si = siArray[28];
2215
+ nextX = x * c - y * si;
2216
+ y = y * c + x * si;
2217
+ x = nextX;
2218
+ c = coArray[21];
2219
+ si = siArray[21];
2220
+ nextX = x * c - y * si;
2221
+ y = y * c + x * si;
2222
+ x = nextX;
2223
+ c = coArray[18];
2224
+ si = siArray[18];
2225
+ nextX = x * c - y * si;
2226
+ y = y * c + x * si;
2227
+ x = nextX;
2228
+ c = coArray[35];
2229
+ si = siArray[35];
2230
+ nextX = x * c - y * si;
2231
+ y = y * c + x * si;
2232
+ x = nextX;
2233
+ DLAM += -0.3720 * y;
2234
+ DS += -0.1900 * y;
2235
+ GAM1C += 0.0000 * x;
2236
+ SINPI += -0.0027 * x;
2237
+ }
2238
+ {
2239
+ let x = 1;
2240
+ let y = 0;
2241
+ let c, si, nextX;
2242
+ c = coArray[42];
2243
+ si = siArray[42];
2244
+ nextX = x * c - y * si;
2245
+ y = y * c + x * si;
2246
+ x = nextX;
2247
+ DLAM += 0.4180 * y;
2248
+ DS += 0.0000 * y;
2249
+ GAM1C += 0.0000 * x;
2250
+ SINPI += 0.0000 * x;
2251
+ }
2252
+ {
2253
+ let x = 1;
2254
+ let y = 0;
2255
+ let c, si, nextX;
2256
+ c = coArray[36];
2257
+ si = siArray[36];
2258
+ nextX = x * c - y * si;
2259
+ y = y * c + x * si;
2260
+ x = nextX;
2261
+ c = coArray[34];
2262
+ si = siArray[34];
2263
+ nextX = x * c - y * si;
2264
+ y = y * c + x * si;
2265
+ x = nextX;
2266
+ DLAM += -0.3300 * y;
2267
+ DS += -0.0400 * y;
2268
+ GAM1C += 0.0000 * x;
2269
+ SINPI += 0.0000 * x;
2270
+ }
219
2271
  function ADDN(coeffn, p, q, r, s) {
220
- return coeffn * Term(p, q, r, s).y;
2272
+ Term(p, q, r, s);
2273
+ return coeffn * termY;
221
2274
  }
222
2275
  N = 0;
223
2276
  N += ADDN(-526.069, 0, 0, 1, -2);