| <!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 `/root/.cargo/registry/src/github.com-1ecc6299db9ec823/rand_distr-0.4.3/src/hypergeometric.rs`."><meta name="keywords" content="rust, rustlang, rust-lang"><title>hypergeometric.rs - source</title><link rel="preload" as="font" type="font/woff2" crossorigin href="../../SourceSerif4-Regular.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../FiraSans-Regular.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../FiraSans-Medium.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../SourceCodePro-Regular.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../SourceSerif4-Bold.ttf.woff2"><link rel="preload" as="font" type="font/woff2" crossorigin href="../../SourceCodePro-Semibold.ttf.woff2"><link rel="stylesheet" href="../../normalize.css"><link rel="stylesheet" href="../../rustdoc.css" id="mainThemeStyle"><link rel="stylesheet" href="../../ayu.css" disabled><link rel="stylesheet" href="../../dark.css" disabled><link rel="stylesheet" href="../../light.css" id="themeStyle"><script id="default-settings" ></script><script src="../../storage.js"></script><script defer src="../../source-script.js"></script><script defer src="../../source-files.js"></script><script defer src="../../main.js"></script><noscript><link rel="stylesheet" href="../../noscript.css"></noscript><link rel="icon" href="https://www.rust-lang.org/favicon.ico"></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"><a class="sidebar-logo" href="../../rand_distr/index.html"><div class="logo-container"> |
| <img src="https://www.rust-lang.org/logos/rust-logo-128x128-blk.png" alt="logo"></div></a></nav><main><div class="width-limiter"><nav class="sub"><a class="sub-logo-container" href="../../rand_distr/index.html"> |
| <img src="https://www.rust-lang.org/logos/rust-logo-128x128-blk.png" alt="logo"></a><form class="search-form"><div class="search-container"><span></span><input class="search-input" name="search" 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="../../wheel.svg"></a></div></div></form></nav><section id="main-content" class="content"><div class="example-wrap"><pre class="src-line-numbers"><span id="1">1</span> |
| <span id="2">2</span> |
| <span id="3">3</span> |
| <span id="4">4</span> |
| <span id="5">5</span> |
| <span id="6">6</span> |
| <span id="7">7</span> |
| <span id="8">8</span> |
| <span id="9">9</span> |
| <span id="10">10</span> |
| <span id="11">11</span> |
| <span id="12">12</span> |
| <span id="13">13</span> |
| <span id="14">14</span> |
| <span id="15">15</span> |
| <span id="16">16</span> |
| <span id="17">17</span> |
| <span id="18">18</span> |
| <span id="19">19</span> |
| <span id="20">20</span> |
| <span id="21">21</span> |
| <span id="22">22</span> |
| <span id="23">23</span> |
| <span id="24">24</span> |
| <span id="25">25</span> |
| <span id="26">26</span> |
| <span id="27">27</span> |
| <span id="28">28</span> |
| <span id="29">29</span> |
| <span id="30">30</span> |
| <span id="31">31</span> |
| <span id="32">32</span> |
| <span id="33">33</span> |
| <span id="34">34</span> |
| <span id="35">35</span> |
| <span id="36">36</span> |
| <span id="37">37</span> |
| <span id="38">38</span> |
| <span id="39">39</span> |
| <span id="40">40</span> |
| <span id="41">41</span> |
| <span id="42">42</span> |
| <span id="43">43</span> |
| <span id="44">44</span> |
| <span id="45">45</span> |
| <span id="46">46</span> |
| <span id="47">47</span> |
| <span id="48">48</span> |
| <span id="49">49</span> |
| <span id="50">50</span> |
| <span id="51">51</span> |
| <span id="52">52</span> |
| <span id="53">53</span> |
| <span id="54">54</span> |
| <span id="55">55</span> |
| <span id="56">56</span> |
| <span id="57">57</span> |
| <span id="58">58</span> |
| <span id="59">59</span> |
| <span id="60">60</span> |
| <span id="61">61</span> |
| <span id="62">62</span> |
| <span id="63">63</span> |
| <span id="64">64</span> |
| <span id="65">65</span> |
| <span id="66">66</span> |
| <span id="67">67</span> |
| <span id="68">68</span> |
| <span id="69">69</span> |
| <span id="70">70</span> |
| <span id="71">71</span> |
| <span id="72">72</span> |
| <span id="73">73</span> |
| <span id="74">74</span> |
| <span id="75">75</span> |
| <span id="76">76</span> |
| <span id="77">77</span> |
| <span id="78">78</span> |
| <span id="79">79</span> |
| <span id="80">80</span> |
| <span id="81">81</span> |
| <span id="82">82</span> |
| <span id="83">83</span> |
| <span id="84">84</span> |
| <span id="85">85</span> |
| <span id="86">86</span> |
| <span id="87">87</span> |
| <span id="88">88</span> |
| <span id="89">89</span> |
| <span id="90">90</span> |
| <span id="91">91</span> |
| <span id="92">92</span> |
| <span id="93">93</span> |
| <span id="94">94</span> |
| <span id="95">95</span> |
| <span id="96">96</span> |
| <span id="97">97</span> |
| <span id="98">98</span> |
| <span id="99">99</span> |
| <span id="100">100</span> |
| <span id="101">101</span> |
| <span id="102">102</span> |
| <span id="103">103</span> |
| <span id="104">104</span> |
| <span id="105">105</span> |
| <span id="106">106</span> |
| <span id="107">107</span> |
| <span id="108">108</span> |
| <span id="109">109</span> |
| <span id="110">110</span> |
| <span id="111">111</span> |
| <span id="112">112</span> |
| <span id="113">113</span> |
| <span id="114">114</span> |
| <span id="115">115</span> |
| <span id="116">116</span> |
| <span id="117">117</span> |
| <span id="118">118</span> |
| <span id="119">119</span> |
| <span id="120">120</span> |
| <span id="121">121</span> |
| <span id="122">122</span> |
| <span id="123">123</span> |
| <span id="124">124</span> |
| <span id="125">125</span> |
| <span id="126">126</span> |
| <span id="127">127</span> |
| <span id="128">128</span> |
| <span id="129">129</span> |
| <span id="130">130</span> |
| <span id="131">131</span> |
| <span id="132">132</span> |
| <span id="133">133</span> |
| <span id="134">134</span> |
| <span id="135">135</span> |
| <span id="136">136</span> |
| <span id="137">137</span> |
| <span id="138">138</span> |
| <span id="139">139</span> |
| <span id="140">140</span> |
| <span id="141">141</span> |
| <span id="142">142</span> |
| <span id="143">143</span> |
| <span id="144">144</span> |
| <span id="145">145</span> |
| <span id="146">146</span> |
| <span id="147">147</span> |
| <span id="148">148</span> |
| <span id="149">149</span> |
| <span id="150">150</span> |
| <span id="151">151</span> |
| <span id="152">152</span> |
| <span id="153">153</span> |
| <span id="154">154</span> |
| <span id="155">155</span> |
| <span id="156">156</span> |
| <span id="157">157</span> |
| <span id="158">158</span> |
| <span id="159">159</span> |
| <span id="160">160</span> |
| <span id="161">161</span> |
| <span id="162">162</span> |
| <span id="163">163</span> |
| <span id="164">164</span> |
| <span id="165">165</span> |
| <span id="166">166</span> |
| <span id="167">167</span> |
| <span id="168">168</span> |
| <span id="169">169</span> |
| <span id="170">170</span> |
| <span id="171">171</span> |
| <span id="172">172</span> |
| <span id="173">173</span> |
| <span id="174">174</span> |
| <span id="175">175</span> |
| <span id="176">176</span> |
| <span id="177">177</span> |
| <span id="178">178</span> |
| <span id="179">179</span> |
| <span id="180">180</span> |
| <span id="181">181</span> |
| <span id="182">182</span> |
| <span id="183">183</span> |
| <span id="184">184</span> |
| <span id="185">185</span> |
| <span id="186">186</span> |
| <span id="187">187</span> |
| <span id="188">188</span> |
| <span id="189">189</span> |
| <span id="190">190</span> |
| <span id="191">191</span> |
| <span id="192">192</span> |
| <span id="193">193</span> |
| <span id="194">194</span> |
| <span id="195">195</span> |
| <span id="196">196</span> |
| <span id="197">197</span> |
| <span id="198">198</span> |
| <span id="199">199</span> |
| <span id="200">200</span> |
| <span id="201">201</span> |
| <span id="202">202</span> |
| <span id="203">203</span> |
| <span id="204">204</span> |
| <span id="205">205</span> |
| <span id="206">206</span> |
| <span id="207">207</span> |
| <span id="208">208</span> |
| <span id="209">209</span> |
| <span id="210">210</span> |
| <span id="211">211</span> |
| <span id="212">212</span> |
| <span id="213">213</span> |
| <span id="214">214</span> |
| <span id="215">215</span> |
| <span id="216">216</span> |
| <span id="217">217</span> |
| <span id="218">218</span> |
| <span id="219">219</span> |
| <span id="220">220</span> |
| <span id="221">221</span> |
| <span id="222">222</span> |
| <span id="223">223</span> |
| <span id="224">224</span> |
| <span id="225">225</span> |
| <span id="226">226</span> |
| <span id="227">227</span> |
| <span id="228">228</span> |
| <span id="229">229</span> |
| <span id="230">230</span> |
| <span id="231">231</span> |
| <span id="232">232</span> |
| <span id="233">233</span> |
| <span id="234">234</span> |
| <span id="235">235</span> |
| <span id="236">236</span> |
| <span id="237">237</span> |
| <span id="238">238</span> |
| <span id="239">239</span> |
| <span id="240">240</span> |
| <span id="241">241</span> |
| <span id="242">242</span> |
| <span id="243">243</span> |
| <span id="244">244</span> |
| <span id="245">245</span> |
| <span id="246">246</span> |
| <span id="247">247</span> |
| <span id="248">248</span> |
| <span id="249">249</span> |
| <span id="250">250</span> |
| <span id="251">251</span> |
| <span id="252">252</span> |
| <span id="253">253</span> |
| <span id="254">254</span> |
| <span id="255">255</span> |
| <span id="256">256</span> |
| <span id="257">257</span> |
| <span id="258">258</span> |
| <span id="259">259</span> |
| <span id="260">260</span> |
| <span id="261">261</span> |
| <span id="262">262</span> |
| <span id="263">263</span> |
| <span id="264">264</span> |
| <span id="265">265</span> |
| <span id="266">266</span> |
| <span id="267">267</span> |
| <span id="268">268</span> |
| <span id="269">269</span> |
| <span id="270">270</span> |
| <span id="271">271</span> |
| <span id="272">272</span> |
| <span id="273">273</span> |
| <span id="274">274</span> |
| <span id="275">275</span> |
| <span id="276">276</span> |
| <span id="277">277</span> |
| <span id="278">278</span> |
| <span id="279">279</span> |
| <span id="280">280</span> |
| <span id="281">281</span> |
| <span id="282">282</span> |
| <span id="283">283</span> |
| <span id="284">284</span> |
| <span id="285">285</span> |
| <span id="286">286</span> |
| <span id="287">287</span> |
| <span id="288">288</span> |
| <span id="289">289</span> |
| <span id="290">290</span> |
| <span id="291">291</span> |
| <span id="292">292</span> |
| <span id="293">293</span> |
| <span id="294">294</span> |
| <span id="295">295</span> |
| <span id="296">296</span> |
| <span id="297">297</span> |
| <span id="298">298</span> |
| <span id="299">299</span> |
| <span id="300">300</span> |
| <span id="301">301</span> |
| <span id="302">302</span> |
| <span id="303">303</span> |
| <span id="304">304</span> |
| <span id="305">305</span> |
| <span id="306">306</span> |
| <span id="307">307</span> |
| <span id="308">308</span> |
| <span id="309">309</span> |
| <span id="310">310</span> |
| <span id="311">311</span> |
| <span id="312">312</span> |
| <span id="313">313</span> |
| <span id="314">314</span> |
| <span id="315">315</span> |
| <span id="316">316</span> |
| <span id="317">317</span> |
| <span id="318">318</span> |
| <span id="319">319</span> |
| <span id="320">320</span> |
| <span id="321">321</span> |
| <span id="322">322</span> |
| <span id="323">323</span> |
| <span id="324">324</span> |
| <span id="325">325</span> |
| <span id="326">326</span> |
| <span id="327">327</span> |
| <span id="328">328</span> |
| <span id="329">329</span> |
| <span id="330">330</span> |
| <span id="331">331</span> |
| <span id="332">332</span> |
| <span id="333">333</span> |
| <span id="334">334</span> |
| <span id="335">335</span> |
| <span id="336">336</span> |
| <span id="337">337</span> |
| <span id="338">338</span> |
| <span id="339">339</span> |
| <span id="340">340</span> |
| <span id="341">341</span> |
| <span id="342">342</span> |
| <span id="343">343</span> |
| <span id="344">344</span> |
| <span id="345">345</span> |
| <span id="346">346</span> |
| <span id="347">347</span> |
| <span id="348">348</span> |
| <span id="349">349</span> |
| <span id="350">350</span> |
| <span id="351">351</span> |
| <span id="352">352</span> |
| <span id="353">353</span> |
| <span id="354">354</span> |
| <span id="355">355</span> |
| <span id="356">356</span> |
| <span id="357">357</span> |
| <span id="358">358</span> |
| <span id="359">359</span> |
| <span id="360">360</span> |
| <span id="361">361</span> |
| <span id="362">362</span> |
| <span id="363">363</span> |
| <span id="364">364</span> |
| <span id="365">365</span> |
| <span id="366">366</span> |
| <span id="367">367</span> |
| <span id="368">368</span> |
| <span id="369">369</span> |
| <span id="370">370</span> |
| <span id="371">371</span> |
| <span id="372">372</span> |
| <span id="373">373</span> |
| <span id="374">374</span> |
| <span id="375">375</span> |
| <span id="376">376</span> |
| <span id="377">377</span> |
| <span id="378">378</span> |
| <span id="379">379</span> |
| <span id="380">380</span> |
| <span id="381">381</span> |
| <span id="382">382</span> |
| <span id="383">383</span> |
| <span id="384">384</span> |
| <span id="385">385</span> |
| <span id="386">386</span> |
| <span id="387">387</span> |
| <span id="388">388</span> |
| <span id="389">389</span> |
| <span id="390">390</span> |
| <span id="391">391</span> |
| <span id="392">392</span> |
| <span id="393">393</span> |
| <span id="394">394</span> |
| <span id="395">395</span> |
| <span id="396">396</span> |
| <span id="397">397</span> |
| <span id="398">398</span> |
| <span id="399">399</span> |
| <span id="400">400</span> |
| <span id="401">401</span> |
| <span id="402">402</span> |
| <span id="403">403</span> |
| <span id="404">404</span> |
| <span id="405">405</span> |
| <span id="406">406</span> |
| <span id="407">407</span> |
| <span id="408">408</span> |
| <span id="409">409</span> |
| <span id="410">410</span> |
| <span id="411">411</span> |
| <span id="412">412</span> |
| <span id="413">413</span> |
| <span id="414">414</span> |
| <span id="415">415</span> |
| <span id="416">416</span> |
| <span id="417">417</span> |
| <span id="418">418</span> |
| <span id="419">419</span> |
| <span id="420">420</span> |
| <span id="421">421</span> |
| <span id="422">422</span> |
| </pre><pre class="rust"><code><span class="doccomment">//! The hypergeometric distribution. |
| |
| </span><span class="kw">use </span><span class="kw">crate</span>::Distribution; |
| <span class="kw">use </span>rand::Rng; |
| <span class="kw">use </span>rand::distributions::uniform::Uniform; |
| <span class="kw">use </span>core::fmt; |
| <span class="attribute">#[allow(unused_imports)] |
| </span><span class="kw">use </span>num_traits::Float; |
| |
| <span class="attribute">#[derive(Clone, Copy, Debug)] |
| #[cfg_attr(feature = <span class="string">"serde1"</span>, derive(serde::Serialize, serde::Deserialize))] |
| </span><span class="kw">enum </span>SamplingMethod { |
| InverseTransform{ initial_p: f64, initial_x: i64 }, |
| RejectionAcceptance{ |
| m: f64, |
| a: f64, |
| lambda_l: f64, |
| lambda_r: f64, |
| x_l: f64, |
| x_r: f64, |
| p1: f64, |
| p2: f64, |
| p3: f64 |
| }, |
| } |
| |
| <span class="doccomment">/// The hypergeometric distribution `Hypergeometric(N, K, n)`. |
| /// |
| /// This is the distribution of successes in samples of size `n` drawn without |
| /// replacement from a population of size `N` containing `K` success states. |
| /// It has the density function: |
| /// `f(k) = binomial(K, k) * binomial(N-K, n-k) / binomial(N, n)`, |
| /// where `binomial(a, b) = a! / (b! * (a - b)!)`. |
| /// |
| /// The [binomial distribution](crate::Binomial) is the analogous distribution |
| /// for sampling with replacement. It is a good approximation when the population |
| /// size is much larger than the sample size. |
| /// |
| /// # Example |
| /// |
| /// ``` |
| /// use rand_distr::{Distribution, Hypergeometric}; |
| /// |
| /// let hypergeo = Hypergeometric::new(60, 24, 7).unwrap(); |
| /// let v = hypergeo.sample(&mut rand::thread_rng()); |
| /// println!("{} is from a hypergeometric distribution", v); |
| /// ``` |
| </span><span class="attribute">#[derive(Copy, Clone, Debug)] |
| #[cfg_attr(feature = <span class="string">"serde1"</span>, derive(serde::Serialize, serde::Deserialize))] |
| </span><span class="kw">pub struct </span>Hypergeometric { |
| n1: u64, |
| n2: u64, |
| k: u64, |
| offset_x: i64, |
| sign_x: i64, |
| sampling_method: SamplingMethod, |
| } |
| |
| <span class="doccomment">/// Error type returned from `Hypergeometric::new`. |
| </span><span class="attribute">#[derive(Clone, Copy, Debug, PartialEq, Eq)] |
| </span><span class="kw">pub enum </span>Error { |
| <span class="doccomment">/// `total_population_size` is too large, causing floating point underflow. |
| </span>PopulationTooLarge, |
| <span class="doccomment">/// `population_with_feature > total_population_size`. |
| </span>ProbabilityTooLarge, |
| <span class="doccomment">/// `sample_size > total_population_size`. |
| </span>SampleSizeTooLarge, |
| } |
| |
| <span class="kw">impl </span>fmt::Display <span class="kw">for </span>Error { |
| <span class="kw">fn </span>fmt(<span class="kw-2">&</span><span class="self">self</span>, f: <span class="kw-2">&mut </span>fmt::Formatter<<span class="lifetime">'_</span>>) -> fmt::Result { |
| f.write_str(<span class="kw">match </span><span class="self">self </span>{ |
| Error::PopulationTooLarge => <span class="string">"total_population_size is too large causing underflow in geometric distribution"</span>, |
| Error::ProbabilityTooLarge => <span class="string">"population_with_feature > total_population_size in geometric distribution"</span>, |
| Error::SampleSizeTooLarge => <span class="string">"sample_size > total_population_size in geometric distribution"</span>, |
| }) |
| } |
| } |
| |
| <span class="attribute">#[cfg(feature = <span class="string">"std"</span>)] |
| #[cfg_attr(doc_cfg, doc(cfg(feature = <span class="string">"std"</span>)))] |
| </span><span class="kw">impl </span>std::error::Error <span class="kw">for </span>Error {} |
| |
| <span class="comment">// evaluate fact(numerator.0)*fact(numerator.1) / fact(denominator.0)*fact(denominator.1) |
| </span><span class="kw">fn </span>fraction_of_products_of_factorials(numerator: (u64, u64), denominator: (u64, u64)) -> f64 { |
| <span class="kw">let </span>min_top = u64::min(numerator.<span class="number">0</span>, numerator.<span class="number">1</span>); |
| <span class="kw">let </span>min_bottom = u64::min(denominator.<span class="number">0</span>, denominator.<span class="number">1</span>); |
| <span class="comment">// the factorial of this will cancel out: |
| </span><span class="kw">let </span>min_all = u64::min(min_top, min_bottom); |
| |
| <span class="kw">let </span>max_top = u64::max(numerator.<span class="number">0</span>, numerator.<span class="number">1</span>); |
| <span class="kw">let </span>max_bottom = u64::max(denominator.<span class="number">0</span>, denominator.<span class="number">1</span>); |
| <span class="kw">let </span>max_all = u64::max(max_top, max_bottom); |
| |
| <span class="kw">let </span><span class="kw-2">mut </span>result = <span class="number">1.0</span>; |
| <span class="kw">for </span>i <span class="kw">in </span>(min_all + <span class="number">1</span>)..=max_all { |
| <span class="kw">if </span>i <= min_top { |
| result <span class="kw-2">*</span>= i <span class="kw">as </span>f64; |
| } |
| |
| <span class="kw">if </span>i <= min_bottom { |
| result /= i <span class="kw">as </span>f64; |
| } |
| |
| <span class="kw">if </span>i <= max_top { |
| result <span class="kw-2">*</span>= i <span class="kw">as </span>f64; |
| } |
| |
| <span class="kw">if </span>i <= max_bottom { |
| result /= i <span class="kw">as </span>f64; |
| } |
| } |
| |
| result |
| } |
| |
| <span class="kw">fn </span>ln_of_factorial(v: f64) -> f64 { |
| <span class="comment">// the paper calls for ln(v!), but also wants to pass in fractions, |
| // so we need to use Stirling's approximation to fill in the gaps: |
| </span>v * v.ln() - v |
| } |
| |
| <span class="kw">impl </span>Hypergeometric { |
| <span class="doccomment">/// Constructs a new `Hypergeometric` with the shape parameters |
| /// `N = total_population_size`, |
| /// `K = population_with_feature`, |
| /// `n = sample_size`. |
| </span><span class="attribute">#[allow(clippy::many_single_char_names)] </span><span class="comment">// Same names as in the reference. |
| </span><span class="kw">pub fn </span>new(total_population_size: u64, population_with_feature: u64, sample_size: u64) -> <span class="prelude-ty">Result</span><<span class="self">Self</span>, Error> { |
| <span class="kw">if </span>population_with_feature > total_population_size { |
| <span class="kw">return </span><span class="prelude-val">Err</span>(Error::ProbabilityTooLarge); |
| } |
| |
| <span class="kw">if </span>sample_size > total_population_size { |
| <span class="kw">return </span><span class="prelude-val">Err</span>(Error::SampleSizeTooLarge); |
| } |
| |
| <span class="comment">// set-up constants as function of original parameters |
| </span><span class="kw">let </span>n = total_population_size; |
| <span class="kw">let </span>(<span class="kw-2">mut </span>sign_x, <span class="kw-2">mut </span>offset_x) = (<span class="number">1</span>, <span class="number">0</span>); |
| <span class="kw">let </span>(n1, n2) = { |
| <span class="comment">// switch around success and failure states if necessary to ensure n1 <= n2 |
| </span><span class="kw">let </span>population_without_feature = n - population_with_feature; |
| <span class="kw">if </span>population_with_feature > population_without_feature { |
| sign_x = -<span class="number">1</span>; |
| offset_x = sample_size <span class="kw">as </span>i64; |
| (population_without_feature, population_with_feature) |
| } <span class="kw">else </span>{ |
| (population_with_feature, population_without_feature) |
| } |
| }; |
| <span class="comment">// when sampling more than half the total population, take the smaller |
| // group as sampled instead (we can then return n1-x instead). |
| // |
| // Note: the boundary condition given in the paper is `sample_size < n / 2`; |
| // we're deviating here, because when n is even, it doesn't matter whether |
| // we switch here or not, but when n is odd `n/2 < n - n/2`, so switching |
| // when `k == n/2`, we'd actually be taking the _larger_ group as sampled. |
| </span><span class="kw">let </span>k = <span class="kw">if </span>sample_size <= n / <span class="number">2 </span>{ |
| sample_size |
| } <span class="kw">else </span>{ |
| offset_x += n1 <span class="kw">as </span>i64 * sign_x; |
| sign_x <span class="kw-2">*</span>= -<span class="number">1</span>; |
| n - sample_size |
| }; |
| |
| <span class="comment">// Algorithm H2PE has bounded runtime only if `M - max(0, k-n2) >= 10`, |
| // where `M` is the mode of the distribution. |
| // Use algorithm HIN for the remaining parameter space. |
| // |
| // Voratas Kachitvichyanukul and Bruce W. Schmeiser. 1985. Computer |
| // generation of hypergeometric random variates. |
| // J. Statist. Comput. Simul. Vol.22 (August 1985), 127-145 |
| // https://www.researchgate.net/publication/233212638 |
| </span><span class="kw">const </span>HIN_THRESHOLD: f64 = <span class="number">10.0</span>; |
| <span class="kw">let </span>m = ((k + <span class="number">1</span>) <span class="kw">as </span>f64 * (n1 + <span class="number">1</span>) <span class="kw">as </span>f64 / (n + <span class="number">2</span>) <span class="kw">as </span>f64).floor(); |
| <span class="kw">let </span>sampling_method = <span class="kw">if </span>m - f64::max(<span class="number">0.0</span>, k <span class="kw">as </span>f64 - n2 <span class="kw">as </span>f64) < HIN_THRESHOLD { |
| <span class="kw">let </span>(initial_p, initial_x) = <span class="kw">if </span>k < n2 { |
| (fraction_of_products_of_factorials((n2, n - k), (n, n2 - k)), <span class="number">0</span>) |
| } <span class="kw">else </span>{ |
| (fraction_of_products_of_factorials((n1, k), (n, k - n2)), (k - n2) <span class="kw">as </span>i64) |
| }; |
| |
| <span class="kw">if </span>initial_p <= <span class="number">0.0 </span>|| !initial_p.is_finite() { |
| <span class="kw">return </span><span class="prelude-val">Err</span>(Error::PopulationTooLarge); |
| } |
| |
| SamplingMethod::InverseTransform { initial_p, initial_x } |
| } <span class="kw">else </span>{ |
| <span class="kw">let </span>a = ln_of_factorial(m) + |
| ln_of_factorial(n1 <span class="kw">as </span>f64 - m) + |
| ln_of_factorial(k <span class="kw">as </span>f64 - m) + |
| ln_of_factorial((n2 - k) <span class="kw">as </span>f64 + m); |
| |
| <span class="kw">let </span>numerator = (n - k) <span class="kw">as </span>f64 * k <span class="kw">as </span>f64 * n1 <span class="kw">as </span>f64 * n2 <span class="kw">as </span>f64; |
| <span class="kw">let </span>denominator = (n - <span class="number">1</span>) <span class="kw">as </span>f64 * n <span class="kw">as </span>f64 * n <span class="kw">as </span>f64; |
| <span class="kw">let </span>d = <span class="number">1.5 </span>* (numerator / denominator).sqrt() + <span class="number">0.5</span>; |
| |
| <span class="kw">let </span>x_l = m - d + <span class="number">0.5</span>; |
| <span class="kw">let </span>x_r = m + d + <span class="number">0.5</span>; |
| |
| <span class="kw">let </span>k_l = f64::exp(a - |
| ln_of_factorial(x_l) - |
| ln_of_factorial(n1 <span class="kw">as </span>f64 - x_l) - |
| ln_of_factorial(k <span class="kw">as </span>f64 - x_l) - |
| ln_of_factorial((n2 - k) <span class="kw">as </span>f64 + x_l)); |
| <span class="kw">let </span>k_r = f64::exp(a - |
| ln_of_factorial(x_r - <span class="number">1.0</span>) - |
| ln_of_factorial(n1 <span class="kw">as </span>f64 - x_r + <span class="number">1.0</span>) - |
| ln_of_factorial(k <span class="kw">as </span>f64 - x_r + <span class="number">1.0</span>) - |
| ln_of_factorial((n2 - k) <span class="kw">as </span>f64 + x_r - <span class="number">1.0</span>)); |
| |
| <span class="kw">let </span>numerator = x_l * ((n2 - k) <span class="kw">as </span>f64 + x_l); |
| <span class="kw">let </span>denominator = (n1 <span class="kw">as </span>f64 - x_l + <span class="number">1.0</span>) * (k <span class="kw">as </span>f64 - x_l + <span class="number">1.0</span>); |
| <span class="kw">let </span>lambda_l = -((numerator / denominator).ln()); |
| |
| <span class="kw">let </span>numerator = (n1 <span class="kw">as </span>f64 - x_r + <span class="number">1.0</span>) * (k <span class="kw">as </span>f64 - x_r + <span class="number">1.0</span>); |
| <span class="kw">let </span>denominator = x_r * ((n2 - k) <span class="kw">as </span>f64 + x_r); |
| <span class="kw">let </span>lambda_r = -((numerator / denominator).ln()); |
| |
| <span class="comment">// the paper literally gives `p2 + kL/lambdaL` where it (probably) |
| // should have been `p2 <- p1 + kL/lambdaL`; another print error?! |
| </span><span class="kw">let </span>p1 = <span class="number">2.0 </span>* d; |
| <span class="kw">let </span>p2 = p1 + k_l / lambda_l; |
| <span class="kw">let </span>p3 = p2 + k_r / lambda_r; |
| |
| SamplingMethod::RejectionAcceptance { |
| m, a, lambda_l, lambda_r, x_l, x_r, p1, p2, p3 |
| } |
| }; |
| |
| <span class="prelude-val">Ok</span>(Hypergeometric { n1, n2, k, offset_x, sign_x, sampling_method }) |
| } |
| } |
| |
| <span class="kw">impl </span>Distribution<u64> <span class="kw">for </span>Hypergeometric { |
| <span class="attribute">#[allow(clippy::many_single_char_names)] </span><span class="comment">// Same names as in the reference. |
| </span><span class="kw">fn </span>sample<R: Rng + <span class="question-mark">?</span>Sized>(<span class="kw-2">&</span><span class="self">self</span>, rng: <span class="kw-2">&mut </span>R) -> u64 { |
| <span class="kw">use </span>SamplingMethod::<span class="kw-2">*</span>; |
| |
| <span class="kw">let </span>Hypergeometric { n1, n2, k, sign_x, offset_x, sampling_method } = <span class="kw-2">*</span><span class="self">self</span>; |
| <span class="kw">let </span>x = <span class="kw">match </span>sampling_method { |
| InverseTransform { initial_p: <span class="kw-2">mut </span>p, initial_x: <span class="kw-2">mut </span>x } => { |
| <span class="kw">let </span><span class="kw-2">mut </span>u = rng.gen::<f64>(); |
| <span class="kw">while </span>u > p && x < k <span class="kw">as </span>i64 { <span class="comment">// the paper erroneously uses `until n < p`, which doesn't make any sense |
| </span>u -= p; |
| p <span class="kw-2">*</span>= ((n1 <span class="kw">as </span>i64 - x <span class="kw">as </span>i64) * (k <span class="kw">as </span>i64 - x <span class="kw">as </span>i64)) <span class="kw">as </span>f64; |
| p /= ((x <span class="kw">as </span>i64 + <span class="number">1</span>) * (n2 <span class="kw">as </span>i64 - k <span class="kw">as </span>i64 + <span class="number">1 </span>+ x <span class="kw">as </span>i64)) <span class="kw">as </span>f64; |
| x += <span class="number">1</span>; |
| } |
| x |
| }, |
| RejectionAcceptance { m, a, lambda_l, lambda_r, x_l, x_r, p1, p2, p3 } => { |
| <span class="kw">let </span>distr_region_select = Uniform::new(<span class="number">0.0</span>, p3); |
| <span class="kw">loop </span>{ |
| <span class="kw">let </span>(y, v) = <span class="kw">loop </span>{ |
| <span class="kw">let </span>u = distr_region_select.sample(rng); |
| <span class="kw">let </span>v = rng.gen::<f64>(); <span class="comment">// for the accept/reject decision |
| |
| </span><span class="kw">if </span>u <= p1 { |
| <span class="comment">// Region 1, central bell |
| </span><span class="kw">let </span>y = (x_l + u).floor(); |
| <span class="kw">break </span>(y, v); |
| } <span class="kw">else if </span>u <= p2 { |
| <span class="comment">// Region 2, left exponential tail |
| </span><span class="kw">let </span>y = (x_l + v.ln() / lambda_l).floor(); |
| <span class="kw">if </span>y <span class="kw">as </span>i64 >= i64::max(<span class="number">0</span>, k <span class="kw">as </span>i64 - n2 <span class="kw">as </span>i64) { |
| <span class="kw">let </span>v = v * (u - p1) * lambda_l; |
| <span class="kw">break </span>(y, v); |
| } |
| } <span class="kw">else </span>{ |
| <span class="comment">// Region 3, right exponential tail |
| </span><span class="kw">let </span>y = (x_r - v.ln() / lambda_r).floor(); |
| <span class="kw">if </span>y <span class="kw">as </span>u64 <= u64::min(n1, k) { |
| <span class="kw">let </span>v = v * (u - p2) * lambda_r; |
| <span class="kw">break </span>(y, v); |
| } |
| } |
| }; |
| |
| <span class="comment">// Step 4: Acceptance/Rejection Comparison |
| </span><span class="kw">if </span>m < <span class="number">100.0 </span>|| y <= <span class="number">50.0 </span>{ |
| <span class="comment">// Step 4.1: evaluate f(y) via recursive relationship |
| </span><span class="kw">let </span><span class="kw-2">mut </span>f = <span class="number">1.0</span>; |
| <span class="kw">if </span>m < y { |
| <span class="kw">for </span>i <span class="kw">in </span>(m <span class="kw">as </span>u64 + <span class="number">1</span>)..=(y <span class="kw">as </span>u64) { |
| f <span class="kw-2">*</span>= (n1 - i + <span class="number">1</span>) <span class="kw">as </span>f64 * (k - i + <span class="number">1</span>) <span class="kw">as </span>f64; |
| f /= i <span class="kw">as </span>f64 * (n2 - k + i) <span class="kw">as </span>f64; |
| } |
| } <span class="kw">else </span>{ |
| <span class="kw">for </span>i <span class="kw">in </span>(y <span class="kw">as </span>u64 + <span class="number">1</span>)..=(m <span class="kw">as </span>u64) { |
| f <span class="kw-2">*</span>= i <span class="kw">as </span>f64 * (n2 - k + i) <span class="kw">as </span>f64; |
| f /= (n1 - i) <span class="kw">as </span>f64 * (k - i) <span class="kw">as </span>f64; |
| } |
| } |
| |
| <span class="kw">if </span>v <= f { <span class="kw">break </span>y <span class="kw">as </span>i64; } |
| } <span class="kw">else </span>{ |
| <span class="comment">// Step 4.2: Squeezing |
| </span><span class="kw">let </span>y1 = y + <span class="number">1.0</span>; |
| <span class="kw">let </span>ym = y - m; |
| <span class="kw">let </span>yn = n1 <span class="kw">as </span>f64 - y + <span class="number">1.0</span>; |
| <span class="kw">let </span>yk = k <span class="kw">as </span>f64 - y + <span class="number">1.0</span>; |
| <span class="kw">let </span>nk = n2 <span class="kw">as </span>f64 - k <span class="kw">as </span>f64 + y1; |
| <span class="kw">let </span>r = -ym / y1; |
| <span class="kw">let </span>s = ym / yn; |
| <span class="kw">let </span>t = ym / yk; |
| <span class="kw">let </span>e = -ym / nk; |
| <span class="kw">let </span>g = yn * yk / (y1 * nk) - <span class="number">1.0</span>; |
| <span class="kw">let </span>dg = <span class="kw">if </span>g < <span class="number">0.0 </span>{ |
| <span class="number">1.0 </span>+ g |
| } <span class="kw">else </span>{ |
| <span class="number">1.0 |
| </span>}; |
| <span class="kw">let </span>gu = g * (<span class="number">1.0 </span>+ g * (-<span class="number">0.5 </span>+ g / <span class="number">3.0</span>)); |
| <span class="kw">let </span>gl = gu - g.powi(<span class="number">4</span>) / (<span class="number">4.0 </span>* dg); |
| <span class="kw">let </span>xm = m + <span class="number">0.5</span>; |
| <span class="kw">let </span>xn = n1 <span class="kw">as </span>f64 - m + <span class="number">0.5</span>; |
| <span class="kw">let </span>xk = k <span class="kw">as </span>f64 - m + <span class="number">0.5</span>; |
| <span class="kw">let </span>nm = n2 <span class="kw">as </span>f64 - k <span class="kw">as </span>f64 + xm; |
| <span class="kw">let </span>ub = xm * r * (<span class="number">1.0 </span>+ r * (-<span class="number">0.5 </span>+ r / <span class="number">3.0</span>)) + |
| xn * s * (<span class="number">1.0 </span>+ s * (-<span class="number">0.5 </span>+ s / <span class="number">3.0</span>)) + |
| xk * t * (<span class="number">1.0 </span>+ t * (-<span class="number">0.5 </span>+ t / <span class="number">3.0</span>)) + |
| nm * e * (<span class="number">1.0 </span>+ e * (-<span class="number">0.5 </span>+ e / <span class="number">3.0</span>)) + |
| y * gu - m * gl + <span class="number">0.0034</span>; |
| <span class="kw">let </span>av = v.ln(); |
| <span class="kw">if </span>av > ub { <span class="kw">continue</span>; } |
| <span class="kw">let </span>dr = <span class="kw">if </span>r < <span class="number">0.0 </span>{ |
| xm * r.powi(<span class="number">4</span>) / (<span class="number">1.0 </span>+ r) |
| } <span class="kw">else </span>{ |
| xm * r.powi(<span class="number">4</span>) |
| }; |
| <span class="kw">let </span>ds = <span class="kw">if </span>s < <span class="number">0.0 </span>{ |
| xn * s.powi(<span class="number">4</span>) / (<span class="number">1.0 </span>+ s) |
| } <span class="kw">else </span>{ |
| xn * s.powi(<span class="number">4</span>) |
| }; |
| <span class="kw">let </span>dt = <span class="kw">if </span>t < <span class="number">0.0 </span>{ |
| xk * t.powi(<span class="number">4</span>) / (<span class="number">1.0 </span>+ t) |
| } <span class="kw">else </span>{ |
| xk * t.powi(<span class="number">4</span>) |
| }; |
| <span class="kw">let </span>de = <span class="kw">if </span>e < <span class="number">0.0 </span>{ |
| nm * e.powi(<span class="number">4</span>) / (<span class="number">1.0 </span>+ e) |
| } <span class="kw">else </span>{ |
| nm * e.powi(<span class="number">4</span>) |
| }; |
| |
| <span class="kw">if </span>av < ub - <span class="number">0.25</span><span class="kw-2">*</span>(dr + ds + dt + de) + (y + m)<span class="kw-2">*</span>(gl - gu) - <span class="number">0.0078 </span>{ |
| <span class="kw">break </span>y <span class="kw">as </span>i64; |
| } |
| |
| <span class="comment">// Step 4.3: Final Acceptance/Rejection Test |
| </span><span class="kw">let </span>av_critical = a - |
| ln_of_factorial(y) - |
| ln_of_factorial(n1 <span class="kw">as </span>f64 - y) - |
| ln_of_factorial(k <span class="kw">as </span>f64 - y) - |
| ln_of_factorial((n2 - k) <span class="kw">as </span>f64 + y); |
| <span class="kw">if </span>v.ln() <= av_critical { |
| <span class="kw">break </span>y <span class="kw">as </span>i64; |
| } |
| } |
| } |
| } |
| }; |
| |
| (offset_x + sign_x * x) <span class="kw">as </span>u64 |
| } |
| } |
| |
| <span class="attribute">#[cfg(test)] |
| </span><span class="kw">mod </span>test { |
| <span class="kw">use super</span>::<span class="kw-2">*</span>; |
| |
| <span class="attribute">#[test] |
| </span><span class="kw">fn </span>test_hypergeometric_invalid_params() { |
| <span class="macro">assert!</span>(Hypergeometric::new(<span class="number">100</span>, <span class="number">101</span>, <span class="number">5</span>).is_err()); |
| <span class="macro">assert!</span>(Hypergeometric::new(<span class="number">100</span>, <span class="number">10</span>, <span class="number">101</span>).is_err()); |
| <span class="macro">assert!</span>(Hypergeometric::new(<span class="number">100</span>, <span class="number">101</span>, <span class="number">101</span>).is_err()); |
| <span class="macro">assert!</span>(Hypergeometric::new(<span class="number">100</span>, <span class="number">10</span>, <span class="number">5</span>).is_ok()); |
| } |
| |
| <span class="kw">fn </span>test_hypergeometric_mean_and_variance<R: Rng>(n: u64, k: u64, s: u64, rng: <span class="kw-2">&mut </span>R) |
| { |
| <span class="kw">let </span>distr = Hypergeometric::new(n, k, s).unwrap(); |
| |
| <span class="kw">let </span>expected_mean = s <span class="kw">as </span>f64 * k <span class="kw">as </span>f64 / n <span class="kw">as </span>f64; |
| <span class="kw">let </span>expected_variance = { |
| <span class="kw">let </span>numerator = (s * k * (n - k) * (n - s)) <span class="kw">as </span>f64; |
| <span class="kw">let </span>denominator = (n * n * (n - <span class="number">1</span>)) <span class="kw">as </span>f64; |
| numerator / denominator |
| }; |
| |
| <span class="kw">let </span><span class="kw-2">mut </span>results = [<span class="number">0.0</span>; <span class="number">1000</span>]; |
| <span class="kw">for </span>i <span class="kw">in </span>results.iter_mut() { |
| <span class="kw-2">*</span>i = distr.sample(rng) <span class="kw">as </span>f64; |
| } |
| |
| <span class="kw">let </span>mean = results.iter().sum::<f64>() / results.len() <span class="kw">as </span>f64; |
| <span class="macro">assert!</span>((mean <span class="kw">as </span>f64 - expected_mean).abs() < expected_mean / <span class="number">50.0</span>); |
| |
| <span class="kw">let </span>variance = |
| results.iter().map(|x| (x - mean) * (x - mean)).sum::<f64>() / results.len() <span class="kw">as </span>f64; |
| <span class="macro">assert!</span>((variance - expected_variance).abs() < expected_variance / <span class="number">10.0</span>); |
| } |
| |
| <span class="attribute">#[test] |
| </span><span class="kw">fn </span>test_hypergeometric() { |
| <span class="kw">let </span><span class="kw-2">mut </span>rng = <span class="kw">crate</span>::test::rng(<span class="number">737</span>); |
| |
| <span class="comment">// exercise algorithm HIN: |
| </span>test_hypergeometric_mean_and_variance(<span class="number">500</span>, <span class="number">400</span>, <span class="number">30</span>, <span class="kw-2">&mut </span>rng); |
| test_hypergeometric_mean_and_variance(<span class="number">250</span>, <span class="number">200</span>, <span class="number">230</span>, <span class="kw-2">&mut </span>rng); |
| test_hypergeometric_mean_and_variance(<span class="number">100</span>, <span class="number">20</span>, <span class="number">6</span>, <span class="kw-2">&mut </span>rng); |
| test_hypergeometric_mean_and_variance(<span class="number">50</span>, <span class="number">10</span>, <span class="number">47</span>, <span class="kw-2">&mut </span>rng); |
| |
| <span class="comment">// exercise algorithm H2PE |
| </span>test_hypergeometric_mean_and_variance(<span class="number">5000</span>, <span class="number">2500</span>, <span class="number">500</span>, <span class="kw-2">&mut </span>rng); |
| test_hypergeometric_mean_and_variance(<span class="number">10100</span>, <span class="number">10000</span>, <span class="number">1000</span>, <span class="kw-2">&mut </span>rng); |
| test_hypergeometric_mean_and_variance(<span class="number">100100</span>, <span class="number">100</span>, <span class="number">10000</span>, <span class="kw-2">&mut </span>rng); |
| } |
| } |
| </code></pre></div> |
| </section></div></main><div id="rustdoc-vars" data-root-path="../../" data-current-crate="rand_distr" data-themes="ayu,dark,light" data-resource-suffix="" data-rustdoc-version="1.66.0-nightly (5c8bff74b 2022-10-21)" ></div></body></html> |