00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020 const unsigned char hex[] = "0123456789ABCDEF";
00021
00022
00023 const unsigned long cpu_fcy[] = {
00024 8000000 * 2,
00025 8030968 * 2,
00026 8061935 * 2,
00027 8092903 * 2,
00028 8123871 * 2,
00029 8154838 * 2,
00030 8185806 * 2,
00031 8216774 * 2,
00032 8247741 * 2,
00033 8278709 * 2,
00034 8309677 * 2,
00035 8340644 * 2,
00036 8371612 * 2,
00037 8402580 * 2,
00038 8433548 * 2,
00039 8464515 * 2,
00040 8495483 * 2,
00041 8526451 * 2,
00042 8557418 * 2,
00043 8588386 * 2,
00044 8619354 * 2,
00045 8650321 * 2,
00046 8681289 * 2,
00047 8712257 * 2,
00048 8743224 * 2,
00049 8774192 * 2,
00050 8805160 * 2,
00051 8836127 * 2,
00052 8867095 * 2,
00053 8898063 * 2,
00054 8929030 * 2,
00055 8959998 * 2,
00056 7040000 * 2,
00057 7070000 * 2,
00058 7100000 * 2,
00059 7130000 * 2,
00060 7160000 * 2,
00061 7190000 * 2,
00062 7220000 * 2,
00063 7250000 * 2,
00064 7280000 * 2,
00065 7310000 * 2,
00066 7340000 * 2,
00067 7370000 * 2,
00068 7400000 * 2,
00069 7430000 * 2,
00070 7460000 * 2,
00071 7490000 * 2,
00072 7520000 * 2,
00073 7550000 * 2,
00074 7580000 * 2,
00075 7610000 * 2,
00076 7640000 * 2,
00077 7670000 * 2,
00078 7700000 * 2,
00079 7730000 * 2,
00080 7760000 * 2,
00081 7790000 * 2,
00082 7820000 * 2,
00083 7850000 * 2,
00084 7880000 * 2,
00085 7910000 * 2,
00086 7940000 * 2,
00087 7970000 * 2,
00088 };
00089
00090
00091
00092 const double tcos[] = {
00093 1.000,
00094 1.000,
00095 0.999,
00096 0.999,
00097 0.998,
00098 0.996,
00099 0.995,
00100 0.993,
00101 0.990,
00102 0.988,
00103 0.985,
00104 0.982,
00105 0.978,
00106 0.974,
00107 0.970,
00108 0.966,
00109 0.961,
00110 0.956,
00111 0.951,
00112 0.946,
00113 0.940,
00114 0.934,
00115 0.927,
00116 0.921,
00117 0.914,
00118 0.906,
00119 0.899,
00120 0.891,
00121 0.883,
00122 0.875,
00123 0.866,
00124 0.857,
00125 0.848,
00126 0.839,
00127 0.829,
00128 0.819,
00129 0.809,
00130 0.799,
00131 0.788,
00132 0.777,
00133 0.766,
00134 0.755,
00135 0.743,
00136 0.731,
00137 0.719,
00138 0.707,
00139 0.695,
00140 0.682,
00141 0.669,
00142 0.656,
00143 0.643,
00144 0.629,
00145 0.616,
00146 0.602,
00147 0.588,
00148 0.574,
00149 0.559,
00150 0.545,
00151 0.530,
00152 0.515,
00153 0.500,
00154 0.485,
00155 0.469,
00156 0.454,
00157 0.438,
00158 0.423,
00159 0.407,
00160 0.391,
00161 0.375,
00162 0.358,
00163 0.342,
00164 0.326,
00165 0.309,
00166 0.292,
00167 0.276,
00168 0.259,
00169 0.242,
00170 0.225,
00171 0.208,
00172 0.191,
00173 0.174,
00174 0.156,
00175 0.139,
00176 0.122,
00177 0.105,
00178 0.087,
00179 0.070,
00180 0.052,
00181 0.035,
00182 0.017,
00183 0.000,
00184 -0.017,
00185 -0.035,
00186 -0.052,
00187 -0.070,
00188 -0.087,
00189 -0.105,
00190 -0.122,
00191 -0.139,
00192 -0.156,
00193 -0.174,
00194 -0.191,
00195 -0.208,
00196 -0.225,
00197 -0.242,
00198 -0.259,
00199 -0.276,
00200 -0.292,
00201 -0.309,
00202 -0.326,
00203 -0.342,
00204 -0.358,
00205 -0.375,
00206 -0.391,
00207 -0.407,
00208 -0.423,
00209 -0.438,
00210 -0.454,
00211 -0.469,
00212 -0.485,
00213 -0.500,
00214 -0.515,
00215 -0.530,
00216 -0.545,
00217 -0.559,
00218 -0.574,
00219 -0.588,
00220 -0.602,
00221 -0.616,
00222 -0.629,
00223 -0.643,
00224 -0.656,
00225 -0.669,
00226 -0.682,
00227 -0.695,
00228 -0.707,
00229 -0.719,
00230 -0.731,
00231 -0.743,
00232 -0.755,
00233 -0.766,
00234 -0.777,
00235 -0.788,
00236 -0.799,
00237 -0.809,
00238 -0.819,
00239 -0.829,
00240 -0.839,
00241 -0.848,
00242 -0.857,
00243 -0.866,
00244 -0.875,
00245 -0.883,
00246 -0.891,
00247 -0.899,
00248 -0.906,
00249 -0.914,
00250 -0.921,
00251 -0.927,
00252 -0.934,
00253 -0.940,
00254 -0.946,
00255 -0.951,
00256 -0.956,
00257 -0.961,
00258 -0.966,
00259 -0.970,
00260 -0.974,
00261 -0.978,
00262 -0.982,
00263 -0.985,
00264 -0.988,
00265 -0.990,
00266 -0.993,
00267 -0.995,
00268 -0.996,
00269 -0.998,
00270 -0.999,
00271 -0.999,
00272 -1.000,
00273 -1.000,
00274 -1.000,
00275 -0.999,
00276 -0.999,
00277 -0.998,
00278 -0.996,
00279 -0.995,
00280 -0.993,
00281 -0.990,
00282 -0.988,
00283 -0.985,
00284 -0.982,
00285 -0.978,
00286 -0.974,
00287 -0.970,
00288 -0.966,
00289 -0.961,
00290 -0.956,
00291 -0.951,
00292 -0.946,
00293 -0.940,
00294 -0.934,
00295 -0.927,
00296 -0.921,
00297 -0.914,
00298 -0.906,
00299 -0.899,
00300 -0.891,
00301 -0.883,
00302 -0.875,
00303 -0.866,
00304 -0.857,
00305 -0.848,
00306 -0.839,
00307 -0.829,
00308 -0.819,
00309 -0.809,
00310 -0.799,
00311 -0.788,
00312 -0.777,
00313 -0.766,
00314 -0.755,
00315 -0.743,
00316 -0.731,
00317 -0.719,
00318 -0.707,
00319 -0.695,
00320 -0.682,
00321 -0.669,
00322 -0.656,
00323 -0.643,
00324 -0.629,
00325 -0.616,
00326 -0.602,
00327 -0.588,
00328 -0.574,
00329 -0.559,
00330 -0.545,
00331 -0.530,
00332 -0.515,
00333 -0.500,
00334 -0.485,
00335 -0.469,
00336 -0.454,
00337 -0.438,
00338 -0.423,
00339 -0.407,
00340 -0.391,
00341 -0.375,
00342 -0.358,
00343 -0.342,
00344 -0.326,
00345 -0.309,
00346 -0.292,
00347 -0.276,
00348 -0.259,
00349 -0.242,
00350 -0.225,
00351 -0.208,
00352 -0.191,
00353 -0.174,
00354 -0.156,
00355 -0.139,
00356 -0.122,
00357 -0.105,
00358 -0.087,
00359 -0.070,
00360 -0.052,
00361 -0.035,
00362 -0.017,
00363 -0.000,
00364 0.017,
00365 0.035,
00366 0.052,
00367 0.070,
00368 0.087,
00369 0.105,
00370 0.122,
00371 0.139,
00372 0.156,
00373 0.174,
00374 0.191,
00375 0.208,
00376 0.225,
00377 0.242,
00378 0.259,
00379 0.276,
00380 0.292,
00381 0.309,
00382 0.326,
00383 0.342,
00384 0.358,
00385 0.375,
00386 0.391,
00387 0.407,
00388 0.423,
00389 0.438,
00390 0.454,
00391 0.469,
00392 0.485,
00393 0.500,
00394 0.515,
00395 0.530,
00396 0.545,
00397 0.559,
00398 0.574,
00399 0.588,
00400 0.602,
00401 0.616,
00402 0.629,
00403 0.643,
00404 0.656,
00405 0.669,
00406 0.682,
00407 0.695,
00408 0.707,
00409 0.719,
00410 0.731,
00411 0.743,
00412 0.755,
00413 0.766,
00414 0.777,
00415 0.788,
00416 0.799,
00417 0.809,
00418 0.819,
00419 0.829,
00420 0.839,
00421 0.848,
00422 0.857,
00423 0.866,
00424 0.875,
00425 0.883,
00426 0.891,
00427 0.899,
00428 0.906,
00429 0.914,
00430 0.921,
00431 0.927,
00432 0.934,
00433 0.940,
00434 0.946,
00435 0.951,
00436 0.956,
00437 0.961,
00438 0.966,
00439 0.970,
00440 0.974,
00441 0.978,
00442 0.982,
00443 0.985,
00444 0.988,
00445 0.990,
00446 0.993,
00447 0.995,
00448 0.996,
00449 0.998,
00450 0.999,
00451 0.999,
00452 1.000,
00453 1.000,
00454 };
00455
00456
00457
00458 const double tsin[] = {
00459 0.000,
00460 0.017,
00461 0.035,
00462 0.052,
00463 0.070,
00464 0.087,
00465 0.105,
00466 0.122,
00467 0.139,
00468 0.156,
00469 0.174,
00470 0.191,
00471 0.208,
00472 0.225,
00473 0.242,
00474 0.259,
00475 0.276,
00476 0.292,
00477 0.309,
00478 0.326,
00479 0.342,
00480 0.358,
00481 0.375,
00482 0.391,
00483 0.407,
00484 0.423,
00485 0.438,
00486 0.454,
00487 0.469,
00488 0.485,
00489 0.500,
00490 0.515,
00491 0.530,
00492 0.545,
00493 0.559,
00494 0.574,
00495 0.588,
00496 0.602,
00497 0.616,
00498 0.629,
00499 0.643,
00500 0.656,
00501 0.669,
00502 0.682,
00503 0.695,
00504 0.707,
00505 0.719,
00506 0.731,
00507 0.743,
00508 0.755,
00509 0.766,
00510 0.777,
00511 0.788,
00512 0.799,
00513 0.809,
00514 0.819,
00515 0.829,
00516 0.839,
00517 0.848,
00518 0.857,
00519 0.866,
00520 0.875,
00521 0.883,
00522 0.891,
00523 0.899,
00524 0.906,
00525 0.914,
00526 0.921,
00527 0.927,
00528 0.934,
00529 0.940,
00530 0.946,
00531 0.951,
00532 0.956,
00533 0.961,
00534 0.966,
00535 0.970,
00536 0.974,
00537 0.978,
00538 0.982,
00539 0.985,
00540 0.988,
00541 0.990,
00542 0.993,
00543 0.995,
00544 0.996,
00545 0.998,
00546 0.999,
00547 0.999,
00548 1.000,
00549 1.000,
00550 1.000,
00551 0.999,
00552 0.999,
00553 0.998,
00554 0.996,
00555 0.995,
00556 0.993,
00557 0.990,
00558 0.988,
00559 0.985,
00560 0.982,
00561 0.978,
00562 0.974,
00563 0.970,
00564 0.966,
00565 0.961,
00566 0.956,
00567 0.951,
00568 0.946,
00569 0.940,
00570 0.934,
00571 0.927,
00572 0.921,
00573 0.914,
00574 0.906,
00575 0.899,
00576 0.891,
00577 0.883,
00578 0.875,
00579 0.866,
00580 0.857,
00581 0.848,
00582 0.839,
00583 0.829,
00584 0.819,
00585 0.809,
00586 0.799,
00587 0.788,
00588 0.777,
00589 0.766,
00590 0.755,
00591 0.743,
00592 0.731,
00593 0.719,
00594 0.707,
00595 0.695,
00596 0.682,
00597 0.669,
00598 0.656,
00599 0.643,
00600 0.629,
00601 0.616,
00602 0.602,
00603 0.588,
00604 0.574,
00605 0.559,
00606 0.545,
00607 0.530,
00608 0.515,
00609 0.500,
00610 0.485,
00611 0.469,
00612 0.454,
00613 0.438,
00614 0.423,
00615 0.407,
00616 0.391,
00617 0.375,
00618 0.358,
00619 0.342,
00620 0.326,
00621 0.309,
00622 0.292,
00623 0.276,
00624 0.259,
00625 0.242,
00626 0.225,
00627 0.208,
00628 0.191,
00629 0.174,
00630 0.156,
00631 0.139,
00632 0.122,
00633 0.105,
00634 0.087,
00635 0.070,
00636 0.052,
00637 0.035,
00638 0.017,
00639 0.000,
00640 -0.017,
00641 -0.035,
00642 -0.052,
00643 -0.070,
00644 -0.087,
00645 -0.105,
00646 -0.122,
00647 -0.139,
00648 -0.156,
00649 -0.174,
00650 -0.191,
00651 -0.208,
00652 -0.225,
00653 -0.242,
00654 -0.259,
00655 -0.276,
00656 -0.292,
00657 -0.309,
00658 -0.326,
00659 -0.342,
00660 -0.358,
00661 -0.375,
00662 -0.391,
00663 -0.407,
00664 -0.423,
00665 -0.438,
00666 -0.454,
00667 -0.469,
00668 -0.485,
00669 -0.500,
00670 -0.515,
00671 -0.530,
00672 -0.545,
00673 -0.559,
00674 -0.574,
00675 -0.588,
00676 -0.602,
00677 -0.616,
00678 -0.629,
00679 -0.643,
00680 -0.656,
00681 -0.669,
00682 -0.682,
00683 -0.695,
00684 -0.707,
00685 -0.719,
00686 -0.731,
00687 -0.743,
00688 -0.755,
00689 -0.766,
00690 -0.777,
00691 -0.788,
00692 -0.799,
00693 -0.809,
00694 -0.819,
00695 -0.829,
00696 -0.839,
00697 -0.848,
00698 -0.857,
00699 -0.866,
00700 -0.875,
00701 -0.883,
00702 -0.891,
00703 -0.899,
00704 -0.906,
00705 -0.914,
00706 -0.921,
00707 -0.927,
00708 -0.934,
00709 -0.940,
00710 -0.946,
00711 -0.951,
00712 -0.956,
00713 -0.961,
00714 -0.966,
00715 -0.970,
00716 -0.974,
00717 -0.978,
00718 -0.982,
00719 -0.985,
00720 -0.988,
00721 -0.990,
00722 -0.993,
00723 -0.995,
00724 -0.996,
00725 -0.998,
00726 -0.999,
00727 -0.999,
00728 -1.000,
00729 -1.000,
00730 -1.000,
00731 -0.999,
00732 -0.999,
00733 -0.998,
00734 -0.996,
00735 -0.995,
00736 -0.993,
00737 -0.990,
00738 -0.988,
00739 -0.985,
00740 -0.982,
00741 -0.978,
00742 -0.974,
00743 -0.970,
00744 -0.966,
00745 -0.961,
00746 -0.956,
00747 -0.951,
00748 -0.946,
00749 -0.940,
00750 -0.934,
00751 -0.927,
00752 -0.921,
00753 -0.914,
00754 -0.906,
00755 -0.899,
00756 -0.891,
00757 -0.883,
00758 -0.875,
00759 -0.866,
00760 -0.857,
00761 -0.848,
00762 -0.839,
00763 -0.829,
00764 -0.819,
00765 -0.809,
00766 -0.799,
00767 -0.788,
00768 -0.777,
00769 -0.766,
00770 -0.755,
00771 -0.743,
00772 -0.731,
00773 -0.719,
00774 -0.707,
00775 -0.695,
00776 -0.682,
00777 -0.669,
00778 -0.656,
00779 -0.643,
00780 -0.629,
00781 -0.616,
00782 -0.602,
00783 -0.588,
00784 -0.574,
00785 -0.559,
00786 -0.545,
00787 -0.530,
00788 -0.515,
00789 -0.500,
00790 -0.485,
00791 -0.469,
00792 -0.454,
00793 -0.438,
00794 -0.423,
00795 -0.407,
00796 -0.391,
00797 -0.375,
00798 -0.358,
00799 -0.342,
00800 -0.326,
00801 -0.309,
00802 -0.292,
00803 -0.276,
00804 -0.259,
00805 -0.242,
00806 -0.225,
00807 -0.208,
00808 -0.191,
00809 -0.174,
00810 -0.156,
00811 -0.139,
00812 -0.122,
00813 -0.105,
00814 -0.087,
00815 -0.070,
00816 -0.052,
00817 -0.035,
00818 -0.017,
00819 -0.000,
00820 };