Mercurial > hg > octave-lyh

comparison liboctave/CDiagMatrix.cc @ 1989:a4b0826e240c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-03-02 00:33:22 by jwe]
author jwe
date Sat, 02 Mar 1996 00:34:12 +0000
parents 1281a23a34dd
children 1b57120c997b
comparison
equal deleted inserted replaced
1988:7b56630a1e05 1989:a4b0826e240c
36 #include "mx-inlines.cc" 36 #include "mx-inlines.cc"
37 #include "oct-cmplx.h" 37 #include "oct-cmplx.h"
38 38
39 // Complex Diagonal Matrix class 39 // Complex Diagonal Matrix class
40 40
41 ComplexDiagMatrix::ComplexDiagMatrix (const RowVector& a)
42 : MDiagArray<Complex> (a.length ())
43 {
44 for (int i = 0; i < length (); i++)
45 elem (i, i) = a.elem (i);
46 }
47
48 ComplexDiagMatrix::ComplexDiagMatrix (const ColumnVector& a)
49 : MDiagArray<Complex> (a.length ())
50 {
51 for (int i = 0; i < length (); i++)
52 elem (i, i) = a.elem (i);
53 }
54
55 ComplexDiagMatrix::ComplexDiagMatrix (const DiagMatrix& a) 41 ComplexDiagMatrix::ComplexDiagMatrix (const DiagMatrix& a)
56 : MDiagArray<Complex> (a.rows (), a.cols ()) 42 : MDiagArray2<Complex> (a.rows (), a.cols ())
57 { 43 {
58 for (int i = 0; i < length (); i++) 44 for (int i = 0; i < length (); i++)
59 elem (i, i) = a.elem (i, i); 45 elem (i, i) = a.elem (i, i);
60 } 46 }
61 47