Mercurial > octave-nkf
comparison liboctave/array/fCDiagMatrix.cc @ 18494:1fa5bba16218
[mq]: pinv
| author | Rik <rik@octave.org> |
|---|---|
| date | Tue, 18 Feb 2014 09:39:36 -0800 |
| parents | 16b0cd465ecd |
| children | 80b8873c90ba |
comparison
equal
deleted
inserted
replaced
| 18487:8473198fd005 | 18494:1fa5bba16218 |
|---|---|
| 396 FloatComplexDiagMatrix retval (c, r); | 396 FloatComplexDiagMatrix retval (c, r); |
| 397 | 397 |
| 398 for (octave_idx_type i = 0; i < len; i++) | 398 for (octave_idx_type i = 0; i < len; i++) |
| 399 { | 399 { |
| 400 float val = std::abs (elem (i, i)); | 400 float val = std::abs (elem (i, i)); |
| 401 if (val < tol || val == 0.0f) | 401 if (val < tol) |
| 402 retval.elem (i, i) = 0.0f; | 402 retval.elem (i, i) = 0.0f; |
| 403 else | 403 else if (val != 0.0f) |
| 404 retval.elem (i, i) = 1.0f / val; | 404 retval.elem (i, i) = 1.0f / elem (i, i); |
| 405 } | 405 } |
| 406 | 406 |
| 407 return retval; | 407 return retval; |
| 408 } | 408 } |
| 409 | 409 |