shithub: leaf

ref: 978a64fc4e52a85ef45f824d9d36e390c0a3a8e2
dir: /docs/leaf/trigtbl_8h_source.html/

View raw version
<!-- HTML header for doxygen 1.8.18-->
<!DOCTYPE html
    PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "https://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
    <meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8" />
    <meta http-equiv="X-UA-Compatible" content="IE=9" />
    <meta name="generator" content="Doxygen 1.8.16" />
    <meta name="viewport" content="width=device-width, initial-scale=1" />
    <title>LEAF: LEAF/Externals/trigtbl.h Source File</title>
    <link href="tabs.css" rel="stylesheet" type="text/css" />
    <script type="text/javascript" src="jquery.js"></script>
    <script type="text/javascript" src="dynsections.js"></script>
    <script type="text/javascript" src="../js/iframeResizer.contentWindow.min.js"></script>
    <!-- <script src="/js/template.js"></script> -->
     <link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/searchdata.js"></script>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
  $(document).ready(function() { init_search(); });
/* @license-end */
</script> 
    <link href="doxygen.css" rel="stylesheet" type="text/css" />
    <link href="customdoxygen.css" rel="stylesheet" type="text/css"/>
    <!-- <link rel="stylesheet" href="/css/tachyons.css" type="text/css" /> -->
</head>
<body class="bg-washed-green black-70 ph0 sans-serif" onload="iframeResizePipe()">
    <div>
        <!-- do not remove this div, it is closed by doxygen! -->
        <div id="titlearea">
            <table cellspacing="0" cellpadding="0">
                <tbody>
                    <tr>
                    </tr>
                </tbody>
            </table>
        </div>
        <!-- end header part -->
    </div>
</body>
</html><!-- Generated by Doxygen 1.8.16 -->
<script type="text/javascript">
/* @license magnet:?xt=urn:btih:cf05388f2679ee054f2beb29a391d25f4e673ac3&amp;dn=gpl-2.0.txt GPL-v2 */
var searchBox = new SearchBox("searchBox", "search",false,'Search');
/* @license-end */
</script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="modules.html"><span>Modules</span></a></li>
      <li><a href="annotated.html"><span>Data&#160;Structures</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li><a href="examples.html"><span>Examples</span></a></li>
      <li>
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>Globals</span></a></li>
    </ul>
  </div>
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
</div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>

<div id="nav-path" class="navpath">
  <ul>
<li class="navelem"><a class="el" href="dir_127e6aa213d41105176fe0c3bbb2560c.html">LEAF</a></li><li class="navelem"><a class="el" href="dir_c32436ea5eb8693473f37766c9d9ff95.html">Externals</a></li>  </ul>
</div>
</div><!-- top -->
<div class="header">
  <div class="headertitle">
<div class="title">trigtbl.h</div>  </div>
</div><!--header-->
<div class="contents">
<div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno">    1</span>&#160; </div>
<div class="line"><a name="l00002"></a><span class="lineno">    2</span>&#160;<span class="comment">/*</span></div>
<div class="line"><a name="l00003"></a><span class="lineno">    3</span>&#160;<span class="comment">** Please only distribute this with it&#39;s associated FHT routine.</span></div>
<div class="line"><a name="l00004"></a><span class="lineno">    4</span>&#160;<span class="comment">** This algorithm is apparently patented(!) and the code copyrighted. </span></div>
<div class="line"><a name="l00005"></a><span class="lineno">    5</span>&#160;<span class="comment">** See the comment with the fht routine for more info.</span></div>
<div class="line"><a name="l00006"></a><span class="lineno">    6</span>&#160;<span class="comment">**   -Thanks,</span></div>
<div class="line"><a name="l00007"></a><span class="lineno">    7</span>&#160;<span class="comment">**   Ron Mayer</span></div>
<div class="line"><a name="l00008"></a><span class="lineno">    8</span>&#160;<span class="comment">*/</span></div>
<div class="line"><a name="l00009"></a><span class="lineno">    9</span>&#160; </div>
<div class="line"><a name="l00010"></a><span class="lineno">   10</span>&#160;<span class="preprocessor">#ifdef __cplusplus</span></div>
<div class="line"><a name="l00011"></a><span class="lineno">   11</span>&#160;<span class="keyword">extern</span> <span class="stringliteral">&quot;C&quot;</span> {</div>
<div class="line"><a name="l00012"></a><span class="lineno">   12</span>&#160;<span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00013"></a><span class="lineno">   13</span>&#160; </div>
<div class="line"><a name="l00014"></a><span class="lineno">   14</span>&#160;<span class="preprocessor">#ifdef REAL</span></div>
<div class="line"><a name="l00015"></a><span class="lineno">   15</span>&#160;<span class="preprocessor">#else</span></div>
<div class="line"><a name="l00016"></a><span class="lineno">   16</span>&#160;<span class="preprocessor">#define REAL double</span></div>
<div class="line"><a name="l00017"></a><span class="lineno">   17</span>&#160;<span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00018"></a><span class="lineno">   18</span>&#160; </div>
<div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;<span class="preprocessor">#ifdef GOOD_TRIG</span></div>
<div class="line"><a name="l00020"></a><span class="lineno">   20</span>&#160;<span class="preprocessor">#else</span></div>
<div class="line"><a name="l00021"></a><span class="lineno">   21</span>&#160;<span class="preprocessor">#define FAST_TRIG</span></div>
<div class="line"><a name="l00022"></a><span class="lineno">   22</span>&#160;<span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00023"></a><span class="lineno">   23</span>&#160; </div>
<div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;<span class="preprocessor">#if defined(GOOD_TRIG)</span></div>
<div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;<span class="preprocessor">#define FHT_SWAP(a,b,t) {(t)=(a);(a)=(b);(b)=(t);}</span></div>
<div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;<span class="preprocessor">#define TRIG_VARS                            \</span></div>
<div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;<span class="preprocessor">      int t_lam=0;</span></div>
<div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;<span class="preprocessor">#define TRIG_INIT(k,c,s)                     \</span></div>
<div class="line"><a name="l00029"></a><span class="lineno">   29</span>&#160;<span class="preprocessor">     {                               \</span></div>
<div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;<span class="preprocessor">      int i;                             \</span></div>
<div class="line"><a name="l00031"></a><span class="lineno">   31</span>&#160;<span class="preprocessor">      for (i=2 ; i&lt;=k ; i++)                     \</span></div>
<div class="line"><a name="l00032"></a><span class="lineno">   32</span>&#160;<span class="preprocessor">          {coswrk[i]=costab[i];sinwrk[i]=sintab[i];}         \</span></div>
<div class="line"><a name="l00033"></a><span class="lineno">   33</span>&#160;<span class="preprocessor">      t_lam = 0;                             \</span></div>
<div class="line"><a name="l00034"></a><span class="lineno">   34</span>&#160;<span class="preprocessor">      c = 1;                             \</span></div>
<div class="line"><a name="l00035"></a><span class="lineno">   35</span>&#160;<span class="preprocessor">      s = 0;                             \</span></div>
<div class="line"><a name="l00036"></a><span class="lineno">   36</span>&#160;<span class="preprocessor">     }</span></div>
<div class="line"><a name="l00037"></a><span class="lineno">   37</span>&#160;<span class="preprocessor">#define TRIG_NEXT(k,c,s)                     \</span></div>
<div class="line"><a name="l00038"></a><span class="lineno">   38</span>&#160;<span class="preprocessor">     {                               \</span></div>
<div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160;<span class="preprocessor">     int i,j;                                            \</span></div>
<div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;<span class="preprocessor">         (t_lam)++;                      \</span></div>
<div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160;<span class="preprocessor">         for (i=0 ; !((1&lt;&lt;i)&amp;t_lam) ; i++);          \</span></div>
<div class="line"><a name="l00042"></a><span class="lineno">   42</span>&#160;<span class="preprocessor">         i = k-i;                        \</span></div>
<div class="line"><a name="l00043"></a><span class="lineno">   43</span>&#160;<span class="preprocessor">         s = sinwrk[i];                      \</span></div>
<div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;<span class="preprocessor">         c = coswrk[i];                      \</span></div>
<div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;<span class="preprocessor">         if (i&gt;1)                            \</span></div>
<div class="line"><a name="l00046"></a><span class="lineno">   46</span>&#160;<span class="preprocessor">            {                                \</span></div>
<div class="line"><a name="l00047"></a><span class="lineno">   47</span>&#160;<span class="preprocessor">             for (j=k-i+2 ; (1&lt;&lt;j)&amp;t_lam ; j++);         \</span></div>
<div class="line"><a name="l00048"></a><span class="lineno">   48</span>&#160;<span class="preprocessor">             j         = k - j;                  \</span></div>
<div class="line"><a name="l00049"></a><span class="lineno">   49</span>&#160;<span class="preprocessor">             sinwrk[i] = halsec[i] * (sinwrk[i-1] + sinwrk[j]);  \</span></div>
<div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;<span class="preprocessor">             coswrk[i] = halsec[i] * (coswrk[i-1] + coswrk[j]);  \</span></div>
<div class="line"><a name="l00051"></a><span class="lineno">   51</span>&#160;<span class="preprocessor">            }                                                    \</span></div>
<div class="line"><a name="l00052"></a><span class="lineno">   52</span>&#160;<span class="preprocessor">     }</span></div>
<div class="line"><a name="l00053"></a><span class="lineno">   53</span>&#160;<span class="preprocessor">#define TRIG_RESET(k,c,s)</span></div>
<div class="line"><a name="l00054"></a><span class="lineno">   54</span>&#160;<span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00055"></a><span class="lineno">   55</span>&#160; </div>
<div class="line"><a name="l00056"></a><span class="lineno">   56</span>&#160;<span class="preprocessor">#if defined(FAST_TRIG)</span></div>
<div class="line"><a name="l00057"></a><span class="lineno">   57</span>&#160;<span class="preprocessor">#define TRIG_VARS                    \</span></div>
<div class="line"><a name="l00058"></a><span class="lineno">   58</span>&#160;<span class="preprocessor">      REAL t_c,t_s;</span></div>
<div class="line"><a name="l00059"></a><span class="lineno">   59</span>&#160;<span class="preprocessor">#define TRIG_INIT(k,c,s)                 \</span></div>
<div class="line"><a name="l00060"></a><span class="lineno">   60</span>&#160;<span class="preprocessor">    {                                \</span></div>
<div class="line"><a name="l00061"></a><span class="lineno">   61</span>&#160;<span class="preprocessor">     t_c  = costab[k];                       \</span></div>
<div class="line"><a name="l00062"></a><span class="lineno">   62</span>&#160;<span class="preprocessor">     t_s  = sintab[k];                       \</span></div>
<div class="line"><a name="l00063"></a><span class="lineno">   63</span>&#160;<span class="preprocessor">     c    = 1;                           \</span></div>
<div class="line"><a name="l00064"></a><span class="lineno">   64</span>&#160;<span class="preprocessor">     s    = 0;                           \</span></div>
<div class="line"><a name="l00065"></a><span class="lineno">   65</span>&#160;<span class="preprocessor">    }</span></div>
<div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;<span class="preprocessor">#define TRIG_NEXT(k,c,s)                 \</span></div>
<div class="line"><a name="l00067"></a><span class="lineno">   67</span>&#160;<span class="preprocessor">    {                                                    \</span></div>
<div class="line"><a name="l00068"></a><span class="lineno">   68</span>&#160;<span class="preprocessor">     REAL t = c;                                         \</span></div>
<div class="line"><a name="l00069"></a><span class="lineno">   69</span>&#160;<span class="preprocessor">     c   = t*t_c - s*t_s;                \</span></div>
<div class="line"><a name="l00070"></a><span class="lineno">   70</span>&#160;<span class="preprocessor">     s   = t*t_s + s*t_c;                \</span></div>
<div class="line"><a name="l00071"></a><span class="lineno">   71</span>&#160;<span class="preprocessor">    }</span></div>
<div class="line"><a name="l00072"></a><span class="lineno">   72</span>&#160;<span class="preprocessor">#define TRIG_RESET(k,c,s)</span></div>
<div class="line"><a name="l00073"></a><span class="lineno">   73</span>&#160;<span class="preprocessor">#endif</span></div>
<div class="line"><a name="l00074"></a><span class="lineno">   74</span>&#160; </div>
<div class="line"><a name="l00075"></a><span class="lineno">   75</span>&#160;<span class="keyword">static</span> REAL halsec[20]=</div>
<div class="line"><a name="l00076"></a><span class="lineno">   76</span>&#160;    {</div>
<div class="line"><a name="l00077"></a><span class="lineno">   77</span>&#160;     0,</div>
<div class="line"><a name="l00078"></a><span class="lineno">   78</span>&#160;     0,</div>
<div class="line"><a name="l00079"></a><span class="lineno">   79</span>&#160;     .54119610014619698439972320536638942006107206337801,</div>
<div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;     .50979557910415916894193980398784391368261849190893,</div>
<div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;     .50241928618815570551167011928012092247859337193963,</div>
<div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;     .50060299823519630134550410676638239611758632599591,</div>
<div class="line"><a name="l00083"></a><span class="lineno">   83</span>&#160;     .50015063602065098821477101271097658495974913010340,</div>
<div class="line"><a name="l00084"></a><span class="lineno">   84</span>&#160;     .50003765191554772296778139077905492847503165398345,</div>
<div class="line"><a name="l00085"></a><span class="lineno">   85</span>&#160;     .50000941253588775676512870469186533538523133757983,</div>
<div class="line"><a name="l00086"></a><span class="lineno">   86</span>&#160;     .50000235310628608051401267171204408939326297376426,</div>
<div class="line"><a name="l00087"></a><span class="lineno">   87</span>&#160;     .50000058827484117879868526730916804925780637276181,</div>
<div class="line"><a name="l00088"></a><span class="lineno">   88</span>&#160;     .50000014706860214875463798283871198206179118093251,</div>
<div class="line"><a name="l00089"></a><span class="lineno">   89</span>&#160;     .50000003676714377807315864400643020315103490883972,</div>
<div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;     .50000000919178552207366560348853455333939112569380,</div>
<div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;     .50000000229794635411562887767906868558991922348920,</div>
<div class="line"><a name="l00092"></a><span class="lineno">   92</span>&#160;     .50000000057448658687873302235147272458812263401372</div>
<div class="line"><a name="l00093"></a><span class="lineno">   93</span>&#160;    };</div>
<div class="line"><a name="l00094"></a><span class="lineno">   94</span>&#160;<span class="keyword">static</span> REAL costab[20]=</div>
<div class="line"><a name="l00095"></a><span class="lineno">   95</span>&#160;    {</div>
<div class="line"><a name="l00096"></a><span class="lineno">   96</span>&#160;     .00000000000000000000000000000000000000000000000000,</div>
<div class="line"><a name="l00097"></a><span class="lineno">   97</span>&#160;     .70710678118654752440084436210484903928483593768847,</div>
<div class="line"><a name="l00098"></a><span class="lineno">   98</span>&#160;     .92387953251128675612818318939678828682241662586364,</div>
<div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;     .98078528040323044912618223613423903697393373089333,</div>
<div class="line"><a name="l00100"></a><span class="lineno">  100</span>&#160;     .99518472667219688624483695310947992157547486872985,</div>
<div class="line"><a name="l00101"></a><span class="lineno">  101</span>&#160;     .99879545620517239271477160475910069444320361470461,</div>
<div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;     .99969881869620422011576564966617219685006108125772,</div>
<div class="line"><a name="l00103"></a><span class="lineno">  103</span>&#160;     .99992470183914454092164649119638322435060646880221,</div>
<div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;     .99998117528260114265699043772856771617391725094433,</div>
<div class="line"><a name="l00105"></a><span class="lineno">  105</span>&#160;     .99999529380957617151158012570011989955298763362218,</div>
<div class="line"><a name="l00106"></a><span class="lineno">  106</span>&#160;     .99999882345170190992902571017152601904826792288976,</div>
<div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;     .99999970586288221916022821773876567711626389934930,</div>
<div class="line"><a name="l00108"></a><span class="lineno">  108</span>&#160;     .99999992646571785114473148070738785694820115568892,</div>
<div class="line"><a name="l00109"></a><span class="lineno">  109</span>&#160;     .99999998161642929380834691540290971450507605124278,</div>
<div class="line"><a name="l00110"></a><span class="lineno">  110</span>&#160;     .99999999540410731289097193313960614895889430318945,</div>
<div class="line"><a name="l00111"></a><span class="lineno">  111</span>&#160;     .99999999885102682756267330779455410840053741619428</div>
<div class="line"><a name="l00112"></a><span class="lineno">  112</span>&#160;    };</div>
<div class="line"><a name="l00113"></a><span class="lineno">  113</span>&#160;<span class="keyword">static</span> REAL sintab[20]=</div>
<div class="line"><a name="l00114"></a><span class="lineno">  114</span>&#160;    {</div>
<div class="line"><a name="l00115"></a><span class="lineno">  115</span>&#160;     1.0000000000000000000000000000000000000000000000000,</div>
<div class="line"><a name="l00116"></a><span class="lineno">  116</span>&#160;     .70710678118654752440084436210484903928483593768846,</div>
<div class="line"><a name="l00117"></a><span class="lineno">  117</span>&#160;     .38268343236508977172845998403039886676134456248561,</div>
<div class="line"><a name="l00118"></a><span class="lineno">  118</span>&#160;     .19509032201612826784828486847702224092769161775195,</div>
<div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;     .09801714032956060199419556388864184586113667316749,</div>
<div class="line"><a name="l00120"></a><span class="lineno">  120</span>&#160;     .04906767432741801425495497694268265831474536302574,</div>
<div class="line"><a name="l00121"></a><span class="lineno">  121</span>&#160;     .02454122852291228803173452945928292506546611923944,</div>
<div class="line"><a name="l00122"></a><span class="lineno">  122</span>&#160;     .01227153828571992607940826195100321214037231959176,</div>
<div class="line"><a name="l00123"></a><span class="lineno">  123</span>&#160;     .00613588464915447535964023459037258091705788631738,</div>
<div class="line"><a name="l00124"></a><span class="lineno">  124</span>&#160;     .00306795676296597627014536549091984251894461021344,</div>
<div class="line"><a name="l00125"></a><span class="lineno">  125</span>&#160;     .00153398018628476561230369715026407907995486457522,</div>
<div class="line"><a name="l00126"></a><span class="lineno">  126</span>&#160;     .00076699031874270452693856835794857664314091945205,</div>
<div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;     .00038349518757139558907246168118138126339502603495,</div>
<div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;     .00019174759731070330743990956198900093346887403385,</div>
<div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#160;     .00009587379909597734587051721097647635118706561284,</div>
<div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160;     .00004793689960306688454900399049465887274686668768</div>
<div class="line"><a name="l00131"></a><span class="lineno">  131</span>&#160;    };</div>
<div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;<span class="keyword">static</span> REAL coswrk[20]=</div>
<div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;    {</div>
<div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;     .00000000000000000000000000000000000000000000000000,</div>
<div class="line"><a name="l00135"></a><span class="lineno">  135</span>&#160;     .70710678118654752440084436210484903928483593768847,</div>
<div class="line"><a name="l00136"></a><span class="lineno">  136</span>&#160;     .92387953251128675612818318939678828682241662586364,</div>
<div class="line"><a name="l00137"></a><span class="lineno">  137</span>&#160;     .98078528040323044912618223613423903697393373089333,</div>
<div class="line"><a name="l00138"></a><span class="lineno">  138</span>&#160;     .99518472667219688624483695310947992157547486872985,</div>
<div class="line"><a name="l00139"></a><span class="lineno">  139</span>&#160;     .99879545620517239271477160475910069444320361470461,</div>
<div class="line"><a name="l00140"></a><span class="lineno">  140</span>&#160;     .99969881869620422011576564966617219685006108125772,</div>
<div class="line"><a name="l00141"></a><span class="lineno">  141</span>&#160;     .99992470183914454092164649119638322435060646880221,</div>
<div class="line"><a name="l00142"></a><span class="lineno">  142</span>&#160;     .99998117528260114265699043772856771617391725094433,</div>
<div class="line"><a name="l00143"></a><span class="lineno">  143</span>&#160;     .99999529380957617151158012570011989955298763362218,</div>
<div class="line"><a name="l00144"></a><span class="lineno">  144</span>&#160;     .99999882345170190992902571017152601904826792288976,</div>
<div class="line"><a name="l00145"></a><span class="lineno">  145</span>&#160;     .99999970586288221916022821773876567711626389934930,</div>
<div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;     .99999992646571785114473148070738785694820115568892,</div>
<div class="line"><a name="l00147"></a><span class="lineno">  147</span>&#160;     .99999998161642929380834691540290971450507605124278,</div>
<div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;     .99999999540410731289097193313960614895889430318945,</div>
<div class="line"><a name="l00149"></a><span class="lineno">  149</span>&#160;     .99999999885102682756267330779455410840053741619428</div>
<div class="line"><a name="l00150"></a><span class="lineno">  150</span>&#160;    };</div>
<div class="line"><a name="l00151"></a><span class="lineno">  151</span>&#160;<span class="keyword">static</span> REAL sinwrk[20]=</div>
<div class="line"><a name="l00152"></a><span class="lineno">  152</span>&#160;    {</div>
<div class="line"><a name="l00153"></a><span class="lineno">  153</span>&#160;     1.0000000000000000000000000000000000000000000000000,</div>
<div class="line"><a name="l00154"></a><span class="lineno">  154</span>&#160;     .70710678118654752440084436210484903928483593768846,</div>
<div class="line"><a name="l00155"></a><span class="lineno">  155</span>&#160;     .38268343236508977172845998403039886676134456248561,</div>
<div class="line"><a name="l00156"></a><span class="lineno">  156</span>&#160;     .19509032201612826784828486847702224092769161775195,</div>
<div class="line"><a name="l00157"></a><span class="lineno">  157</span>&#160;     .09801714032956060199419556388864184586113667316749,</div>
<div class="line"><a name="l00158"></a><span class="lineno">  158</span>&#160;     .04906767432741801425495497694268265831474536302574,</div>
<div class="line"><a name="l00159"></a><span class="lineno">  159</span>&#160;     .02454122852291228803173452945928292506546611923944,</div>
<div class="line"><a name="l00160"></a><span class="lineno">  160</span>&#160;     .01227153828571992607940826195100321214037231959176,</div>
<div class="line"><a name="l00161"></a><span class="lineno">  161</span>&#160;     .00613588464915447535964023459037258091705788631738,</div>
<div class="line"><a name="l00162"></a><span class="lineno">  162</span>&#160;     .00306795676296597627014536549091984251894461021344,</div>
<div class="line"><a name="l00163"></a><span class="lineno">  163</span>&#160;     .00153398018628476561230369715026407907995486457522,</div>
<div class="line"><a name="l00164"></a><span class="lineno">  164</span>&#160;     .00076699031874270452693856835794857664314091945205,</div>
<div class="line"><a name="l00165"></a><span class="lineno">  165</span>&#160;     .00038349518757139558907246168118138126339502603495,</div>
<div class="line"><a name="l00166"></a><span class="lineno">  166</span>&#160;     .00019174759731070330743990956198900093346887403385,</div>
<div class="line"><a name="l00167"></a><span class="lineno">  167</span>&#160;     .00009587379909597734587051721097647635118706561284,</div>
<div class="line"><a name="l00168"></a><span class="lineno">  168</span>&#160;     .00004793689960306688454900399049465887274686668768</div>
<div class="line"><a name="l00169"></a><span class="lineno">  169</span>&#160;    };</div>
<div class="line"><a name="l00170"></a><span class="lineno">  170</span>&#160;    </div>
<div class="line"><a name="l00171"></a><span class="lineno">  171</span>&#160;<span class="preprocessor">#ifdef __cplusplus</span></div>
<div class="line"><a name="l00172"></a><span class="lineno">  172</span>&#160;}</div>
<div class="line"><a name="l00173"></a><span class="lineno">  173</span>&#160;<span class="preprocessor">#endif</span></div>
</div><!-- fragment --></div><!-- contents -->
<!-- HTML footer for doxygen 1.8.18-->
<!-- start footer part -->
</body>
</html>