Mercurial > hg > octave-lyh

comparison liboctave/dbleQR.h @ 1921:ce0db0ca0729

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-02-11 02:31:58 by jwe]
author jwe
date Sun, 11 Feb 1996 02:31:58 +0000
parents 950825cea083
children e379c781ae7e
comparison
equal deleted inserted replaced
1920:6fdb56b2cb33 1921:ce0db0ca0729
42 std, 42 std,
43 raw, 43 raw,
44 economy, 44 economy,
45 }; 45 };
46 46
47 QR (void) : q (), r () { } 47 QR (void) : q (), r (), tau (0), work (0), tmp_data (0) { }
48 48
49 QR (const Matrix& A, type qr_type = QR::std); 49 QR (const Matrix& A, type qr_type = QR::std);
50 50
51 QR (const QR& a) : q (a.q), r (a.r) { } 51 QR (const QR& a) : q (a.q), r (a.r) { }
52 52
58 r = a.r; 58 r = a.r;
59 } 59 }
60 return *this; 60 return *this;
61 } 61 }
62 62
63 ~QR (void)
64 {
65 delete [] tau;
66 delete [] work;
67 delete [] tmp_data;
68 }
69
63 Matrix Q (void) const { return q; } 70 Matrix Q (void) const { return q; }
64 71
65 Matrix R (void) const { return r; } 72 Matrix R (void) const { return r; }
66 73
67 friend ostream& operator << (ostream& os, const QR& a); 74 friend ostream& operator << (ostream& os, const QR& a);
68 75
69 protected: 76 protected:
70 77
71 Matrix q; 78 Matrix q;
72 Matrix r; 79 Matrix r;
80
81 double *tau;
82 double *work;
83 double *tmp_data;
73 }; 84 };
74 85
75 #endif 86 #endif
76 87
77 /* 88 /*