<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Index of module types" rel=Appendix href="index_module_types.html"> <link title="Reins" rel="Chapter" href="Reins.html"><title>Reins.DugProfile.Make</title> </head> <body> <code class="code"><span class="keyword">functor</span> (<span class="constructor">DS</span> : <span class="constructor">DugADT</span>.<span class="constructor">S</span>) <span class="keywordsign">-></span><br> <span class="keyword">sig</span><br> <span class="keyword">type</span> t = <span class="keyword">private</span> {<br> gen_cdf : ((unit, unit) <span class="constructor">DS</span>.generator * float) list;<br> mut_cdf : ((unit, unit) <span class="constructor">DS</span>.mutator * float) list;<br> obs_cdf : ((unit, unit) <span class="constructor">DS</span>.observer * float) list;<br> gen_ratio : float;<br> obs_mut_ratio : float;<br> mortality : float;<br> pmf : float;<br> pof : float;<br> }<br> <span class="keyword">val</span> random_op : (<span class="keywordsign">'</span>a * float) list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a<br> <span class="keyword">val</span> to_string : <span class="constructor">Reins</span>.<span class="constructor">DugProfile</span>.<span class="constructor">Make</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> profile :<br> ((<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">DS</span>.generator, (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">DS</span>.mutator, (<span class="keywordsign">'</span>a, <span class="keywordsign">'</span>b) <span class="constructor">DS</span>.observer)<br> <span class="constructor">Reins</span>.<span class="constructor">Dug</span>.t <span class="keywordsign">-></span> <span class="constructor">Reins</span>.<span class="constructor">DugProfile</span>.<span class="constructor">Make</span>.t<br> <span class="keyword">end</span></code></body></html>