00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023 #if !defined (octave_base_lu_h)
00024 #define octave_base_lu_h 1
00025
00026 #include "MArray.h"
00027 #include "dColVector.h"
00028 #include "PermMatrix.h"
00029
00030 template <class lu_type>
00031 class
00032 base_lu
00033 {
00034 public:
00035
00036 typedef typename lu_type::element_type lu_elt_type;
00037
00038 base_lu (void) { }
00039
00040 base_lu (const base_lu& a) :
00041 a_fact (a.a_fact), l_fact (a.l_fact), ipvt (a.ipvt) { }
00042
00043 base_lu (const lu_type& l, const lu_type& u,
00044 const PermMatrix& p);
00045
00046 base_lu& operator = (const base_lu& a)
00047 {
00048 if (this != &a)
00049 {
00050 a_fact = a.a_fact;
00051 l_fact = a.l_fact;
00052 ipvt = a.ipvt;
00053 }
00054 return *this;
00055 }
00056
00057 ~base_lu (void) { }
00058
00059 bool packed (void) const;
00060
00061 void unpack (void);
00062
00063 lu_type L (void) const;
00064
00065 lu_type U (void) const;
00066
00067 lu_type Y (void) const;
00068
00069 PermMatrix P (void) const;
00070
00071 ColumnVector P_vec (void) const;
00072
00073 bool regular (void) const;
00074
00075 protected:
00076
00077 Array<octave_idx_type> getp (void) const;
00078 lu_type a_fact, l_fact;
00079 Array<octave_idx_type> ipvt;
00080 };
00081
00082 #endif
00083
00084
00085
00086
00087
00088