1 | <?xml version='1.0' encoding='UTF-8' standalone='no'?> |
---|
2 | <doxygen xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="compound.xsd" version="1.5.6"> |
---|
3 | <compounddef id="itpp__ext_8cpp" kind="file"> |
---|
4 | <compoundname>itpp_ext.cpp</compoundname> |
---|
5 | <includes refid="itpp__ext_8h" local="yes">itpp_ext.h</includes> |
---|
6 | <incdepgraph> |
---|
7 | <node id="264"> |
---|
8 | <label>itpp_ext.h</label> |
---|
9 | <link refid="itpp__ext_8h-source"/> |
---|
10 | <childnode refid="265" relation="include"> |
---|
11 | </childnode> |
---|
12 | </node> |
---|
13 | <node id="263"> |
---|
14 | <label>work/git/mixpp/bdm/itpp_ext.cpp</label> |
---|
15 | <link refid="itpp_ext.cpp"/> |
---|
16 | <childnode refid="264" relation="include"> |
---|
17 | </childnode> |
---|
18 | </node> |
---|
19 | <node id="265"> |
---|
20 | <label>itpp/itbase.h</label> |
---|
21 | </node> |
---|
22 | </incdepgraph> |
---|
23 | <innernamespace refid="namespaceitpp">itpp</innernamespace> |
---|
24 | <sectiondef kind="define"> |
---|
25 | <memberdef kind="define" id="itpp__ext_8cpp_125274c13d478263ec5322541d7bbfeee" prot="public" static="no"> |
---|
26 | <name>log</name> |
---|
27 | <initializer>std::log</initializer> |
---|
28 | <briefdescription> |
---|
29 | </briefdescription> |
---|
30 | <detaileddescription> |
---|
31 | </detaileddescription> |
---|
32 | <inbodydescription> |
---|
33 | </inbodydescription> |
---|
34 | <location file="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" line="78" bodyfile="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" bodystart="78" bodyend="-1"/> |
---|
35 | </memberdef> |
---|
36 | <memberdef kind="define" id="itpp__ext_8cpp_14bb9b8ff973345c3b4770d31cfb71ea8" prot="public" static="no"> |
---|
37 | <name>exp</name> |
---|
38 | <initializer>std::exp</initializer> |
---|
39 | <briefdescription> |
---|
40 | </briefdescription> |
---|
41 | <detaileddescription> |
---|
42 | </detaileddescription> |
---|
43 | <inbodydescription> |
---|
44 | </inbodydescription> |
---|
45 | <location file="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" line="79" bodyfile="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" bodystart="79" bodyend="-1"/> |
---|
46 | </memberdef> |
---|
47 | <memberdef kind="define" id="itpp__ext_8cpp_1a8418f27fe28830a7fb62322463f15e0" prot="public" static="no"> |
---|
48 | <name>sqrt</name> |
---|
49 | <initializer>std::sqrt</initializer> |
---|
50 | <briefdescription> |
---|
51 | </briefdescription> |
---|
52 | <detaileddescription> |
---|
53 | </detaileddescription> |
---|
54 | <inbodydescription> |
---|
55 | </inbodydescription> |
---|
56 | <location file="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" line="80" bodyfile="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" bodystart="80" bodyend="-1"/> |
---|
57 | </memberdef> |
---|
58 | <memberdef kind="define" id="itpp__ext_8cpp_11249d579ef7cf8fdc34494c1a20b861d" prot="public" static="no"> |
---|
59 | <name>R_FINITE</name> |
---|
60 | <initializer>std::isfinite</initializer> |
---|
61 | <briefdescription> |
---|
62 | </briefdescription> |
---|
63 | <detaileddescription> |
---|
64 | </detaileddescription> |
---|
65 | <inbodydescription> |
---|
66 | </inbodydescription> |
---|
67 | <location file="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" line="81" bodyfile="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" bodystart="81" bodyend="-1"/> |
---|
68 | </memberdef> |
---|
69 | </sectiondef> |
---|
70 | <sectiondef kind="func"> |
---|
71 | <memberdef kind="function" id="itpp__ext_8cpp_1aa72db0a37eb6b2147942b3007de54fa" prot="public" static="no" const="no" explicit="no" inline="no" virt="non-virtual"> |
---|
72 | <type>void</type> |
---|
73 | <definition>void dgeqrf_</definition> |
---|
74 | <argsstring>(int *m, int *n, double *a, int *lda, double *tau, double *work, int *lwork, int *info)</argsstring> |
---|
75 | <name>dgeqrf_</name> |
---|
76 | <param> |
---|
77 | <type>int *</type> |
---|
78 | <declname>m</declname> |
---|
79 | </param> |
---|
80 | <param> |
---|
81 | <type>int *</type> |
---|
82 | <declname>n</declname> |
---|
83 | </param> |
---|
84 | <param> |
---|
85 | <type>double *</type> |
---|
86 | <declname>a</declname> |
---|
87 | </param> |
---|
88 | <param> |
---|
89 | <type>int *</type> |
---|
90 | <declname>lda</declname> |
---|
91 | </param> |
---|
92 | <param> |
---|
93 | <type>double *</type> |
---|
94 | <declname>tau</declname> |
---|
95 | </param> |
---|
96 | <param> |
---|
97 | <type>double *</type> |
---|
98 | <declname>work</declname> |
---|
99 | </param> |
---|
100 | <param> |
---|
101 | <type>int *</type> |
---|
102 | <declname>lwork</declname> |
---|
103 | </param> |
---|
104 | <param> |
---|
105 | <type>int *</type> |
---|
106 | <declname>info</declname> |
---|
107 | </param> |
---|
108 | <briefdescription> |
---|
109 | </briefdescription> |
---|
110 | <detaileddescription> |
---|
111 | </detaileddescription> |
---|
112 | <inbodydescription> |
---|
113 | </inbodydescription> |
---|
114 | <location file="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp" line="19"/> |
---|
115 | </memberdef> |
---|
116 | </sectiondef> |
---|
117 | <briefdescription> |
---|
118 | </briefdescription> |
---|
119 | <detaileddescription> |
---|
120 | </detaileddescription> |
---|
121 | <programlisting> |
---|
122 | <codeline lineno="1"><highlight class="comment">//</highlight><highlight class="normal"></highlight></codeline> |
---|
123 | <codeline lineno="2"><highlight class="normal"></highlight><highlight class="comment">//<sp/>C++<sp/>Implementation:<sp/>itpp_ext</highlight><highlight class="normal"></highlight></codeline> |
---|
124 | <codeline lineno="3"><highlight class="normal"></highlight><highlight class="comment">//</highlight><highlight class="normal"></highlight></codeline> |
---|
125 | <codeline lineno="4"><highlight class="normal"></highlight><highlight class="comment">//<sp/>Description:</highlight><highlight class="normal"></highlight></codeline> |
---|
126 | <codeline lineno="5"><highlight class="normal"></highlight><highlight class="comment">//</highlight><highlight class="normal"></highlight></codeline> |
---|
127 | <codeline lineno="6"><highlight class="normal"></highlight><highlight class="comment">//</highlight><highlight class="normal"></highlight></codeline> |
---|
128 | <codeline lineno="7"><highlight class="normal"></highlight><highlight class="comment">//<sp/>Author:<sp/>smidl<sp/><smidl@utia.cas.cz>,<sp/>(C)<sp/>2008</highlight><highlight class="normal"></highlight></codeline> |
---|
129 | <codeline lineno="8"><highlight class="normal"></highlight><highlight class="comment">//</highlight><highlight class="normal"></highlight></codeline> |
---|
130 | <codeline lineno="9"><highlight class="normal"></highlight><highlight class="comment">//<sp/>Copyright:<sp/>See<sp/>COPYING<sp/>file<sp/>that<sp/>comes<sp/>with<sp/>this<sp/>distribution</highlight><highlight class="normal"></highlight></codeline> |
---|
131 | <codeline lineno="10"><highlight class="normal"></highlight><highlight class="comment">//</highlight><highlight class="normal"></highlight></codeline> |
---|
132 | <codeline lineno="11"><highlight class="normal"></highlight><highlight class="comment">//</highlight><highlight class="normal"></highlight></codeline> |
---|
133 | <codeline lineno="12"><highlight class="normal"></highlight></codeline> |
---|
134 | <codeline lineno="13"><highlight class="normal"></highlight><highlight class="preprocessor">#include<sp/>"itpp_ext.h"</highlight><highlight class="normal"></highlight></codeline> |
---|
135 | <codeline lineno="14"><highlight class="normal"></highlight></codeline> |
---|
136 | <codeline lineno="15"><highlight class="normal"></highlight><highlight class="comment">//<sp/>from<sp/><sp/>algebra/lapack.h</highlight><highlight class="normal"></highlight></codeline> |
---|
137 | <codeline lineno="16"><highlight class="normal"></highlight></codeline> |
---|
138 | <codeline lineno="17"><highlight class="normal"></highlight><highlight class="keyword">extern</highlight><highlight class="normal"><sp/></highlight><highlight class="stringliteral">"C"</highlight><highlight class="normal"><sp/>{<sp/><sp/></highlight><highlight class="comment">/*<sp/>QR<sp/>factorization<sp/>of<sp/>a<sp/>general<sp/>matrix<sp/>A<sp/><sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
139 | <codeline lineno="18"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">void</highlight><highlight class="normal"><sp/>dgeqrf_<sp/>(<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>*m,<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>*n,<sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>*a,<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>*lda,<sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>*tau,<sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>*work,</highlight></codeline> |
---|
140 | <codeline lineno="19"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>*lwork,<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>*info<sp/>);</highlight></codeline> |
---|
141 | <codeline lineno="20"><highlight class="normal">};</highlight></codeline> |
---|
142 | <codeline lineno="21"><highlight class="normal"></highlight></codeline> |
---|
143 | <codeline lineno="22"><highlight class="normal"></highlight><highlight class="keyword">namespace<sp/></highlight><highlight class="normal">itpp<sp/>{</highlight></codeline> |
---|
144 | <codeline lineno="23"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>Array<int><sp/>to_Arr<sp/>(<sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/>ivec<sp/>&indices<sp/>)<sp/>{</highlight></codeline> |
---|
145 | <codeline lineno="24"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>Array<int><sp/>a<sp/>(<sp/>indices.size()<sp/>);</highlight></codeline> |
---|
146 | <codeline lineno="25"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>i<sp/>=<sp/>0;<sp/>i<sp/><<sp/>a.size();<sp/>i++<sp/>)<sp/>{</highlight></codeline> |
---|
147 | <codeline lineno="26"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>a<sp/>(<sp/>i<sp/>)<sp/>=<sp/>indices<sp/>(<sp/>i<sp/>);</highlight></codeline> |
---|
148 | <codeline lineno="27"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
149 | <codeline lineno="28"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>a;</highlight></codeline> |
---|
150 | <codeline lineno="29"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
151 | <codeline lineno="30"><highlight class="normal"></highlight></codeline> |
---|
152 | <codeline lineno="31"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>ivec<sp/>linspace<sp/>(<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>from,<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>to<sp/>)<sp/>{</highlight></codeline> |
---|
153 | <codeline lineno="32"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>n=to-from+1;</highlight></codeline> |
---|
154 | <codeline lineno="33"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>i;</highlight></codeline> |
---|
155 | <codeline lineno="34"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>it_assert_debug<sp/>(<sp/>n>0,</highlight><highlight class="stringliteral">"wrong<sp/>linspace"</highlight><highlight class="normal"><sp/>);</highlight></codeline> |
---|
156 | <codeline lineno="35"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>ivec<sp/>iv<sp/>(<sp/>n<sp/>);<sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/>i=0;i<n;i++<sp/>)<sp/>iv<sp/>(<sp/>i<sp/>)<sp/>=from+i;</highlight></codeline> |
---|
157 | <codeline lineno="36"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>iv;</highlight></codeline> |
---|
158 | <codeline lineno="37"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>};</highlight></codeline> |
---|
159 | <codeline lineno="38"><highlight class="normal"></highlight></codeline> |
---|
160 | <codeline lineno="39"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">void</highlight><highlight class="normal"><sp/>set_subvector<sp/>(<sp/>vec<sp/>&ov,<sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/>ivec<sp/>&iv,<sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/>vec<sp/>&v<sp/>)</highlight></codeline> |
---|
161 | <codeline lineno="40"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>{</highlight></codeline> |
---|
162 | <codeline lineno="41"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>it_assert_debug<sp/>(<sp/>(<sp/>iv.length()<sp/><=v.length()<sp/>),</highlight></codeline> |
---|
163 | <codeline lineno="42"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="stringliteral">"Vec<>::set_subvector(ivec,<sp/>vec<Num_T>):<sp/>Indexing<sp/>out<sp/>"</highlight><highlight class="normal"></highlight></codeline> |
---|
164 | <codeline lineno="43"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="stringliteral">"of<sp/>range<sp/>of<sp/>v"</highlight><highlight class="normal"><sp/>);</highlight></codeline> |
---|
165 | <codeline lineno="44"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>i<sp/>=<sp/>0;<sp/>i<sp/><<sp/>iv.length();<sp/>i++<sp/>)<sp/>{</highlight></codeline> |
---|
166 | <codeline lineno="45"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>it_assert_debug<sp/>(<sp/>iv<sp/>(<sp/>i<sp/>)<sp/><ov.length(),</highlight></codeline> |
---|
167 | <codeline lineno="46"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="stringliteral">"Vec<>::set_subvector(ivec,<sp/>vec<Num_T>):<sp/>Indexing<sp/>out<sp/>"</highlight><highlight class="normal"></highlight></codeline> |
---|
168 | <codeline lineno="47"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="stringliteral">"of<sp/>range<sp/>of<sp/>v"</highlight><highlight class="normal"><sp/>);</highlight></codeline> |
---|
169 | <codeline lineno="48"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>ov<sp/>(<sp/>iv<sp/>(<sp/>i<sp/>)<sp/>)<sp/>=<sp/>v<sp/>(<sp/>i<sp/>);</highlight></codeline> |
---|
170 | <codeline lineno="49"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
171 | <codeline lineno="50"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
172 | <codeline lineno="51"><highlight class="normal"></highlight></codeline> |
---|
173 | <codeline lineno="52"><highlight class="normal"></highlight><highlight class="comment">//Gamma</highlight><highlight class="normal"></highlight></codeline> |
---|
174 | <codeline lineno="53"><highlight class="normal"></highlight></codeline> |
---|
175 | <codeline lineno="54" refid="classitpp_1_1Gamma__RNG_1e132860f825f427d63652edd02c25b54" refkind="member"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><ref refid="classitpp_1_1Gamma__RNG_1e132860f825f427d63652edd02c25b54" kindref="member" tooltip="constructor. Set lambda.">Gamma_RNG::Gamma_RNG</ref><sp/>(<sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a,<sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>b<sp/>)<sp/>{</highlight></codeline> |
---|
176 | <codeline lineno="55"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><ref refid="classitpp_1_1Gamma__RNG_1dfaae19411e39aa87e1f72e409b6babe" kindref="member" tooltip="Set lambda.">setup</ref><sp/>(<sp/>a,b<sp/>);</highlight></codeline> |
---|
177 | <codeline lineno="56"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
178 | <codeline lineno="57"><highlight class="normal"></highlight></codeline> |
---|
179 | <codeline lineno="58"><highlight class="normal"></highlight></codeline> |
---|
180 | <codeline lineno="59"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>bvec<sp/>operator&<sp/>(<sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/>bvec<sp/>&a,<sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/>bvec<sp/>&b<sp/>)<sp/>{</highlight></codeline> |
---|
181 | <codeline lineno="60"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>it_assert_debug<sp/>(<sp/>b.size()<sp/>==a.size(),<sp/></highlight><highlight class="stringliteral">"operator&():<sp/>Vectors<sp/>of<sp/>different<sp/>lengths"</highlight><highlight class="normal"><sp/>);</highlight></codeline> |
---|
182 | <codeline lineno="61"><highlight class="normal"></highlight></codeline> |
---|
183 | <codeline lineno="62"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>bvec<sp/>temp<sp/>(<sp/>a.size()<sp/>);</highlight></codeline> |
---|
184 | <codeline lineno="63"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>i<sp/>=<sp/>0;i<sp/><<sp/>a.size();i++<sp/>)<sp/>{</highlight></codeline> |
---|
185 | <codeline lineno="64"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>temp<sp/>(<sp/>i<sp/>)<sp/>=<sp/>a<sp/>(<sp/>i<sp/>)<sp/>&<sp/>b<sp/>(<sp/>i<sp/>);</highlight></codeline> |
---|
186 | <codeline lineno="65"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
187 | <codeline lineno="66"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>temp;</highlight></codeline> |
---|
188 | <codeline lineno="67"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
189 | <codeline lineno="68"><highlight class="normal"></highlight></codeline> |
---|
190 | <codeline lineno="69"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>bvec<sp/>operator|<sp/>(<sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/>bvec<sp/>&a,<sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/>bvec<sp/>&b<sp/>)<sp/>{</highlight></codeline> |
---|
191 | <codeline lineno="70"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>it_assert_debug<sp/>(<sp/>b.size()<sp/>!=a.size(),<sp/></highlight><highlight class="stringliteral">"operator&():<sp/>Vectors<sp/>of<sp/>different<sp/>lengths"</highlight><highlight class="normal"><sp/>);</highlight></codeline> |
---|
192 | <codeline lineno="71"><highlight class="normal"></highlight></codeline> |
---|
193 | <codeline lineno="72"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>bvec<sp/>temp<sp/>(<sp/>a.size()<sp/>);</highlight></codeline> |
---|
194 | <codeline lineno="73"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>i<sp/>=<sp/>0;i<sp/><<sp/>a.size();i++<sp/>)<sp/>{</highlight></codeline> |
---|
195 | <codeline lineno="74"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>temp<sp/>(<sp/>i<sp/>)<sp/>=<sp/>a<sp/>(<sp/>i<sp/>)<sp/>|<sp/>b<sp/>(<sp/>i<sp/>);</highlight></codeline> |
---|
196 | <codeline lineno="75"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
197 | <codeline lineno="76"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>temp;</highlight></codeline> |
---|
198 | <codeline lineno="77"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
199 | <codeline lineno="78"><highlight class="normal"></highlight><highlight class="preprocessor">#define<sp/>log<sp/>std::log</highlight></codeline> |
---|
200 | <codeline lineno="79"><highlight class="preprocessor"></highlight><highlight class="preprocessor">#define<sp/>exp<sp/>std::exp</highlight></codeline> |
---|
201 | <codeline lineno="80"><highlight class="preprocessor"></highlight><highlight class="preprocessor">#define<sp/>sqrt<sp/>std::sqrt</highlight></codeline> |
---|
202 | <codeline lineno="81"><highlight class="preprocessor"></highlight><highlight class="preprocessor">#define<sp/>R_FINITE<sp/>std::isfinite</highlight></codeline> |
---|
203 | <codeline lineno="82"><highlight class="preprocessor"></highlight><highlight class="normal"></highlight></codeline> |
---|
204 | <codeline lineno="83"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/><sp/>Gamma_RNG::sample()<sp/>{</highlight></codeline> |
---|
205 | <codeline lineno="84"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">//A<sp/>copy<sp/>of<sp/>rgamma<sp/>code<sp/>from<sp/>the<sp/>R<sp/>package!!</highlight><highlight class="normal"></highlight></codeline> |
---|
206 | <codeline lineno="85"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">//</highlight><highlight class="normal"></highlight></codeline> |
---|
207 | <codeline lineno="86"><highlight class="normal"></highlight></codeline> |
---|
208 | <codeline lineno="87"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Constants<sp/>:<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
209 | <codeline lineno="88"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>sqrt32<sp/>=<sp/>5.656854;</highlight></codeline> |
---|
210 | <codeline lineno="89"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>exp_m1<sp/>=<sp/>0.36787944117144232159;</highlight><highlight class="comment">/*<sp/>exp(-1)<sp/>=<sp/>1/e<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
211 | <codeline lineno="90"><highlight class="normal"></highlight></codeline> |
---|
212 | <codeline lineno="91"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Coefficients<sp/>q[k]<sp/>-<sp/>for<sp/>q0<sp/>=<sp/>sum(q[k]*a^(-k))</highlight></codeline> |
---|
213 | <codeline lineno="92"><highlight class="comment"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>*<sp/>Coefficients<sp/>a[k]<sp/>-<sp/>for<sp/>q<sp/>=<sp/>q0+(t*t/2)*sum(a[k]*v^k)</highlight></codeline> |
---|
214 | <codeline lineno="93"><highlight class="comment"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>*<sp/>Coefficients<sp/>e[k]<sp/>-<sp/>for<sp/>exp(q)-1<sp/>=<sp/>sum(e[k]*q^k)</highlight></codeline> |
---|
215 | <codeline lineno="94"><highlight class="comment"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
216 | <codeline lineno="95"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>q1<sp/>=<sp/>0.04166669;</highlight></codeline> |
---|
217 | <codeline lineno="96"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>q2<sp/>=<sp/>0.02083148;</highlight></codeline> |
---|
218 | <codeline lineno="97"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>q3<sp/>=<sp/>0.00801191;</highlight></codeline> |
---|
219 | <codeline lineno="98"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>q4<sp/>=<sp/>0.00144121;</highlight></codeline> |
---|
220 | <codeline lineno="99"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>q5<sp/>=<sp/>-7.388e-5;</highlight></codeline> |
---|
221 | <codeline lineno="100"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>q6<sp/>=<sp/>2.4511e-4;</highlight></codeline> |
---|
222 | <codeline lineno="101"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>q7<sp/>=<sp/>2.424e-4;</highlight></codeline> |
---|
223 | <codeline lineno="102"><highlight class="normal"></highlight></codeline> |
---|
224 | <codeline lineno="103"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a1<sp/>=<sp/>0.3333333;</highlight></codeline> |
---|
225 | <codeline lineno="104"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a2<sp/>=<sp/>-0.250003;</highlight></codeline> |
---|
226 | <codeline lineno="105"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a3<sp/>=<sp/>0.2000062;</highlight></codeline> |
---|
227 | <codeline lineno="106"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a4<sp/>=<sp/>-0.1662921;</highlight></codeline> |
---|
228 | <codeline lineno="107"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a5<sp/>=<sp/>0.1423657;</highlight></codeline> |
---|
229 | <codeline lineno="108"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a6<sp/>=<sp/>-0.1367177;</highlight></codeline> |
---|
230 | <codeline lineno="109"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a7<sp/>=<sp/>0.1233795;</highlight></codeline> |
---|
231 | <codeline lineno="110"><highlight class="normal"></highlight></codeline> |
---|
232 | <codeline lineno="111"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>State<sp/>variables<sp/>[FIXME<sp/>for<sp/>threading!]<sp/>:*/</highlight><highlight class="normal"></highlight></codeline> |
---|
233 | <codeline lineno="112"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>aa<sp/>=<sp/>0.;</highlight></codeline> |
---|
234 | <codeline lineno="113"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>aaa<sp/>=<sp/>0.;</highlight></codeline> |
---|
235 | <codeline lineno="114"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>s,<sp/>s2,<sp/>d;<sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>no.<sp/>1<sp/>(step<sp/>1)<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
236 | <codeline lineno="115"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keyword">static</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>q0,<sp/>b,<sp/>si,<sp/>c;</highlight><highlight class="comment">/*<sp/>no.<sp/>2<sp/>(step<sp/>4)<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
237 | <codeline lineno="116"><highlight class="normal"></highlight></codeline> |
---|
238 | <codeline lineno="117"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>e,<sp/>p,<sp/>q,<sp/>r,<sp/>t,<sp/>u,<sp/>v,<sp/>w,<sp/>x,<sp/>ret_val;</highlight></codeline> |
---|
239 | <codeline lineno="118"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>a=alpha;</highlight></codeline> |
---|
240 | <codeline lineno="119"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">double</highlight><highlight class="normal"><sp/>scale=1.0/beta;</highlight></codeline> |
---|
241 | <codeline lineno="120"><highlight class="normal"></highlight></codeline> |
---|
242 | <codeline lineno="121"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>!R_FINITE<sp/>(<sp/>a<sp/>)<sp/>||<sp/>!R_FINITE<sp/>(<sp/>scale<sp/>)<sp/>||<sp/>a<sp/><<sp/>0.0<sp/>||<sp/>scale<sp/><=<sp/>0.0<sp/>)</highlight></codeline> |
---|
243 | <codeline lineno="122"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>{it_error<sp/>(<sp/></highlight><highlight class="stringliteral">"Gamma_RNG<sp/>wrong<sp/>parameters"</highlight><highlight class="normal"><sp/>);}</highlight></codeline> |
---|
244 | <codeline lineno="123"><highlight class="normal"></highlight></codeline> |
---|
245 | <codeline lineno="124"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>a<sp/><<sp/>1.<sp/>)<sp/>{<sp/></highlight><highlight class="comment">/*<sp/>GS<sp/>algorithm<sp/>for<sp/>parameters<sp/>a<sp/><<sp/>1<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
246 | <codeline lineno="125"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>a<sp/>==<sp/>0<sp/>)</highlight></codeline> |
---|
247 | <codeline lineno="126"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>0.;</highlight></codeline> |
---|
248 | <codeline lineno="127"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>e<sp/>=<sp/>1.0<sp/>+<sp/>exp_m1<sp/>*<sp/>a;</highlight></codeline> |
---|
249 | <codeline lineno="128"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/>;;<sp/>)<sp/>{<sp/><sp/></highlight><highlight class="comment">//VS<sp/>repeat</highlight><highlight class="normal"></highlight></codeline> |
---|
250 | <codeline lineno="129"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>p<sp/>=<sp/>e<sp/>*<sp/>unif_rand();</highlight></codeline> |
---|
251 | <codeline lineno="130"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>p<sp/>>=<sp/>1.0<sp/>)<sp/>{</highlight></codeline> |
---|
252 | <codeline lineno="131"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>x<sp/>=<sp/>-log<sp/>(<sp/>(<sp/>e<sp/>-<sp/>p<sp/>)<sp/>/<sp/>a<sp/>);</highlight></codeline> |
---|
253 | <codeline lineno="132"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>exp_rand()<sp/>>=<sp/>(<sp/>1.0<sp/>-<sp/>a<sp/>)<sp/>*<sp/>log<sp/>(<sp/>x<sp/>)<sp/>)</highlight></codeline> |
---|
254 | <codeline lineno="133"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">break</highlight><highlight class="normal">;</highlight></codeline> |
---|
255 | <codeline lineno="134"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
256 | <codeline lineno="135"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">else</highlight><highlight class="normal"><sp/>{</highlight></codeline> |
---|
257 | <codeline lineno="136"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>x<sp/>=<sp/>exp<sp/>(<sp/>log<sp/>(<sp/>p<sp/>)<sp/>/<sp/>a<sp/>);</highlight></codeline> |
---|
258 | <codeline lineno="137"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>exp_rand()<sp/>>=<sp/>x<sp/>)</highlight></codeline> |
---|
259 | <codeline lineno="138"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">break</highlight><highlight class="normal">;</highlight></codeline> |
---|
260 | <codeline lineno="139"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
261 | <codeline lineno="140"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
262 | <codeline lineno="141"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>scale<sp/>*<sp/>x;</highlight></codeline> |
---|
263 | <codeline lineno="142"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
264 | <codeline lineno="143"><highlight class="normal"></highlight></codeline> |
---|
265 | <codeline lineno="144"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>---<sp/>a<sp/>>=<sp/>1<sp/>:<sp/>GD<sp/>algorithm<sp/>---<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
266 | <codeline lineno="145"><highlight class="normal"></highlight></codeline> |
---|
267 | <codeline lineno="146"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>1:<sp/>Recalculations<sp/>of<sp/>s2,<sp/>s,<sp/>d<sp/>if<sp/>a<sp/>has<sp/>changed<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
268 | <codeline lineno="147"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>a<sp/>!=<sp/>aa<sp/>)<sp/>{</highlight></codeline> |
---|
269 | <codeline lineno="148"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>aa<sp/>=<sp/>a;</highlight></codeline> |
---|
270 | <codeline lineno="149"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>s2<sp/>=<sp/>a<sp/>-<sp/>0.5;</highlight></codeline> |
---|
271 | <codeline lineno="150"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>s<sp/>=<sp/>sqrt<sp/>(<sp/>s2<sp/>);</highlight></codeline> |
---|
272 | <codeline lineno="151"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>d<sp/>=<sp/>sqrt32<sp/>-<sp/>s<sp/>*<sp/>12.0;</highlight></codeline> |
---|
273 | <codeline lineno="152"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
274 | <codeline lineno="153"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>2:<sp/>t<sp/>=<sp/>standard<sp/>normal<sp/>deviate,</highlight></codeline> |
---|
275 | <codeline lineno="154"><highlight class="comment"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>x<sp/>=<sp/>(s,1/2)<sp/>-normal<sp/>deviate.<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
276 | <codeline lineno="155"><highlight class="normal"></highlight></codeline> |
---|
277 | <codeline lineno="156"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>immediate<sp/>acceptance<sp/>(i)<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
278 | <codeline lineno="157"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>t<sp/>=<sp/>norm_rand();</highlight></codeline> |
---|
279 | <codeline lineno="158"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>x<sp/>=<sp/>s<sp/>+<sp/>0.5<sp/>*<sp/>t;</highlight></codeline> |
---|
280 | <codeline lineno="159"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>ret_val<sp/>=<sp/>x<sp/>*<sp/>x;</highlight></codeline> |
---|
281 | <codeline lineno="160"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>t<sp/>>=<sp/>0.0<sp/>)</highlight></codeline> |
---|
282 | <codeline lineno="161"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>scale<sp/>*<sp/>ret_val;</highlight></codeline> |
---|
283 | <codeline lineno="162"><highlight class="normal"></highlight></codeline> |
---|
284 | <codeline lineno="163"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>3:<sp/>u<sp/>=<sp/>0,1<sp/>-<sp/>uniform<sp/>sample.<sp/>squeeze<sp/>acceptance<sp/>(s)<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
285 | <codeline lineno="164"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>u<sp/>=<sp/>unif_rand();</highlight></codeline> |
---|
286 | <codeline lineno="165"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>(<sp/>d<sp/>*<sp/>u<sp/>)<sp/><=<sp/>(<sp/>t<sp/>*<sp/>t<sp/>*<sp/>t<sp/>)<sp/>)</highlight></codeline> |
---|
287 | <codeline lineno="166"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>scale<sp/>*<sp/>ret_val;</highlight></codeline> |
---|
288 | <codeline lineno="167"><highlight class="normal"></highlight></codeline> |
---|
289 | <codeline lineno="168"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>4:<sp/>recalculations<sp/>of<sp/>q0,<sp/>b,<sp/>si,<sp/>c<sp/>if<sp/>necessary<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
290 | <codeline lineno="169"><highlight class="normal"></highlight></codeline> |
---|
291 | <codeline lineno="170"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>a<sp/>!=<sp/>aaa<sp/>)<sp/>{</highlight></codeline> |
---|
292 | <codeline lineno="171"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>aaa<sp/>=<sp/>a;</highlight></codeline> |
---|
293 | <codeline lineno="172"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>r<sp/>=<sp/>1.0<sp/>/<sp/>a;</highlight></codeline> |
---|
294 | <codeline lineno="173"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>q0<sp/>=<sp/>(<sp/>(<sp/>(<sp/>(<sp/>(<sp/>(<sp/>q7<sp/>*<sp/>r<sp/>+<sp/>q6<sp/>)<sp/>*<sp/>r<sp/>+<sp/>q5<sp/>)<sp/>*<sp/>r<sp/>+<sp/>q4<sp/>)<sp/>*<sp/>r<sp/>+<sp/>q3<sp/>)<sp/>*<sp/>r</highlight></codeline> |
---|
295 | <codeline lineno="174"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>+<sp/>q2<sp/>)<sp/>*<sp/>r<sp/>+<sp/>q1<sp/>)<sp/>*<sp/>r;</highlight></codeline> |
---|
296 | <codeline lineno="175"><highlight class="normal"></highlight></codeline> |
---|
297 | <codeline lineno="176"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Approximation<sp/>depending<sp/>on<sp/>size<sp/>of<sp/>parameter<sp/>a<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
298 | <codeline lineno="177"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>The<sp/>constants<sp/>in<sp/>the<sp/>expressions<sp/>for<sp/>b,<sp/>si<sp/>and<sp/>c<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
299 | <codeline lineno="178"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>were<sp/>established<sp/>by<sp/>numerical<sp/>experiments<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
300 | <codeline lineno="179"><highlight class="normal"></highlight></codeline> |
---|
301 | <codeline lineno="180"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>a<sp/><=<sp/>3.686<sp/>)<sp/>{</highlight></codeline> |
---|
302 | <codeline lineno="181"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>b<sp/>=<sp/>0.463<sp/>+<sp/>s<sp/>+<sp/>0.178<sp/>*<sp/>s2;</highlight></codeline> |
---|
303 | <codeline lineno="182"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>si<sp/>=<sp/>1.235;</highlight></codeline> |
---|
304 | <codeline lineno="183"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>c<sp/>=<sp/>0.195<sp/>/<sp/>s<sp/>-<sp/>0.079<sp/>+<sp/>0.16<sp/>*<sp/>s;</highlight></codeline> |
---|
305 | <codeline lineno="184"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
306 | <codeline lineno="185"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">else</highlight><highlight class="normal"><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>a<sp/><=<sp/>13.022<sp/>)<sp/>{</highlight></codeline> |
---|
307 | <codeline lineno="186"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>b<sp/>=<sp/>1.654<sp/>+<sp/>0.0076<sp/>*<sp/>s2;</highlight></codeline> |
---|
308 | <codeline lineno="187"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>si<sp/>=<sp/>1.68<sp/>/<sp/>s<sp/>+<sp/>0.275;</highlight></codeline> |
---|
309 | <codeline lineno="188"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>c<sp/>=<sp/>0.062<sp/>/<sp/>s<sp/>+<sp/>0.024;</highlight></codeline> |
---|
310 | <codeline lineno="189"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
311 | <codeline lineno="190"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">else</highlight><highlight class="normal"><sp/>{</highlight></codeline> |
---|
312 | <codeline lineno="191"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>b<sp/>=<sp/>1.77;</highlight></codeline> |
---|
313 | <codeline lineno="192"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>si<sp/>=<sp/>0.75;</highlight></codeline> |
---|
314 | <codeline lineno="193"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>c<sp/>=<sp/>0.1515<sp/>/<sp/>s;</highlight></codeline> |
---|
315 | <codeline lineno="194"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
316 | <codeline lineno="195"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
317 | <codeline lineno="196"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>5:<sp/>no<sp/>quotient<sp/>test<sp/>if<sp/>x<sp/>not<sp/>positive<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
318 | <codeline lineno="197"><highlight class="normal"></highlight></codeline> |
---|
319 | <codeline lineno="198"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>x<sp/>><sp/>0.0<sp/>)<sp/>{</highlight></codeline> |
---|
320 | <codeline lineno="199"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>6:<sp/>calculation<sp/>of<sp/>v<sp/>and<sp/>quotient<sp/>q<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
321 | <codeline lineno="200"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>v<sp/>=<sp/>t<sp/>/<sp/>(<sp/>s<sp/>+<sp/>s<sp/>);</highlight></codeline> |
---|
322 | <codeline lineno="201"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>fabs<sp/>(<sp/>v<sp/>)<sp/><=<sp/>0.25<sp/>)</highlight></codeline> |
---|
323 | <codeline lineno="202"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>q<sp/>=<sp/>q0<sp/>+<sp/>0.5<sp/>*<sp/>t<sp/>*<sp/>t<sp/>*<sp/>(<sp/>(<sp/>(<sp/>(<sp/>(<sp/>(<sp/>a7<sp/>*<sp/>v<sp/>+<sp/>a6<sp/>)<sp/>*<sp/>v<sp/>+<sp/>a5<sp/>)<sp/>*<sp/>v<sp/>+<sp/>a4<sp/>)<sp/>*<sp/>v</highlight></codeline> |
---|
324 | <codeline lineno="203"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>+<sp/>a3<sp/>)<sp/>*<sp/>v<sp/>+<sp/>a2<sp/>)<sp/>*<sp/>v<sp/>+<sp/>a1<sp/>)<sp/>*<sp/>v;</highlight></codeline> |
---|
325 | <codeline lineno="204"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">else</highlight><highlight class="normal"></highlight></codeline> |
---|
326 | <codeline lineno="205"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>q<sp/>=<sp/>q0<sp/>-<sp/>s<sp/>*<sp/>t<sp/>+<sp/>0.25<sp/>*<sp/>t<sp/>*<sp/>t<sp/>+<sp/>(<sp/>s2<sp/>+<sp/>s2<sp/>)<sp/>*<sp/>log<sp/>(<sp/>1.0<sp/>+<sp/>v<sp/>);</highlight></codeline> |
---|
327 | <codeline lineno="206"><highlight class="normal"></highlight></codeline> |
---|
328 | <codeline lineno="207"><highlight class="normal"></highlight></codeline> |
---|
329 | <codeline lineno="208"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>7:<sp/>quotient<sp/>acceptance<sp/>(q)<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
330 | <codeline lineno="209"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>log<sp/>(<sp/>1.0<sp/>-<sp/>u<sp/>)<sp/><=<sp/>q<sp/>)</highlight></codeline> |
---|
331 | <codeline lineno="210"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>scale<sp/>*<sp/>ret_val;</highlight></codeline> |
---|
332 | <codeline lineno="211"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
333 | <codeline lineno="212"><highlight class="normal"></highlight></codeline> |
---|
334 | <codeline lineno="213"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/>;;<sp/>)<sp/>{<sp/></highlight><highlight class="comment">//VS<sp/>repeat</highlight><highlight class="normal"></highlight></codeline> |
---|
335 | <codeline lineno="214"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>8:<sp/>e<sp/>=<sp/>standard<sp/>exponential<sp/>deviate</highlight></codeline> |
---|
336 | <codeline lineno="215"><highlight class="comment"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>*<sp/><sp/><sp/><sp/><sp/><sp/>u<sp/>=<sp/><sp/>0,1<sp/>-uniform<sp/>deviate</highlight></codeline> |
---|
337 | <codeline lineno="216"><highlight class="comment"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>*<sp/><sp/><sp/><sp/><sp/><sp/>t<sp/>=<sp/>(b,si)-double<sp/>exponential<sp/>(laplace)<sp/>sample<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
338 | <codeline lineno="217"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>e<sp/>=<sp/>exp_rand();</highlight></codeline> |
---|
339 | <codeline lineno="218"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>u<sp/>=<sp/>unif_rand();</highlight></codeline> |
---|
340 | <codeline lineno="219"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>u<sp/>=<sp/>u<sp/>+<sp/>u<sp/>-<sp/>1.0;</highlight></codeline> |
---|
341 | <codeline lineno="220"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>u<sp/><<sp/>0.0<sp/>)</highlight></codeline> |
---|
342 | <codeline lineno="221"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>t<sp/>=<sp/>b<sp/>-<sp/>si<sp/>*<sp/>e;</highlight></codeline> |
---|
343 | <codeline lineno="222"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">else</highlight><highlight class="normal"></highlight></codeline> |
---|
344 | <codeline lineno="223"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>t<sp/>=<sp/>b<sp/>+<sp/>si<sp/>*<sp/>e;</highlight></codeline> |
---|
345 | <codeline lineno="224"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/><sp/>9:<sp/><sp/>rejection<sp/>if<sp/>t<sp/><<sp/>tau(1)<sp/>=<sp/>-0.71874483771719<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
346 | <codeline lineno="225"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>t<sp/>>=<sp/>-0.71874483771719<sp/>)<sp/>{</highlight></codeline> |
---|
347 | <codeline lineno="226"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>10:<sp/><sp/><sp/><sp/><sp/><sp/>calculation<sp/>of<sp/>v<sp/>and<sp/>quotient<sp/>q<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
348 | <codeline lineno="227"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>v<sp/>=<sp/>t<sp/>/<sp/>(<sp/>s<sp/>+<sp/>s<sp/>);</highlight></codeline> |
---|
349 | <codeline lineno="228"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>fabs<sp/>(<sp/>v<sp/>)<sp/><=<sp/>0.25<sp/>)</highlight></codeline> |
---|
350 | <codeline lineno="229"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>q<sp/>=<sp/>q0<sp/>+<sp/>0.5<sp/>*<sp/>t<sp/>*<sp/>t<sp/>*</highlight></codeline> |
---|
351 | <codeline lineno="230"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>(<sp/>(<sp/>(<sp/>(<sp/>(<sp/>(<sp/>a7<sp/>*<sp/>v<sp/>+<sp/>a6<sp/>)<sp/>*<sp/>v<sp/>+<sp/>a5<sp/>)<sp/>*<sp/>v<sp/>+<sp/>a4<sp/>)<sp/>*<sp/>v<sp/>+<sp/>a3<sp/>)<sp/>*<sp/>v</highlight></codeline> |
---|
352 | <codeline lineno="231"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>+<sp/>a2<sp/>)<sp/>*<sp/>v<sp/>+<sp/>a1<sp/>)<sp/>*<sp/>v;</highlight></codeline> |
---|
353 | <codeline lineno="232"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">else</highlight><highlight class="normal"></highlight></codeline> |
---|
354 | <codeline lineno="233"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>q<sp/>=<sp/>q0<sp/>-<sp/>s<sp/>*<sp/>t<sp/>+<sp/>0.25<sp/>*<sp/>t<sp/>*<sp/>t<sp/>+<sp/>(<sp/>s2<sp/>+<sp/>s2<sp/>)<sp/>*<sp/>log<sp/>(<sp/>1.0<sp/>+<sp/>v<sp/>);</highlight></codeline> |
---|
355 | <codeline lineno="234"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>Step<sp/>11:<sp/><sp/><sp/><sp/><sp/><sp/>hat<sp/>acceptance<sp/>(h)<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
356 | <codeline lineno="235"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>(if<sp/>q<sp/>not<sp/>positive<sp/>go<sp/>to<sp/>step<sp/>8)<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
357 | <codeline lineno="236"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>q<sp/>><sp/>0.0<sp/>)<sp/>{</highlight></codeline> |
---|
358 | <codeline lineno="237"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">//<sp/>TODO:<sp/>w<sp/>=<sp/>expm1(q);</highlight><highlight class="normal"></highlight></codeline> |
---|
359 | <codeline lineno="238"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>w<sp/>=<sp/>exp<sp/>(<sp/>q<sp/>)-1;</highlight></codeline> |
---|
360 | <codeline lineno="239"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/><sp/>^^^^^<sp/>original<sp/>code<sp/>had<sp/>approximation<sp/>with<sp/>rel.err<sp/><<sp/>2e-7<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
361 | <codeline lineno="240"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">/*<sp/>if<sp/>t<sp/>is<sp/>rejected<sp/>sample<sp/>again<sp/>at<sp/>step<sp/>8<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
362 | <codeline lineno="241"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>(<sp/>c<sp/>*<sp/>fabs<sp/>(<sp/>u<sp/>)<sp/>)<sp/><=<sp/>(<sp/>w<sp/>*<sp/>exp<sp/>(<sp/>e<sp/>-<sp/>0.5<sp/>*<sp/>t<sp/>*<sp/>t<sp/>)<sp/>)<sp/>)</highlight></codeline> |
---|
363 | <codeline lineno="242"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">break</highlight><highlight class="normal">;</highlight></codeline> |
---|
364 | <codeline lineno="243"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
365 | <codeline lineno="244"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
366 | <codeline lineno="245"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}<sp/></highlight><highlight class="comment">/*<sp/>repeat<sp/>..<sp/>until<sp/><sp/>`t'<sp/>is<sp/>accepted<sp/>*/</highlight><highlight class="normal"></highlight></codeline> |
---|
367 | <codeline lineno="246"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>x<sp/>=<sp/>s<sp/>+<sp/>0.5<sp/>*<sp/>t;</highlight></codeline> |
---|
368 | <codeline lineno="247"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>scale<sp/>*<sp/>x<sp/>*<sp/>x;</highlight></codeline> |
---|
369 | <codeline lineno="248"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
370 | <codeline lineno="249"><highlight class="normal"></highlight></codeline> |
---|
371 | <codeline lineno="250"><highlight class="normal"></highlight></codeline> |
---|
372 | <codeline lineno="251"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">bool</highlight><highlight class="normal"><sp/>qr<sp/>(<sp/></highlight><highlight class="keyword">const</highlight><highlight class="normal"><sp/>mat<sp/>&A,<sp/>mat<sp/>&R<sp/>)<sp/>{</highlight></codeline> |
---|
373 | <codeline lineno="252"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>info;</highlight></codeline> |
---|
374 | <codeline lineno="253"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>m<sp/>=<sp/>A.rows();</highlight></codeline> |
---|
375 | <codeline lineno="254"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>n<sp/>=<sp/>A.cols();</highlight></codeline> |
---|
376 | <codeline lineno="255"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>lwork<sp/>=<sp/>n;</highlight></codeline> |
---|
377 | <codeline lineno="256"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>k<sp/>=<sp/>std::min<sp/>(<sp/>m,<sp/>n<sp/>);</highlight></codeline> |
---|
378 | <codeline lineno="257"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>vec<sp/>tau<sp/>(<sp/>k<sp/>);</highlight></codeline> |
---|
379 | <codeline lineno="258"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>vec<sp/>work<sp/>(<sp/>lwork<sp/>);</highlight></codeline> |
---|
380 | <codeline lineno="259"><highlight class="normal"></highlight></codeline> |
---|
381 | <codeline lineno="260"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>R<sp/>=<sp/>A;</highlight></codeline> |
---|
382 | <codeline lineno="261"><highlight class="normal"></highlight></codeline> |
---|
383 | <codeline lineno="262"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">//<sp/>perform<sp/>workspace<sp/>query<sp/>for<sp/>optimum<sp/>lwork<sp/>value</highlight><highlight class="normal"></highlight></codeline> |
---|
384 | <codeline lineno="263"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>lwork_tmp<sp/>=<sp/>-1;</highlight></codeline> |
---|
385 | <codeline lineno="264"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>dgeqrf_<sp/>(<sp/>&m,<sp/>&n,<sp/>R._data(),<sp/>&m,<sp/>tau._data(),<sp/>work._data(),<sp/>&lwork_tmp,</highlight></codeline> |
---|
386 | <codeline lineno="265"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>&info<sp/>);</highlight></codeline> |
---|
387 | <codeline lineno="266"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">if</highlight><highlight class="normal"><sp/>(<sp/>info<sp/>==<sp/>0<sp/>)<sp/>{</highlight></codeline> |
---|
388 | <codeline lineno="267"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>lwork<sp/>=<sp/></highlight><highlight class="keyword">static_cast<</highlight><highlight class="keywordtype">int</highlight><highlight class="keyword">></highlight><highlight class="normal"><sp/>(<sp/>work<sp/>(<sp/>0<sp/>)<sp/>);</highlight></codeline> |
---|
389 | <codeline lineno="268"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>work.set_size<sp/>(<sp/>lwork,<sp/></highlight><highlight class="keyword">false</highlight><highlight class="normal"><sp/>);</highlight></codeline> |
---|
390 | <codeline lineno="269"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
391 | <codeline lineno="270"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>dgeqrf_<sp/>(<sp/>&m,<sp/>&n,<sp/>R._data(),<sp/>&m,<sp/>tau._data(),<sp/>work._data(),<sp/>&lwork,<sp/>&info<sp/>);</highlight></codeline> |
---|
392 | <codeline lineno="271"><highlight class="normal"></highlight></codeline> |
---|
393 | <codeline lineno="272"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="comment">//<sp/>construct<sp/>R</highlight><highlight class="normal"></highlight></codeline> |
---|
394 | <codeline lineno="273"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>i=0;<sp/>i<m;<sp/>i++<sp/>)</highlight></codeline> |
---|
395 | <codeline lineno="274"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">for</highlight><highlight class="normal"><sp/>(<sp/></highlight><highlight class="keywordtype">int</highlight><highlight class="normal"><sp/>j=0;<sp/>j<std::min<sp/>(<sp/>i,n<sp/>);<sp/>j++<sp/>)</highlight></codeline> |
---|
396 | <codeline lineno="275"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>R<sp/>(<sp/>i,j<sp/>)<sp/>=<sp/>0;</highlight></codeline> |
---|
397 | <codeline lineno="276"><highlight class="normal"></highlight></codeline> |
---|
398 | <codeline lineno="277"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/></highlight><highlight class="keywordflow">return</highlight><highlight class="normal"><sp/>(<sp/>info==0<sp/>);</highlight></codeline> |
---|
399 | <codeline lineno="278"><highlight class="normal"><sp/><sp/><sp/><sp/><sp/><sp/><sp/><sp/>}</highlight></codeline> |
---|
400 | <codeline lineno="279"><highlight class="normal"></highlight></codeline> |
---|
401 | <codeline lineno="280"><highlight class="normal">}</highlight></codeline> |
---|
402 | </programlisting> |
---|
403 | <location file="/home/smidl/work/git/mixpp/bdm/itpp_ext.cpp"/> |
---|
404 | </compounddef> |
---|
405 | </doxygen> |
---|