Mercurial > octave-nkf

comparison liboctave/CmplxQRP.h @ 1922:8a57554f3142

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-02-11 02:53:20 by jwe]
author jwe
date Sun, 11 Feb 1996 02:53:20 +0000
parents 950825cea083
children 20353fa5f83d
comparison
equal deleted inserted replaced
1921:ce0db0ca0729 1922:8a57554f3142
35 class 35 class
36 ComplexQRP : public ComplexQR 36 ComplexQRP : public ComplexQR
37 { 37 {
38 public: 38 public:
39 39
40 ComplexQRP (void) : ComplexQR (), p () { } 40 ComplexQRP (void) : ComplexQR (), p (), jpvt (0), rwork (0) { }
41 41
42 ComplexQRP (const ComplexMatrix& A, QR::type qr_type = QR::std); 42 ComplexQRP (const ComplexMatrix& A, QR::type qr_type = QR::std);
43 43
44 ComplexQRP (const ComplexQRP& a) : ComplexQR (a), p (a.p) { } 44 ComplexQRP (const ComplexQRP& a) : ComplexQR (a), p (a.p) { }
45 45
51 p = a.p; 51 p = a.p;
52 } 52 }
53 return *this; 53 return *this;
54 } 54 }
55 55
56 ~ComplexQRP (void)
57 {
58 delete [] jpvt;
59 delete [] rwork;
60 }
61
56 Matrix P (void) const { return p; } 62 Matrix P (void) const { return p; }
57 63
58 friend ostream& operator << (ostream& os, const ComplexQRP& a); 64 friend ostream& operator << (ostream& os, const ComplexQRP& a);
59 65
60 private: 66 private:
61 67
62 Matrix p; 68 Matrix p;
69
70 int *jpvt;
71 double *rwork;
63 }; 72 };
64 73
65 #endif 74 #endif
66 75
67 /* 76 /*