1 #include "config.h"
2 #include "copyright.h"
3 
4 double  Sin[] =
5 {
6   -1.0000,
7   -0.9997,
8   -0.9988,
9   -0.9973,
10   -0.9952,
11   -0.9925,
12   -0.9892,
13   -0.9853,
14   -0.9808,
15   -0.9757,
16   -0.9701,
17   -0.9638,
18   -0.9570,
19   -0.9496,
20   -0.9416,
21   -0.9330,
22   -0.9239,
23   -0.9143,
24   -0.9040,
25   -0.8933,
26   -0.8820,
27   -0.8701,
28   -0.8578,
29   -0.8449,
30   -0.8315,
31   -0.8176,
32   -0.8033,
33   -0.7884,
34   -0.7731,
35   -0.7573,
36   -0.7410,
37   -0.7243,
38   -0.7072,
39   -0.6896,
40   -0.6716,
41   -0.6533,
42   -0.6345,
43   -0.6153,
44   -0.5958,
45   -0.5759,
46   -0.5557,
47   -0.5351,
48   -0.5142,
49   -0.4930,
50   -0.4715,
51   -0.4497,
52   -0.4277,
53   -0.4054,
54   -0.3828,
55   -0.3600,
56   -0.3370,
57   -0.3138,
58   -0.2904,
59   -0.2668,
60   -0.2431,
61   -0.2192,
62   -0.1952,
63   -0.1711,
64   -0.1469,
65   -0.1225,
66   -0.0982,
67   -0.0737,
68   -0.0492,
69   -0.0247,
70   -0.0001,
71   0.0244,
72   0.0489,
73   0.0734,
74   0.0979,
75   0.1223,
76   0.1466,
77   0.1708,
78   0.1949,
79   0.2190,
80   0.2428,
81   0.2666,
82   0.2901,
83   0.3135,
84   0.3367,
85   0.3598,
86   0.3825,
87   0.4051,
88   0.4274,
89   0.4495,
90   0.4713,
91   0.4928,
92   0.5140,
93   0.5349,
94   0.5554,
95   0.5757,
96   0.5956,
97   0.6151,
98   0.6343,
99   0.6531,
100   0.6714,
101   0.6894,
102   0.7070,
103   0.7241,
104   0.7408,
105   0.7571,
106   0.7729,
107   0.7882,
108   0.8031,
109   0.8175,
110   0.8314,
111   0.8448,
112   0.8576,
113   0.8700,
114   0.8818,
115   0.8931,
116   0.9039,
117   0.9141,
118   0.9238,
119   0.9329,
120   0.9415,
121   0.9495,
122   0.9569,
123   0.9637,
124   0.9700,
125   0.9757,
126   0.9808,
127   0.9852,
128   0.9891,
129   0.9925,
130   0.9952,
131   0.9973,
132   0.9988,
133   0.9997,
134   1.0000,
135   0.9997,
136   0.9988,
137   0.9973,
138   0.9952,
139   0.9925,
140   0.9892,
141   0.9853,
142   0.9808,
143   0.9757,
144   0.9700,
145   0.9638,
146   0.9569,
147   0.9495,
148   0.9415,
149   0.9330,
150   0.9239,
151   0.9142,
152   0.9040,
153   0.8932,
154   0.8819,
155   0.8701,
156   0.8577,
157   0.8449,
158   0.8315,
159   0.8176,
160   0.8032,
161   0.7884,
162   0.7730,
163   0.7572,
164   0.7410,
165   0.7243,
166   0.7071,
167   0.6896,
168   0.6716,
169   0.6532,
170   0.6344,
171   0.6153,
172   0.5957,
173   0.5758,
174   0.5556,
175   0.5350,
176   0.5141,
177   0.4929,
178   0.4714,
179   0.4496,
180   0.4276,
181   0.4053,
182   0.3827,
183   0.3599,
184   0.3369,
185   0.3137,
186   0.2903,
187   0.2667,
188   0.2430,
189   0.2191,
190   0.1951,
191   0.1710,
192   0.1468,
193   0.1225,
194   0.0981,
195   0.0736,
196   0.0491,
197   0.0246,
198   0.0000,
199   -0.0245,
200   -0.0490,
201   -0.0735,
202   -0.0980,
203   -0.1224,
204   -0.1467,
205   -0.1709,
206   -0.1950,
207   -0.2190,
208   -0.2429,
209   -0.2667,
210   -0.2902,
211   -0.3136,
212   -0.3368,
213   -0.3598,
214   -0.3826,
215   -0.4052,
216   -0.4275,
217   -0.4496,
218   -0.4713,
219   -0.4928,
220   -0.5140,
221   -0.5349,
222   -0.5555,
223   -0.5758,
224   -0.5956,
225   -0.6152,
226   -0.6343,
227   -0.6531,
228   -0.6715,
229   -0.6895,
230   -0.7071,
231   -0.7242,
232   -0.7409,
233   -0.7572,
234   -0.7730,
235   -0.7883,
236   -0.8032,
237   -0.8175,
238   -0.8314,
239   -0.8448,
240   -0.8577,
241   -0.8700,
242   -0.8819,
243   -0.8932,
244   -0.9040,
245   -0.9142,
246   -0.9238,
247   -0.9330,
248   -0.9415,
249   -0.9495,
250   -0.9569,
251   -0.9638,
252   -0.9700,
253   -0.9757,
254   -0.9808,
255   -0.9853,
256   -0.9892,
257   -0.9925,
258   -0.9952,
259   -0.9973,
260   -0.9988,
261   -0.9997
262 };
263 double  Cos[] =
264 {
265   0.0000,
266   0.0245,
267   0.0491,
268   0.0736,
269   0.0980,
270   0.1224,
271   0.1467,
272   0.1710,
273   0.1951,
274   0.2191,
275   0.2430,
276   0.2667,
277   0.2903,
278   0.3137,
279   0.3369,
280   0.3599,
281   0.3827,
282   0.4052,
283   0.4275,
284   0.4496,
285   0.4714,
286   0.4929,
287   0.5141,
288   0.5350,
289   0.5556,
290   0.5758,
291   0.5957,
292   0.6152,
293   0.6344,
294   0.6532,
295   0.6715,
296   0.6895,
297   0.7071,
298   0.7242,
299   0.7409,
300   0.7572,
301   0.7730,
302   0.7883,
303   0.8032,
304   0.8176,
305   0.8315,
306   0.8448,
307   0.8577,
308   0.8701,
309   0.8819,
310   0.8932,
311   0.9040,
312   0.9142,
313   0.9239,
314   0.9330,
315   0.9415,
316   0.9495,
317   0.9569,
318   0.9638,
319   0.9700,
320   0.9757,
321   0.9808,
322   0.9853,
323   0.9892,
324   0.9925,
325   0.9952,
326   0.9973,
327   0.9988,
328   0.9997,
329   1.0000,
330   0.9997,
331   0.9988,
332   0.9973,
333   0.9952,
334   0.9925,
335   0.9892,
336   0.9853,
337   0.9808,
338   0.9757,
339   0.9700,
340   0.9638,
341   0.9570,
342   0.9495,
343   0.9416,
344   0.9330,
345   0.9239,
346   0.9142,
347   0.9040,
348   0.8933,
349   0.8819,
350   0.8701,
351   0.8578,
352   0.8449,
353   0.8315,
354   0.8176,
355   0.8032,
356   0.7884,
357   0.7731,
358   0.7573,
359   0.7410,
360   0.7243,
361   0.7072,
362   0.6896,
363   0.6716,
364   0.6532,
365   0.6344,
366   0.6153,
367   0.5958,
368   0.5759,
369   0.5556,
370   0.5351,
371   0.5142,
372   0.4930,
373   0.4715,
374   0.4497,
375   0.4276,
376   0.4053,
377   0.3828,
378   0.3600,
379   0.3370,
380   0.3138,
381   0.2904,
382   0.2668,
383   0.2431,
384   0.2192,
385   0.1952,
386   0.1710,
387   0.1468,
388   0.1225,
389   0.0981,
390   0.0737,
391   0.0492,
392   0.0246,
393   0.0001,
394   -0.0244,
395   -0.0490,
396   -0.0735,
397   -0.0979,
398   -0.1223,
399   -0.1466,
400   -0.1709,
401   -0.1950,
402   -0.2190,
403   -0.2429,
404   -0.2666,
405   -0.2902,
406   -0.3136,
407   -0.3368,
408   -0.3598,
409   -0.3826,
410   -0.4051,
411   -0.4275,
412   -0.4495,
413   -0.4713,
414   -0.4928,
415   -0.5140,
416   -0.5349,
417   -0.5555,
418   -0.5757,
419   -0.5956,
420   -0.6151,
421   -0.6343,
422   -0.6531,
423   -0.6715,
424   -0.6895,
425   -0.7070,
426   -0.7242,
427   -0.7409,
428   -0.7571,
429   -0.7729,
430   -0.7883,
431   -0.8031,
432   -0.8175,
433   -0.8314,
434   -0.8448,
435   -0.8577,
436   -0.8700,
437   -0.8819,
438   -0.8932,
439   -0.9039,
440   -0.9142,
441   -0.9238,
442   -0.9329,
443   -0.9415,
444   -0.9495,
445   -0.9569,
446   -0.9637,
447   -0.9700,
448   -0.9757,
449   -0.9808,
450   -0.9853,
451   -0.9892,
452   -0.9925,
453   -0.9952,
454   -0.9973,
455   -0.9988,
456   -0.9997,
457   -1.0000,
458   -0.9997,
459   -0.9988,
460   -0.9973,
461   -0.9952,
462   -0.9925,
463   -0.9892,
464   -0.9853,
465   -0.9808,
466   -0.9757,
467   -0.9701,
468   -0.9638,
469   -0.9570,
470   -0.9496,
471   -0.9416,
472   -0.9330,
473   -0.9239,
474   -0.9143,
475   -0.9041,
476   -0.8933,
477   -0.8820,
478   -0.8702,
479   -0.8578,
480   -0.8449,
481   -0.8316,
482   -0.8177,
483   -0.8033,
484   -0.7884,
485   -0.7731,
486   -0.7573,
487   -0.7411,
488   -0.7244,
489   -0.7072,
490   -0.6897,
491   -0.6717,
492   -0.6533,
493   -0.6345,
494   -0.6154,
495   -0.5958,
496   -0.5759,
497   -0.5557,
498   -0.5351,
499   -0.5142,
500   -0.4930,
501   -0.4715,
502   -0.4498,
503   -0.4277,
504   -0.4054,
505   -0.3828,
506   -0.3601,
507   -0.3371,
508   -0.3138,
509   -0.2905,
510   -0.2669,
511   -0.2432,
512   -0.2193,
513   -0.1953,
514   -0.1711,
515   -0.1469,
516   -0.1226,
517   -0.0982,
518   -0.0737,
519   -0.0493,
520   -0.0247
521 };
522