<!DOCTYPE html><html lang="en"><head><meta charset="utf-8"><meta name="viewport" content="width=device-width, initial-scale=1.0"><meta name="generator" content="rustdoc"><meta name="description" content="Source of the Rust file `/Users/erlendbasso/.cargo/registry/src/github.com-1ecc6299db9ec823/libm-0.2.6/src/math/lgamma_r.rs`."><meta name="keywords" content="rust, rustlang, rust-lang"><title>lgamma_r.rs - source</title><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../static.files/SourceSerif4-Regular-1f7d512b176f0f72.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../static.files/FiraSans-Regular-018c141bf0843ffd.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../static.files/FiraSans-Medium-8f9a781e4970d388.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../static.files/SourceCodePro-Regular-562dcc5011b6de7d.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../static.files/SourceSerif4-Bold-124a1ca42af929b6.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../../static.files/SourceCodePro-Semibold-d899c5a5c4aeb14a.ttf.woff2"><link rel="stylesheet" href="../../../static.files/normalize-76eba96aa4d2e634.css"><link rel="stylesheet" href="../../../static.files/rustdoc-6827029ac823cab7.css" id="mainThemeStyle"><link rel="stylesheet" id="themeStyle" href="../../../static.files/light-ebce58d0a40c3431.css"><link rel="stylesheet" disabled href="../../../static.files/dark-f23faae4a2daf9a6.css"><link rel="stylesheet" disabled href="../../../static.files/ayu-8af5e100b21cd173.css"><script id="default-settings" ></script><script src="../../../static.files/storage-d43fa987303ecbbb.js"></script><script defer src="../../../static.files/source-script-5cf2e01a42cc9858.js"></script><script defer src="../../../source-files.js"></script><script defer src="../../../static.files/main-c55e1eb52e1886b4.js"></script><noscript><link rel="stylesheet" href="../../../static.files/noscript-13285aec31fa243e.css"></noscript><link rel="alternate icon" type="image/png" href="../../../static.files/favicon-16x16-8b506e7a72182f1c.png"><link rel="alternate icon" type="image/png" href="../../../static.files/favicon-32x32-422f7d1d52889060.png"><link rel="icon" type="image/svg+xml" href="../../../static.files/favicon-2c020d218678b618.svg"></head><body class="rustdoc source"><!--[if lte IE 11]><div class="warning">This old browser is unsupported and will most likely display funky things.</div><![endif]--><nav class="sidebar"></nav><main><div class="width-limiter"><nav class="sub"><a class="sub-logo-container" href="../../../libm/index.html"><img class="rust-logo" src="../../../static.files/rust-logo-151179464ae7ed46.svg" alt="logo"></a><form class="search-form"><span></span><input class="search-input" name="search" aria-label="Run search in the documentation" autocomplete="off" spellcheck="false" placeholder="Click or press ‘S’ to search, ‘?’ for more options…" type="search"><div id="help-button" title="help" tabindex="-1"><a href="../../../help.html">?</a></div><div id="settings-menu" tabindex="-1"><a href="../../../settings.html" title="settings"><img width="22" height="22" alt="Change settings" src="../../../static.files/wheel-5ec35bf9ca753509.svg"></a></div></form></nav><section id="main-content" class="content"><div class="example-wrap"><pre class="src-line-numbers"><a href="#1" id="1">1</a>
<a href="#2" id="2">2</a>
<a href="#3" id="3">3</a>
<a href="#4" id="4">4</a>
<a href="#5" id="5">5</a>
<a href="#6" id="6">6</a>
<a href="#7" id="7">7</a>
<a href="#8" id="8">8</a>
<a href="#9" id="9">9</a>
<a href="#10" id="10">10</a>
<a href="#11" id="11">11</a>
<a href="#12" id="12">12</a>
<a href="#13" id="13">13</a>
<a href="#14" id="14">14</a>
<a href="#15" id="15">15</a>
<a href="#16" id="16">16</a>
<a href="#17" id="17">17</a>
<a href="#18" id="18">18</a>
<a href="#19" id="19">19</a>
<a href="#20" id="20">20</a>
<a href="#21" id="21">21</a>
<a href="#22" id="22">22</a>
<a href="#23" id="23">23</a>
<a href="#24" id="24">24</a>
<a href="#25" id="25">25</a>
<a href="#26" id="26">26</a>
<a href="#27" id="27">27</a>
<a href="#28" id="28">28</a>
<a href="#29" id="29">29</a>
<a href="#30" id="30">30</a>
<a href="#31" id="31">31</a>
<a href="#32" id="32">32</a>
<a href="#33" id="33">33</a>
<a href="#34" id="34">34</a>
<a href="#35" id="35">35</a>
<a href="#36" id="36">36</a>
<a href="#37" id="37">37</a>
<a href="#38" id="38">38</a>
<a href="#39" id="39">39</a>
<a href="#40" id="40">40</a>
<a href="#41" id="41">41</a>
<a href="#42" id="42">42</a>
<a href="#43" id="43">43</a>
<a href="#44" id="44">44</a>
<a href="#45" id="45">45</a>
<a href="#46" id="46">46</a>
<a href="#47" id="47">47</a>
<a href="#48" id="48">48</a>
<a href="#49" id="49">49</a>
<a href="#50" id="50">50</a>
<a href="#51" id="51">51</a>
<a href="#52" id="52">52</a>
<a href="#53" id="53">53</a>
<a href="#54" id="54">54</a>
<a href="#55" id="55">55</a>
<a href="#56" id="56">56</a>
<a href="#57" id="57">57</a>
<a href="#58" id="58">58</a>
<a href="#59" id="59">59</a>
<a href="#60" id="60">60</a>
<a href="#61" id="61">61</a>
<a href="#62" id="62">62</a>
<a href="#63" id="63">63</a>
<a href="#64" id="64">64</a>
<a href="#65" id="65">65</a>
<a href="#66" id="66">66</a>
<a href="#67" id="67">67</a>
<a href="#68" id="68">68</a>
<a href="#69" id="69">69</a>
<a href="#70" id="70">70</a>
<a href="#71" id="71">71</a>
<a href="#72" id="72">72</a>
<a href="#73" id="73">73</a>
<a href="#74" id="74">74</a>
<a href="#75" id="75">75</a>
<a href="#76" id="76">76</a>
<a href="#77" id="77">77</a>
<a href="#78" id="78">78</a>
<a href="#79" id="79">79</a>
<a href="#80" id="80">80</a>
<a href="#81" id="81">81</a>
<a href="#82" id="82">82</a>
<a href="#83" id="83">83</a>
<a href="#84" id="84">84</a>
<a href="#85" id="85">85</a>
<a href="#86" id="86">86</a>
<a href="#87" id="87">87</a>
<a href="#88" id="88">88</a>
<a href="#89" id="89">89</a>
<a href="#90" id="90">90</a>
<a href="#91" id="91">91</a>
<a href="#92" id="92">92</a>
<a href="#93" id="93">93</a>
<a href="#94" id="94">94</a>
<a href="#95" id="95">95</a>
<a href="#96" id="96">96</a>
<a href="#97" id="97">97</a>
<a href="#98" id="98">98</a>
<a href="#99" id="99">99</a>
<a href="#100" id="100">100</a>
<a href="#101" id="101">101</a>
<a href="#102" id="102">102</a>
<a href="#103" id="103">103</a>
<a href="#104" id="104">104</a>
<a href="#105" id="105">105</a>
<a href="#106" id="106">106</a>
<a href="#107" id="107">107</a>
<a href="#108" id="108">108</a>
<a href="#109" id="109">109</a>
<a href="#110" id="110">110</a>
<a href="#111" id="111">111</a>
<a href="#112" id="112">112</a>
<a href="#113" id="113">113</a>
<a href="#114" id="114">114</a>
<a href="#115" id="115">115</a>
<a href="#116" id="116">116</a>
<a href="#117" id="117">117</a>
<a href="#118" id="118">118</a>
<a href="#119" id="119">119</a>
<a href="#120" id="120">120</a>
<a href="#121" id="121">121</a>
<a href="#122" id="122">122</a>
<a href="#123" id="123">123</a>
<a href="#124" id="124">124</a>
<a href="#125" id="125">125</a>
<a href="#126" id="126">126</a>
<a href="#127" id="127">127</a>
<a href="#128" id="128">128</a>
<a href="#129" id="129">129</a>
<a href="#130" id="130">130</a>
<a href="#131" id="131">131</a>
<a href="#132" id="132">132</a>
<a href="#133" id="133">133</a>
<a href="#134" id="134">134</a>
<a href="#135" id="135">135</a>
<a href="#136" id="136">136</a>
<a href="#137" id="137">137</a>
<a href="#138" id="138">138</a>
<a href="#139" id="139">139</a>
<a href="#140" id="140">140</a>
<a href="#141" id="141">141</a>
<a href="#142" id="142">142</a>
<a href="#143" id="143">143</a>
<a href="#144" id="144">144</a>
<a href="#145" id="145">145</a>
<a href="#146" id="146">146</a>
<a href="#147" id="147">147</a>
<a href="#148" id="148">148</a>
<a href="#149" id="149">149</a>
<a href="#150" id="150">150</a>
<a href="#151" id="151">151</a>
<a href="#152" id="152">152</a>
<a href="#153" id="153">153</a>
<a href="#154" id="154">154</a>
<a href="#155" id="155">155</a>
<a href="#156" id="156">156</a>
<a href="#157" id="157">157</a>
<a href="#158" id="158">158</a>
<a href="#159" id="159">159</a>
<a href="#160" id="160">160</a>
<a href="#161" id="161">161</a>
<a href="#162" id="162">162</a>
<a href="#163" id="163">163</a>
<a href="#164" id="164">164</a>
<a href="#165" id="165">165</a>
<a href="#166" id="166">166</a>
<a href="#167" id="167">167</a>
<a href="#168" id="168">168</a>
<a href="#169" id="169">169</a>
<a href="#170" id="170">170</a>
<a href="#171" id="171">171</a>
<a href="#172" id="172">172</a>
<a href="#173" id="173">173</a>
<a href="#174" id="174">174</a>
<a href="#175" id="175">175</a>
<a href="#176" id="176">176</a>
<a href="#177" id="177">177</a>
<a href="#178" id="178">178</a>
<a href="#179" id="179">179</a>
<a href="#180" id="180">180</a>
<a href="#181" id="181">181</a>
<a href="#182" id="182">182</a>
<a href="#183" id="183">183</a>
<a href="#184" id="184">184</a>
<a href="#185" id="185">185</a>
<a href="#186" id="186">186</a>
<a href="#187" id="187">187</a>
<a href="#188" id="188">188</a>
<a href="#189" id="189">189</a>
<a href="#190" id="190">190</a>
<a href="#191" id="191">191</a>
<a href="#192" id="192">192</a>
<a href="#193" id="193">193</a>
<a href="#194" id="194">194</a>
<a href="#195" id="195">195</a>
<a href="#196" id="196">196</a>
<a href="#197" id="197">197</a>
<a href="#198" id="198">198</a>
<a href="#199" id="199">199</a>
<a href="#200" id="200">200</a>
<a href="#201" id="201">201</a>
<a href="#202" id="202">202</a>
<a href="#203" id="203">203</a>
<a href="#204" id="204">204</a>
<a href="#205" id="205">205</a>
<a href="#206" id="206">206</a>
<a href="#207" id="207">207</a>
<a href="#208" id="208">208</a>
<a href="#209" id="209">209</a>
<a href="#210" id="210">210</a>
<a href="#211" id="211">211</a>
<a href="#212" id="212">212</a>
<a href="#213" id="213">213</a>
<a href="#214" id="214">214</a>
<a href="#215" id="215">215</a>
<a href="#216" id="216">216</a>
<a href="#217" id="217">217</a>
<a href="#218" id="218">218</a>
<a href="#219" id="219">219</a>
<a href="#220" id="220">220</a>
<a href="#221" id="221">221</a>
<a href="#222" id="222">222</a>
<a href="#223" id="223">223</a>
<a href="#224" id="224">224</a>
<a href="#225" id="225">225</a>
<a href="#226" id="226">226</a>
<a href="#227" id="227">227</a>
<a href="#228" id="228">228</a>
<a href="#229" id="229">229</a>
<a href="#230" id="230">230</a>
<a href="#231" id="231">231</a>
<a href="#232" id="232">232</a>
<a href="#233" id="233">233</a>
<a href="#234" id="234">234</a>
<a href="#235" id="235">235</a>
<a href="#236" id="236">236</a>
<a href="#237" id="237">237</a>
<a href="#238" id="238">238</a>
<a href="#239" id="239">239</a>
<a href="#240" id="240">240</a>
<a href="#241" id="241">241</a>
<a href="#242" id="242">242</a>
<a href="#243" id="243">243</a>
<a href="#244" id="244">244</a>
<a href="#245" id="245">245</a>
<a href="#246" id="246">246</a>
<a href="#247" id="247">247</a>
<a href="#248" id="248">248</a>
<a href="#249" id="249">249</a>
<a href="#250" id="250">250</a>
<a href="#251" id="251">251</a>
<a href="#252" id="252">252</a>
<a href="#253" id="253">253</a>
<a href="#254" id="254">254</a>
<a href="#255" id="255">255</a>
<a href="#256" id="256">256</a>
<a href="#257" id="257">257</a>
<a href="#258" id="258">258</a>
<a href="#259" id="259">259</a>
<a href="#260" id="260">260</a>
<a href="#261" id="261">261</a>
<a href="#262" id="262">262</a>
<a href="#263" id="263">263</a>
<a href="#264" id="264">264</a>
<a href="#265" id="265">265</a>
<a href="#266" id="266">266</a>
<a href="#267" id="267">267</a>
<a href="#268" id="268">268</a>
<a href="#269" id="269">269</a>
<a href="#270" id="270">270</a>
<a href="#271" id="271">271</a>
<a href="#272" id="272">272</a>
<a href="#273" id="273">273</a>
<a href="#274" id="274">274</a>
<a href="#275" id="275">275</a>
<a href="#276" id="276">276</a>
<a href="#277" id="277">277</a>
<a href="#278" id="278">278</a>
<a href="#279" id="279">279</a>
<a href="#280" id="280">280</a>
<a href="#281" id="281">281</a>
<a href="#282" id="282">282</a>
<a href="#283" id="283">283</a>
<a href="#284" id="284">284</a>
<a href="#285" id="285">285</a>
<a href="#286" id="286">286</a>
<a href="#287" id="287">287</a>
<a href="#288" id="288">288</a>
<a href="#289" id="289">289</a>
<a href="#290" id="290">290</a>
<a href="#291" id="291">291</a>
<a href="#292" id="292">292</a>
<a href="#293" id="293">293</a>
<a href="#294" id="294">294</a>
<a href="#295" id="295">295</a>
<a href="#296" id="296">296</a>
<a href="#297" id="297">297</a>
<a href="#298" id="298">298</a>
<a href="#299" id="299">299</a>
<a href="#300" id="300">300</a>
<a href="#301" id="301">301</a>
<a href="#302" id="302">302</a>
<a href="#303" id="303">303</a>
<a href="#304" id="304">304</a>
<a href="#305" id="305">305</a>
<a href="#306" id="306">306</a>
<a href="#307" id="307">307</a>
<a href="#308" id="308">308</a>
<a href="#309" id="309">309</a>
<a href="#310" id="310">310</a>
<a href="#311" id="311">311</a>
<a href="#312" id="312">312</a>
<a href="#313" id="313">313</a>
<a href="#314" id="314">314</a>
<a href="#315" id="315">315</a>
<a href="#316" id="316">316</a>
<a href="#317" id="317">317</a>
<a href="#318" id="318">318</a>
<a href="#319" id="319">319</a>
<a href="#320" id="320">320</a>
</pre><pre class="rust"><code><span class="comment">/* origin: FreeBSD /usr/src/lib/msun/src/e_lgamma_r.c */
/*
* ====================================================
* Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
*
* Developed at SunSoft, a Sun Microsystems, Inc. business.
* Permission to use, copy, modify, and distribute this
* software is freely granted, provided that this notice
* is preserved.
* ====================================================
*
*/
/* lgamma_r(x, signgamp)
* Reentrant version of the logarithm of the Gamma function
* with user provide pointer for the sign of Gamma(x).
*
* Method:
* 1. Argument Reduction for 0 < x <= 8
* Since gamma(1+s)=s*gamma(s), for x in [0,8], we may
* reduce x to a number in [1.5,2.5] by
* lgamma(1+s) = log(s) + lgamma(s)
* for example,
* lgamma(7.3) = log(6.3) + lgamma(6.3)
* = log(6.3*5.3) + lgamma(5.3)
* = log(6.3*5.3*4.3*3.3*2.3) + lgamma(2.3)
* 2. Polynomial approximation of lgamma around its
* minimun ymin=1.461632144968362245 to maintain monotonicity.
* On [ymin-0.23, ymin+0.27] (i.e., [1.23164,1.73163]), use
* Let z = x-ymin;
* lgamma(x) = -1.214862905358496078218 + z^2*poly(z)
* where
* poly(z) is a 14 degree polynomial.
* 2. Rational approximation in the primary interval [2,3]
* We use the following approximation:
* s = x-2.0;
* lgamma(x) = 0.5*s + s*P(s)/Q(s)
* with accuracy
* |P/Q - (lgamma(x)-0.5s)| < 2**-61.71
* Our algorithms are based on the following observation
*
* zeta(2)-1 2 zeta(3)-1 3
* lgamma(2+s) = s*(1-Euler) + --------- * s - --------- * s + ...
* 2 3
*
* where Euler = 0.5771... is the Euler constant, which is very
* close to 0.5.
*
* 3. For x>=8, we have
* lgamma(x)~(x-0.5)log(x)-x+0.5*log(2pi)+1/(12x)-1/(360x**3)+....
* (better formula:
* lgamma(x)~(x-0.5)*(log(x)-1)-.5*(log(2pi)-1) + ...)
* Let z = 1/x, then we approximation
* f(z) = lgamma(x) - (x-0.5)(log(x)-1)
* by
* 3 5 11
* w = w0 + w1*z + w2*z + w3*z + ... + w6*z
* where
* |w - f(z)| < 2**-58.74
*
* 4. For negative x, since (G is gamma function)
* -x*G(-x)*G(x) = PI/sin(PI*x),
* we have
* G(x) = PI/(sin(PI*x)*(-x)*G(-x))
* since G(-x) is positive, sign(G(x)) = sign(sin(PI*x)) for x<0
* Hence, for x<0, signgam = sign(sin(PI*x)) and
* lgamma(x) = log(|Gamma(x)|)
* = log(PI/(|x*sin(PI*x)|)) - lgamma(-x);
* Note: one should avoid compute PI*(-x) directly in the
* computation of sin(PI*(-x)).
*
* 5. Special Cases
* lgamma(2+s) ~ s*(1-Euler) for tiny s
* lgamma(1) = lgamma(2) = 0
* lgamma(x) ~ -log(|x|) for tiny x
* lgamma(0) = lgamma(neg.integer) = inf and raise divide-by-zero
* lgamma(inf) = inf
* lgamma(-inf) = inf (bug for bug compatible with C99!?)
*
*/
</span><span class="kw">use super</span>::{floor, k_cos, k_sin, log};
<span class="kw">const </span>PI: f64 = <span class="number">3.14159265358979311600e+00</span>; <span class="comment">/* 0x400921FB, 0x54442D18 */
</span><span class="kw">const </span>A0: f64 = <span class="number">7.72156649015328655494e-02</span>; <span class="comment">/* 0x3FB3C467, 0xE37DB0C8 */
</span><span class="kw">const </span>A1: f64 = <span class="number">3.22467033424113591611e-01</span>; <span class="comment">/* 0x3FD4A34C, 0xC4A60FAD */
</span><span class="kw">const </span>A2: f64 = <span class="number">6.73523010531292681824e-02</span>; <span class="comment">/* 0x3FB13E00, 0x1A5562A7 */
</span><span class="kw">const </span>A3: f64 = <span class="number">2.05808084325167332806e-02</span>; <span class="comment">/* 0x3F951322, 0xAC92547B */
</span><span class="kw">const </span>A4: f64 = <span class="number">7.38555086081402883957e-03</span>; <span class="comment">/* 0x3F7E404F, 0xB68FEFE8 */
</span><span class="kw">const </span>A5: f64 = <span class="number">2.89051383673415629091e-03</span>; <span class="comment">/* 0x3F67ADD8, 0xCCB7926B */
</span><span class="kw">const </span>A6: f64 = <span class="number">1.19270763183362067845e-03</span>; <span class="comment">/* 0x3F538A94, 0x116F3F5D */
</span><span class="kw">const </span>A7: f64 = <span class="number">5.10069792153511336608e-04</span>; <span class="comment">/* 0x3F40B6C6, 0x89B99C00 */
</span><span class="kw">const </span>A8: f64 = <span class="number">2.20862790713908385557e-04</span>; <span class="comment">/* 0x3F2CF2EC, 0xED10E54D */
</span><span class="kw">const </span>A9: f64 = <span class="number">1.08011567247583939954e-04</span>; <span class="comment">/* 0x3F1C5088, 0x987DFB07 */
</span><span class="kw">const </span>A10: f64 = <span class="number">2.52144565451257326939e-05</span>; <span class="comment">/* 0x3EFA7074, 0x428CFA52 */
</span><span class="kw">const </span>A11: f64 = <span class="number">4.48640949618915160150e-05</span>; <span class="comment">/* 0x3F07858E, 0x90A45837 */
</span><span class="kw">const </span>TC: f64 = <span class="number">1.46163214496836224576e+00</span>; <span class="comment">/* 0x3FF762D8, 0x6356BE3F */
</span><span class="kw">const </span>TF: f64 = -<span class="number">1.21486290535849611461e-01</span>; <span class="comment">/* 0xBFBF19B9, 0xBCC38A42 */
/* tt = -(tail of TF) */
</span><span class="kw">const </span>TT: f64 = -<span class="number">3.63867699703950536541e-18</span>; <span class="comment">/* 0xBC50C7CA, 0xA48A971F */
</span><span class="kw">const </span>T0: f64 = <span class="number">4.83836122723810047042e-01</span>; <span class="comment">/* 0x3FDEF72B, 0xC8EE38A2 */
</span><span class="kw">const </span>T1: f64 = -<span class="number">1.47587722994593911752e-01</span>; <span class="comment">/* 0xBFC2E427, 0x8DC6C509 */
</span><span class="kw">const </span>T2: f64 = <span class="number">6.46249402391333854778e-02</span>; <span class="comment">/* 0x3FB08B42, 0x94D5419B */
</span><span class="kw">const </span>T3: f64 = -<span class="number">3.27885410759859649565e-02</span>; <span class="comment">/* 0xBFA0C9A8, 0xDF35B713 */
</span><span class="kw">const </span>T4: f64 = <span class="number">1.79706750811820387126e-02</span>; <span class="comment">/* 0x3F9266E7, 0x970AF9EC */
</span><span class="kw">const </span>T5: f64 = -<span class="number">1.03142241298341437450e-02</span>; <span class="comment">/* 0xBF851F9F, 0xBA91EC6A */
</span><span class="kw">const </span>T6: f64 = <span class="number">6.10053870246291332635e-03</span>; <span class="comment">/* 0x3F78FCE0, 0xE370E344 */
</span><span class="kw">const </span>T7: f64 = -<span class="number">3.68452016781138256760e-03</span>; <span class="comment">/* 0xBF6E2EFF, 0xB3E914D7 */
</span><span class="kw">const </span>T8: f64 = <span class="number">2.25964780900612472250e-03</span>; <span class="comment">/* 0x3F6282D3, 0x2E15C915 */
</span><span class="kw">const </span>T9: f64 = -<span class="number">1.40346469989232843813e-03</span>; <span class="comment">/* 0xBF56FE8E, 0xBF2D1AF1 */
</span><span class="kw">const </span>T10: f64 = <span class="number">8.81081882437654011382e-04</span>; <span class="comment">/* 0x3F4CDF0C, 0xEF61A8E9 */
</span><span class="kw">const </span>T11: f64 = -<span class="number">5.38595305356740546715e-04</span>; <span class="comment">/* 0xBF41A610, 0x9C73E0EC */
</span><span class="kw">const </span>T12: f64 = <span class="number">3.15632070903625950361e-04</span>; <span class="comment">/* 0x3F34AF6D, 0x6C0EBBF7 */
</span><span class="kw">const </span>T13: f64 = -<span class="number">3.12754168375120860518e-04</span>; <span class="comment">/* 0xBF347F24, 0xECC38C38 */
</span><span class="kw">const </span>T14: f64 = <span class="number">3.35529192635519073543e-04</span>; <span class="comment">/* 0x3F35FD3E, 0xE8C2D3F4 */
</span><span class="kw">const </span>U0: f64 = -<span class="number">7.72156649015328655494e-02</span>; <span class="comment">/* 0xBFB3C467, 0xE37DB0C8 */
</span><span class="kw">const </span>U1: f64 = <span class="number">6.32827064025093366517e-01</span>; <span class="comment">/* 0x3FE4401E, 0x8B005DFF */
</span><span class="kw">const </span>U2: f64 = <span class="number">1.45492250137234768737e+00</span>; <span class="comment">/* 0x3FF7475C, 0xD119BD6F */
</span><span class="kw">const </span>U3: f64 = <span class="number">9.77717527963372745603e-01</span>; <span class="comment">/* 0x3FEF4976, 0x44EA8450 */
</span><span class="kw">const </span>U4: f64 = <span class="number">2.28963728064692451092e-01</span>; <span class="comment">/* 0x3FCD4EAE, 0xF6010924 */
</span><span class="kw">const </span>U5: f64 = <span class="number">1.33810918536787660377e-02</span>; <span class="comment">/* 0x3F8B678B, 0xBF2BAB09 */
</span><span class="kw">const </span>V1: f64 = <span class="number">2.45597793713041134822e+00</span>; <span class="comment">/* 0x4003A5D7, 0xC2BD619C */
</span><span class="kw">const </span>V2: f64 = <span class="number">2.12848976379893395361e+00</span>; <span class="comment">/* 0x40010725, 0xA42B18F5 */
</span><span class="kw">const </span>V3: f64 = <span class="number">7.69285150456672783825e-01</span>; <span class="comment">/* 0x3FE89DFB, 0xE45050AF */
</span><span class="kw">const </span>V4: f64 = <span class="number">1.04222645593369134254e-01</span>; <span class="comment">/* 0x3FBAAE55, 0xD6537C88 */
</span><span class="kw">const </span>V5: f64 = <span class="number">3.21709242282423911810e-03</span>; <span class="comment">/* 0x3F6A5ABB, 0x57D0CF61 */
</span><span class="kw">const </span>S0: f64 = -<span class="number">7.72156649015328655494e-02</span>; <span class="comment">/* 0xBFB3C467, 0xE37DB0C8 */
</span><span class="kw">const </span>S1: f64 = <span class="number">2.14982415960608852501e-01</span>; <span class="comment">/* 0x3FCB848B, 0x36E20878 */
</span><span class="kw">const </span>S2: f64 = <span class="number">3.25778796408930981787e-01</span>; <span class="comment">/* 0x3FD4D98F, 0x4F139F59 */
</span><span class="kw">const </span>S3: f64 = <span class="number">1.46350472652464452805e-01</span>; <span class="comment">/* 0x3FC2BB9C, 0xBEE5F2F7 */
</span><span class="kw">const </span>S4: f64 = <span class="number">2.66422703033638609560e-02</span>; <span class="comment">/* 0x3F9B481C, 0x7E939961 */
</span><span class="kw">const </span>S5: f64 = <span class="number">1.84028451407337715652e-03</span>; <span class="comment">/* 0x3F5E26B6, 0x7368F239 */
</span><span class="kw">const </span>S6: f64 = <span class="number">3.19475326584100867617e-05</span>; <span class="comment">/* 0x3F00BFEC, 0xDD17E945 */
</span><span class="kw">const </span>R1: f64 = <span class="number">1.39200533467621045958e+00</span>; <span class="comment">/* 0x3FF645A7, 0x62C4AB74 */
</span><span class="kw">const </span>R2: f64 = <span class="number">7.21935547567138069525e-01</span>; <span class="comment">/* 0x3FE71A18, 0x93D3DCDC */
</span><span class="kw">const </span>R3: f64 = <span class="number">1.71933865632803078993e-01</span>; <span class="comment">/* 0x3FC601ED, 0xCCFBDF27 */
</span><span class="kw">const </span>R4: f64 = <span class="number">1.86459191715652901344e-02</span>; <span class="comment">/* 0x3F9317EA, 0x742ED475 */
</span><span class="kw">const </span>R5: f64 = <span class="number">7.77942496381893596434e-04</span>; <span class="comment">/* 0x3F497DDA, 0xCA41A95B */
</span><span class="kw">const </span>R6: f64 = <span class="number">7.32668430744625636189e-06</span>; <span class="comment">/* 0x3EDEBAF7, 0xA5B38140 */
</span><span class="kw">const </span>W0: f64 = <span class="number">4.18938533204672725052e-01</span>; <span class="comment">/* 0x3FDACFE3, 0x90C97D69 */
</span><span class="kw">const </span>W1: f64 = <span class="number">8.33333333333329678849e-02</span>; <span class="comment">/* 0x3FB55555, 0x5555553B */
</span><span class="kw">const </span>W2: f64 = -<span class="number">2.77777777728775536470e-03</span>; <span class="comment">/* 0xBF66C16C, 0x16B02E5C */
</span><span class="kw">const </span>W3: f64 = <span class="number">7.93650558643019558500e-04</span>; <span class="comment">/* 0x3F4A019F, 0x98CF38B6 */
</span><span class="kw">const </span>W4: f64 = -<span class="number">5.95187557450339963135e-04</span>; <span class="comment">/* 0xBF4380CB, 0x8C0FE741 */
</span><span class="kw">const </span>W5: f64 = <span class="number">8.36339918996282139126e-04</span>; <span class="comment">/* 0x3F4B67BA, 0x4CDAD5D1 */
</span><span class="kw">const </span>W6: f64 = -<span class="number">1.63092934096575273989e-03</span>; <span class="comment">/* 0xBF5AB89D, 0x0B9E43E4 */
/* sin(PI*x) assuming x > 2^-100, if sin(PI*x)==0 the sign is arbitrary */
</span><span class="kw">fn </span>sin_pi(<span class="kw-2">mut </span>x: f64) -> f64 {
<span class="kw">let </span><span class="kw-2">mut </span>n: i32;
<span class="comment">/* spurious inexact if odd int */
</span>x = <span class="number">2.0 </span>* (x * <span class="number">0.5 </span>- floor(x * <span class="number">0.5</span>)); <span class="comment">/* x mod 2.0 */
</span>n = (x * <span class="number">4.0</span>) <span class="kw">as </span>i32;
n = <span class="macro">div!</span>(n + <span class="number">1</span>, <span class="number">2</span>);
x -= (n <span class="kw">as </span>f64) * <span class="number">0.5</span>;
x <span class="kw-2">*</span>= PI;
<span class="kw">match </span>n {
<span class="number">1 </span>=> k_cos(x, <span class="number">0.0</span>),
<span class="number">2 </span>=> k_sin(-x, <span class="number">0.0</span>, <span class="number">0</span>),
<span class="number">3 </span>=> -k_cos(x, <span class="number">0.0</span>),
<span class="number">0 </span>| <span class="kw">_ </span>=> k_sin(x, <span class="number">0.0</span>, <span class="number">0</span>),
}
}
<span class="attr">#[cfg_attr(all(test, assert_no_panic), no_panic::no_panic)]
</span><span class="kw">pub fn </span>lgamma_r(<span class="kw-2">mut </span>x: f64) -> (f64, i32) {
<span class="kw">let </span>u: u64 = x.to_bits();
<span class="kw">let </span><span class="kw-2">mut </span>t: f64;
<span class="kw">let </span>y: f64;
<span class="kw">let </span><span class="kw-2">mut </span>z: f64;
<span class="kw">let </span>nadj: f64;
<span class="kw">let </span>p: f64;
<span class="kw">let </span>p1: f64;
<span class="kw">let </span>p2: f64;
<span class="kw">let </span>p3: f64;
<span class="kw">let </span>q: f64;
<span class="kw">let </span><span class="kw-2">mut </span>r: f64;
<span class="kw">let </span>w: f64;
<span class="kw">let </span>ix: u32;
<span class="kw">let </span>sign: bool;
<span class="kw">let </span>i: i32;
<span class="kw">let </span><span class="kw-2">mut </span>signgam: i32;
<span class="comment">/* purge off +-inf, NaN, +-0, tiny and negative arguments */
</span>signgam = <span class="number">1</span>;
sign = (u >> <span class="number">63</span>) != <span class="number">0</span>;
ix = ((u >> <span class="number">32</span>) <span class="kw">as </span>u32) & <span class="number">0x7fffffff</span>;
<span class="kw">if </span>ix >= <span class="number">0x7ff00000 </span>{
<span class="kw">return </span>(x * x, signgam);
}
<span class="kw">if </span>ix < (<span class="number">0x3ff </span>- <span class="number">70</span>) << <span class="number">20 </span>{
<span class="comment">/* |x|<2**-70, return -log(|x|) */
</span><span class="kw">if </span>sign {
x = -x;
signgam = -<span class="number">1</span>;
}
<span class="kw">return </span>(-log(x), signgam);
}
<span class="kw">if </span>sign {
x = -x;
t = sin_pi(x);
<span class="kw">if </span>t == <span class="number">0.0 </span>{
<span class="comment">/* -integer */
</span><span class="kw">return </span>(<span class="number">1.0 </span>/ (x - x), signgam);
}
<span class="kw">if </span>t > <span class="number">0.0 </span>{
signgam = -<span class="number">1</span>;
} <span class="kw">else </span>{
t = -t;
}
nadj = log(PI / (t * x));
} <span class="kw">else </span>{
nadj = <span class="number">0.0</span>;
}
<span class="comment">/* purge off 1 and 2 */
</span><span class="kw">if </span>(ix == <span class="number">0x3ff00000 </span>|| ix == <span class="number">0x40000000</span>) && (u & <span class="number">0xffffffff</span>) == <span class="number">0 </span>{
r = <span class="number">0.0</span>;
}
<span class="comment">/* for x < 2.0 */
</span><span class="kw">else if </span>ix < <span class="number">0x40000000 </span>{
<span class="kw">if </span>ix <= <span class="number">0x3feccccc </span>{
<span class="comment">/* lgamma(x) = lgamma(x+1)-log(x) */
</span>r = -log(x);
<span class="kw">if </span>ix >= <span class="number">0x3FE76944 </span>{
y = <span class="number">1.0 </span>- x;
i = <span class="number">0</span>;
} <span class="kw">else if </span>ix >= <span class="number">0x3FCDA661 </span>{
y = x - (TC - <span class="number">1.0</span>);
i = <span class="number">1</span>;
} <span class="kw">else </span>{
y = x;
i = <span class="number">2</span>;
}
} <span class="kw">else </span>{
r = <span class="number">0.0</span>;
<span class="kw">if </span>ix >= <span class="number">0x3FFBB4C3 </span>{
<span class="comment">/* [1.7316,2] */
</span>y = <span class="number">2.0 </span>- x;
i = <span class="number">0</span>;
} <span class="kw">else if </span>ix >= <span class="number">0x3FF3B4C4 </span>{
<span class="comment">/* [1.23,1.73] */
</span>y = x - TC;
i = <span class="number">1</span>;
} <span class="kw">else </span>{
y = x - <span class="number">1.0</span>;
i = <span class="number">2</span>;
}
}
<span class="kw">match </span>i {
<span class="number">0 </span>=> {
z = y * y;
p1 = A0 + z * (A2 + z * (A4 + z * (A6 + z * (A8 + z * A10))));
p2 = z * (A1 + z * (A3 + z * (A5 + z * (A7 + z * (A9 + z * A11)))));
p = y * p1 + p2;
r += p - <span class="number">0.5 </span>* y;
}
<span class="number">1 </span>=> {
z = y * y;
w = z * y;
p1 = T0 + w * (T3 + w * (T6 + w * (T9 + w * T12))); <span class="comment">/* parallel comp */
</span>p2 = T1 + w * (T4 + w * (T7 + w * (T10 + w * T13)));
p3 = T2 + w * (T5 + w * (T8 + w * (T11 + w * T14)));
p = z * p1 - (TT - w * (p2 + y * p3));
r += TF + p;
}
<span class="number">2 </span>=> {
p1 = y * (U0 + y * (U1 + y * (U2 + y * (U3 + y * (U4 + y * U5)))));
p2 = <span class="number">1.0 </span>+ y * (V1 + y * (V2 + y * (V3 + y * (V4 + y * V5))));
r += -<span class="number">0.5 </span>* y + p1 / p2;
}
<span class="attr">#[cfg(debug_assertions)]
</span><span class="kw">_ </span>=> <span class="macro">unreachable!</span>(),
<span class="attr">#[cfg(not(debug_assertions))]
</span><span class="kw">_ </span>=> {}
}
} <span class="kw">else if </span>ix < <span class="number">0x40200000 </span>{
<span class="comment">/* x < 8.0 */
</span>i = x <span class="kw">as </span>i32;
y = x - (i <span class="kw">as </span>f64);
p = y * (S0 + y * (S1 + y * (S2 + y * (S3 + y * (S4 + y * (S5 + y * S6))))));
q = <span class="number">1.0 </span>+ y * (R1 + y * (R2 + y * (R3 + y * (R4 + y * (R5 + y * R6)))));
r = <span class="number">0.5 </span>* y + p / q;
z = <span class="number">1.0</span>; <span class="comment">/* lgamma(1+s) = log(s) + lgamma(s) */
// TODO: In C, this was implemented using switch jumps with fallthrough.
// Does this implementation have performance problems?
</span><span class="kw">if </span>i >= <span class="number">7 </span>{
z <span class="kw-2">*</span>= y + <span class="number">6.0</span>;
}
<span class="kw">if </span>i >= <span class="number">6 </span>{
z <span class="kw-2">*</span>= y + <span class="number">5.0</span>;
}
<span class="kw">if </span>i >= <span class="number">5 </span>{
z <span class="kw-2">*</span>= y + <span class="number">4.0</span>;
}
<span class="kw">if </span>i >= <span class="number">4 </span>{
z <span class="kw-2">*</span>= y + <span class="number">3.0</span>;
}
<span class="kw">if </span>i >= <span class="number">3 </span>{
z <span class="kw-2">*</span>= y + <span class="number">2.0</span>;
r += log(z);
}
} <span class="kw">else if </span>ix < <span class="number">0x43900000 </span>{
<span class="comment">/* 8.0 <= x < 2**58 */
</span>t = log(x);
z = <span class="number">1.0 </span>/ x;
y = z * z;
w = W0 + z * (W1 + y * (W2 + y * (W3 + y * (W4 + y * (W5 + y * W6)))));
r = (x - <span class="number">0.5</span>) * (t - <span class="number">1.0</span>) + w;
} <span class="kw">else </span>{
<span class="comment">/* 2**58 <= x <= inf */
</span>r = x * (log(x) - <span class="number">1.0</span>);
}
<span class="kw">if </span>sign {
r = nadj - r;
}
<span class="kw">return </span>(r, signgam);
}
</code></pre></div>
</section></div></main><div id="rustdoc-vars" data-root-path="../../../" data-static-root-path="../../../static.files/" data-current-crate="libm" data-themes="" data-resource-suffix="" data-rustdoc-version="1.67.1 (d5a82bbd2 2023-02-07)" data-search-js="search-444266647c4dba98.js" data-settings-js="settings-bebeae96e00e4617.js" data-settings-css="settings-af96d9e2fc13e081.css" ></div></body></html>