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