93 | | <a name="l00029"></a>00029 <span class="comment">// template<class Num_T></span> |
94 | | <a name="l00030"></a>00030 <span class="comment">// void set_subvector(vec &ov, ivec &iv, const Vec<Num_T> &v);</span> |
95 | | <a name="l00031"></a>00031 |
96 | | <a name="l00032"></a>00032 <span class="keywordtype">void</span> set_subvector ( vec &ov, <span class="keyword">const</span> ivec &iv, <span class="keyword">const</span> vec &v ); |
97 | | <a name="l00033"></a>00033 |
98 | | <a name="l00034"></a>00034 <span class="keyword">template</span><<span class="keyword">class</span> Num_T> <span class="keyword">inline</span> |
99 | | <a name="l00035"></a>00035 <span class="keywordtype">void</span> set_col_part(mat &M, <span class="keywordtype">int</span> c, <span class="keyword">const</span> Vec<Num_T> &v) |
100 | | <a name="l00036"></a>00036 { |
101 | | <a name="l00037"></a>00037 copy_vector(v.size(), v._data(), M._data() + c*M.rows()); |
102 | | <a name="l00038"></a>00038 } |
103 | | <a name="l00039"></a>00039 |
104 | | <a name="l00040"></a>00040 <span class="preprocessor">#if 0</span> |
105 | | <a name="l00041"></a>00041 <span class="preprocessor"></span> |
106 | | <a name="l00045"></a>00045 <span class="keyword">class </span>Gamma_RNG { |
107 | | <a name="l00046"></a>00046 <span class="keyword">public</span>: |
108 | | <a name="l00048"></a>00048 Gamma_RNG ( <span class="keywordtype">double</span> a=1.0, <span class="keywordtype">double</span> b=1.0 ); |
109 | | <a name="l00050"></a>00050 <span class="keywordtype">void</span> setup ( <span class="keywordtype">double</span> a0, <span class="keywordtype">double</span> b0 ) { alpha=a0; beta=b0;} |
110 | | <a name="l00052"></a>00052 <span class="keywordtype">double</span> get_setup() <span class="keyword">const</span>; |
111 | | <a name="l00054"></a>00054 <span class="keywordtype">double</span> operator() () { <span class="keywordflow">return</span> sample(); } |
112 | | <a name="l00056"></a>00056 vec operator() ( <span class="keywordtype">int</span> n ); |
113 | | <a name="l00058"></a>00058 mat operator() ( <span class="keywordtype">int</span> h, <span class="keywordtype">int</span> w ); |
114 | | <a name="l00059"></a>00059 <span class="keyword">protected</span>: |
115 | | <a name="l00060"></a>00060 <span class="keyword">private</span>: |
116 | | <a name="l00062"></a>00062 <span class="keywordtype">double</span> sample(); |
117 | | <a name="l00064"></a>00064 <span class="keywordtype">double</span> alpha; |
118 | | <a name="l00066"></a>00066 <span class="keywordtype">double</span> beta; |
119 | | <a name="l00068"></a>00068 Random_Generator RNG; |
120 | | <a name="l00069"></a>00069 Normal_RNG NRNG; |
121 | | <a name="l00071"></a>00071 <span class="keyword">inline</span> <span class="keywordtype">double</span> exp_rand() {<span class="keywordflow">return</span> -std::log ( RNG.random_01() );} |
122 | | <a name="l00072"></a>00072 <span class="keyword">inline</span> <span class="keywordtype">double</span> unif_rand() {<span class="keywordflow">return</span> RNG.random_01();} |
123 | | <a name="l00073"></a>00073 <span class="keyword">inline</span> <span class="keywordtype">double</span> norm_rand() {<span class="keywordflow">return</span> NRNG.sample();} |
124 | | <a name="l00074"></a>00074 |
125 | | <a name="l00075"></a>00075 }; |
126 | | <a name="l00076"></a>00076 <span class="keywordtype">bool</span> qr ( <span class="keyword">const</span> mat &A, mat &R ); |
127 | | <a name="l00077"></a>00077 <span class="preprocessor">#endif</span> |
128 | | <a name="l00079"></a>00079 <span class="preprocessor"> std::string num2str(double d);</span> |
129 | | <a name="l00080"></a>00080 <span class="preprocessor"></span> |
130 | | <a name="l00082"></a>00082 std::string num2str(<span class="keywordtype">int</span> i); |
131 | | <a name="l00083"></a>00083 |
132 | | <a name="l00085"></a>00085 <span class="keywordtype">double</span> psi(<span class="keywordtype">double</span>); |
133 | | <a name="l00086"></a>00086 } |
134 | | <a name="l00087"></a>00087 |
135 | | <a name="l00088"></a>00088 |
136 | | <a name="l00089"></a>00089 <span class="preprocessor">#endif //ITEX_H</span> |
| 92 | <a name="l00029"></a>00029 bvec operator> ( <span class="keyword">const</span> vec &t1, <span class="keyword">const</span> vec &t2 ); |
| 93 | <a name="l00030"></a>00030 |
| 94 | <a name="l00031"></a>00031 bvec operator< ( <span class="keyword">const</span> vec &t1, <span class="keyword">const</span> vec &t2 ); |
| 95 | <a name="l00032"></a>00032 |
| 96 | <a name="l00033"></a>00033 <span class="comment">// template<class Num_T></span> |
| 97 | <a name="l00034"></a>00034 <span class="comment">// void set_subvector(vec &ov, ivec &iv, const Vec<Num_T> &v);</span> |
| 98 | <a name="l00035"></a>00035 |
| 99 | <a name="l00036"></a>00036 <span class="keywordtype">void</span> set_subvector ( vec &ov, <span class="keyword">const</span> ivec &iv, <span class="keyword">const</span> vec &v ); |
| 100 | <a name="l00037"></a>00037 |
| 101 | <a name="l00038"></a>00038 <span class="keyword">template</span><<span class="keyword">class</span> Num_T> <span class="keyword">inline</span> |
| 102 | <a name="l00039"></a>00039 <span class="keywordtype">void</span> set_col_part ( mat &M, <span class="keywordtype">int</span> c, <span class="keyword">const</span> Vec<Num_T> &v ) { |
| 103 | <a name="l00040"></a>00040 copy_vector ( v.size(), v._data(), M._data() + c*M.rows() ); |
| 104 | <a name="l00041"></a>00041 } |
| 105 | <a name="l00042"></a>00042 |
| 106 | <a name="l00043"></a>00043 <span class="keyword">const</span> <span class="keywordtype">double</span> inf = std::numeric_limits<double>::infinity(); |
| 107 | <a name="l00044"></a>00044 |
| 108 | <a name="l00045"></a>00045 <span class="preprocessor">#if 0</span> |
| 109 | <a name="l00046"></a>00046 <span class="preprocessor"></span> |
| 110 | <a name="l00050"></a>00050 <span class="keyword">class </span>Gamma_RNG { |
| 111 | <a name="l00051"></a>00051 <span class="keyword">public</span>: |
| 112 | <a name="l00053"></a>00053 Gamma_RNG ( <span class="keywordtype">double</span> a = 1.0, <span class="keywordtype">double</span> b = 1.0 ); |
| 113 | <a name="l00055"></a>00055 <span class="keywordtype">void</span> setup ( <span class="keywordtype">double</span> a0, <span class="keywordtype">double</span> b0 ) { |
| 114 | <a name="l00056"></a>00056 alpha = a0; |
| 115 | <a name="l00057"></a>00057 beta = b0; |
| 116 | <a name="l00058"></a>00058 } |
| 117 | <a name="l00060"></a>00060 <span class="keywordtype">double</span> get_setup() <span class="keyword">const</span>; |
| 118 | <a name="l00062"></a>00062 <span class="keywordtype">double</span> operator() () { |
| 119 | <a name="l00063"></a>00063 <span class="keywordflow">return</span> sample(); |
| 120 | <a name="l00064"></a>00064 } |
| 121 | <a name="l00066"></a>00066 vec operator() ( <span class="keywordtype">int</span> n ); |
| 122 | <a name="l00068"></a>00068 mat operator() ( <span class="keywordtype">int</span> h, <span class="keywordtype">int</span> w ); |
| 123 | <a name="l00069"></a>00069 <span class="keyword">protected</span>: |
| 124 | <a name="l00070"></a>00070 <span class="keyword">private</span>: |
| 125 | <a name="l00072"></a>00072 <span class="keywordtype">double</span> sample(); |
| 126 | <a name="l00074"></a>00074 <span class="keywordtype">double</span> alpha; |
| 127 | <a name="l00076"></a>00076 <span class="keywordtype">double</span> beta; |
| 128 | <a name="l00078"></a>00078 Random_Generator RNG; |
| 129 | <a name="l00079"></a>00079 Normal_RNG NRNG; |
| 130 | <a name="l00081"></a>00081 <span class="keyword">inline</span> <span class="keywordtype">double</span> exp_rand() { |
| 131 | <a name="l00082"></a>00082 <span class="keywordflow">return</span> -std::log ( RNG.random_01() ); |
| 132 | <a name="l00083"></a>00083 } |
| 133 | <a name="l00084"></a>00084 <span class="keyword">inline</span> <span class="keywordtype">double</span> unif_rand() { |
| 134 | <a name="l00085"></a>00085 <span class="keywordflow">return</span> RNG.random_01(); |
| 135 | <a name="l00086"></a>00086 } |
| 136 | <a name="l00087"></a>00087 <span class="keyword">inline</span> <span class="keywordtype">double</span> norm_rand() { |
| 137 | <a name="l00088"></a>00088 <span class="keywordflow">return</span> NRNG.sample(); |
| 138 | <a name="l00089"></a>00089 } |
| 139 | <a name="l00090"></a>00090 |
| 140 | <a name="l00091"></a>00091 }; |
| 141 | <a name="l00092"></a>00092 <span class="keywordtype">bool</span> qr ( <span class="keyword">const</span> mat &A, mat &R ); |
| 142 | <a name="l00093"></a>00093 <span class="preprocessor">#endif</span> |
| 143 | <a name="l00095"></a>00095 <span class="preprocessor">std::string num2str ( double d );</span> |
| 144 | <a name="l00096"></a>00096 <span class="preprocessor"></span> |
| 145 | <a name="l00098"></a>00098 std::string num2str ( <span class="keywordtype">int</span> i ); |
| 146 | <a name="l00099"></a>00099 |
| 147 | <a name="l00101"></a>00101 <span class="keywordtype">double</span> psi ( <span class="keywordtype">double</span> ); |
| 148 | <a name="l00102"></a>00102 |
| 149 | <a name="l00104"></a>00104 <span class="keywordtype">void</span> triu(mat &A); |
| 150 | <a name="l00105"></a>00105 } |
| 151 | <a name="l00106"></a>00106 |
| 152 | <a name="l00107"></a>00107 |
| 153 | <a name="l00108"></a>00108 <span class="preprocessor">#endif //ITEX_H</span> |