view liboctave/numeric/base-qr.h @ 18883:aa9ca67f09fb

make all permutation matrices column permutations (bug #42418) Making all permutation matrices column permutations allows permutation matrices to be iterated over in column-major order just like any other matrix. * PermMatrix.h, PermMatrix.cc (PermMatrix::_colp): Delete member variable and all uses. (PermMatrix::transpose): Create new matrix with internal representation flipped. (PermMatrix::pos_power): New function. (PermMatrix::eye): Call the one-argument constructor which already defaults to the identity matrix. (PermMatrix::is_col_perm): Unconditionally return true. (PermMatrix::is_row_perm): Unconditionally return false. (PermMatrix::data, PermMatrix::fortran_vec, PermMatrix::pvec): Delete. (PermMatrix::col_perm_vec): New function. * lu.cc: New test. * base-lu.cc (base_lu<lu_type>::base_lu): Call transpose in ipvt initialization. * find.cc, kron.cc, pr-output.cc, ov-perm.cc, PermMatrix.cc, PermMatrix.h, Sparse.cc, dMatrix.cc, fMatrix.cc, CmplxQRP.cc, base-lu.cc, dbleQRP.cc, fCmplxQRP.cc, floatQRP.cc, Sparse-perm-op-defs.h, mx-op-defs.h: Adapt to PermMatrix changes.
author David Spies <dnspies@gmail.com>
date Wed, 18 Jun 2014 19:38:40 -0600
parents 49a5a4be04a1
children 4197fc428c7d
line wrap: on
line source

/*

Copyright (C) 2009-2013 Jaroslav Hajek

This file is part of Octave.

Octave is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 3 of the License, or (at your
option) any later version.

Octave is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License
along with Octave; see the file COPYING.  If not, see
<http://www.gnu.org/licenses/>.

*/

#if !defined (octave_base_qr_h)
#define octave_base_qr_h 1

#include "MArray.h"
#include "dColVector.h"
#include "PermMatrix.h"

enum qr_type_t
{
  qr_type_std,
  qr_type_raw,
  qr_type_economy
};

template <class qr_type>
class
base_qr
{
public:

  typedef typename qr_type::element_type qr_elt_type;

  base_qr (void) : q (), r () { }

  base_qr (const qr_type& q, const qr_type& r);

  base_qr (const base_qr& a) : q (a.q), r (a.r) { }

  base_qr& operator = (const base_qr& a)
  {
    if (this != &a)
      {
        q = a.q;
        r = a.r;
      }
    return *this;
  }

  virtual ~base_qr (void) { }

  qr_type Q (void) const { return q; }

  qr_type R (void) const { return r; }

  qr_type_t get_type (void) const;

  bool regular (void) const;

protected:

  qr_type q;
  qr_type r;
};

#ifndef HAVE_QRUPDATE
void warn_qrupdate_once (void);
#endif

#endif