Mercurial > octave
comparison liboctave/CColVector.cc @ 1321:64819a909ed7
[project @ 1995-08-22 05:39:43 by jwe]
| author | jwe |
|---|---|
| date | Tue, 22 Aug 1995 05:41:48 +0000 |
| parents | 611d403c7f3d |
| children | 7eb93d12654c |
comparison
equal
deleted
inserted
replaced
| 1320:c9aecc02c6d4 | 1321:64819a909ed7 |
|---|---|
| 629 ComplexColumnVector result (nr); | 629 ComplexColumnVector result (nr); |
| 630 | 630 |
| 631 for (int i = 0; i < a_len; i++) | 631 for (int i = 0; i < a_len; i++) |
| 632 result.elem (i) = a.elem (i) * m.elem (i, i); | 632 result.elem (i) = a.elem (i) * m.elem (i, i); |
| 633 | 633 |
| 634 for (i = a_len; i < nr; i++) | 634 for (int i = a_len; i < nr; i++) |
| 635 result.elem (i) = 0.0; | 635 result.elem (i) = 0.0; |
| 636 | 636 |
| 637 return result; | 637 return result; |
| 638 } | 638 } |
| 639 | 639 |
| 656 ComplexColumnVector result (nr); | 656 ComplexColumnVector result (nr); |
| 657 | 657 |
| 658 for (int i = 0; i < a_len; i++) | 658 for (int i = 0; i < a_len; i++) |
| 659 result.elem (i) = a.elem (i) * m.elem (i, i); | 659 result.elem (i) = a.elem (i) * m.elem (i, i); |
| 660 | 660 |
| 661 for (i = a_len; i < nr; i++) | 661 for (int i = a_len; i < nr; i++) |
| 662 result.elem (i) = 0.0; | 662 result.elem (i) = 0.0; |
| 663 | 663 |
| 664 return result; | 664 return result; |
| 665 } | 665 } |
| 666 | 666 |
| 683 ComplexColumnVector result (nr); | 683 ComplexColumnVector result (nr); |
| 684 | 684 |
| 685 for (int i = 0; i < a_len; i++) | 685 for (int i = 0; i < a_len; i++) |
| 686 result.elem (i) = a.elem (i) * m.elem (i, i); | 686 result.elem (i) = a.elem (i) * m.elem (i, i); |
| 687 | 687 |
| 688 for (i = a_len; i < nr; i++) | 688 for (int i = a_len; i < nr; i++) |
| 689 result.elem (i) = 0.0; | 689 result.elem (i) = 0.0; |
| 690 | 690 |
| 691 return result; | 691 return result; |
| 692 } | 692 } |
| 693 | 693 |