Mercurial > hg > octave-nkf
comparison liboctave/PermMatrix.cc @ 9708:6f3ffe11d926
implement luupdate
| author | Jaroslav Hajek <highegg@gmail.com> |
|---|---|
| date | Thu, 08 Oct 2009 16:05:53 +0200 |
| parents | 9fba7e1da785 |
| children | c6b97d218345 |
comparison
equal
deleted
inserted
replaced
| 9707:6f5c4c82c5fc | 9708:6f3ffe11d926 |
|---|---|
| 175 while (jcs != ics); | 175 while (jcs != ics); |
| 176 | 176 |
| 177 } | 177 } |
| 178 | 178 |
| 179 return PermMatrix (res_pvec, res_colp, false); | 179 return PermMatrix (res_pvec, res_colp, false); |
| 180 } | |
| 181 | |
| 182 PermMatrix | |
| 183 PermMatrix::eye (octave_idx_type n) | |
| 184 { | |
| 185 Array<octave_idx_type> p(n); | |
| 186 for (octave_idx_type i = 0; i < n; i++) | |
| 187 p(i) = i; | |
| 188 | |
| 189 return PermMatrix (p, false, false); | |
| 180 } | 190 } |
| 181 | 191 |
| 182 PermMatrix | 192 PermMatrix |
| 183 operator *(const PermMatrix& a, const PermMatrix& b) | 193 operator *(const PermMatrix& a, const PermMatrix& b) |
| 184 { | 194 { |