/usr/include/eclib/mat.h is in libec-dev 2013-01-01-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 | // mat.h: declarations for integer matrix classes
//////////////////////////////////////////////////////////////////////////
//
// Copyright 1990-2012 John Cremona
//
// This file is part of the mwrank package.
//
// mwrank 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 2 of the License, or (at your
// option) any later version.
//
// mwrank 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 mwrank; if not, write to the Free Software Foundation,
// Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
//
//////////////////////////////////////////////////////////////////////////
// Not to be included directly by user: use matrix.h
//
// SCALAR_OPTION must be set to 1 or 2 by including file
#ifndef LONG_MIN
#define LONG_MIN (-LONG_MAX-1)
#endif
#ifndef INT_MIN
#define INT_MIN (-INT_MAX-1)
#endif
class mat {
friend class subspace;
friend class mat_m;
friend class smat;
friend class svec;
friend class smat_elim;
public:
// constructors
mat(long nr=0, long nc=0);
mat(const mat&); // copy constructor
// destructor
~mat();
// member functions & operators
void init(long nr=0, long nc=0);
mat& operator=(const mat&); // assignment with copy
scalar& operator()(long i, long j) const; // returns ref to (i,j) entry
mat slice(long,long,long=-1,long=-1) const;// returns submatrix
scalar sub(long i, long j) const; // returns the (i,j) entry
vec row(long i) const; // returns row i (as a vec)
vec col(long j) const; // returns col j (as a vec)
void set(long i, long j, scalar x); // sets the (i,j) entry to x
void add(long i, long j, scalar x); // adds x to the (i,j) entry
void setrow(long i, const vec& v);
void setcol(long i, const vec& v);
void swaprows(long r1, long r2);
void multrow(long r, scalar scal);
void divrow(long r, scalar scal);
void clearrow(long r);
mat& operator+=(const mat&);
mat& operator-=(const mat&);
mat& operator*=(scalar);
mat& operator/=(scalar);
const scalar* get_entries()const{return entries;}
void output(ostream&s=cout) const;
void output_pari(ostream&s=cout) const;
void output_pretty(ostream&s=cout) const;
void dump_to_file(string filename) const; // binary output
void read_from_file(string filename); // binary input
// non-member (friend) functions and operators
friend long nrows(const mat&);
friend long ncols(const mat&);
friend void add_row_to_vec(vec& v, const mat& m, long i);
friend void sub_row_to_vec(vec& v, const mat& m, long i);
friend mat operator*(const mat&, const mat&);
friend vec operator*(const mat&, const vec&);
friend int operator==(const mat&, const mat&);
friend istream& operator>> (istream&s, mat&);
friend mat colcat(const mat& a, const mat& b);
friend mat rowcat(const mat& a, const mat& b);
friend mat directsum(const mat& a, const mat& b);
friend void elimrows(mat& m, long r1, long r2, long pos); //plain elimination, no clearing
friend void elimrows1(mat& m, long r1, long r2, long pos); //elimination + clearing
friend void elimrows2(mat& m, long r1, long r2, long pos, scalar last); //elimination + divide by last pivot
friend mat echelon0(const mat& m, vec& pcols, vec& npcols,
long& rk, long& ny, scalar& d);
friend mat echelonl(const mat& m, vec& pcols, vec& npcols,
long& rk, long& ny, scalar& d);
friend void elimp(const mat& m, long r1, long r2, long pos, scalar pr);
friend void elimp1(const mat& m, long r1, long r2, long pos, scalar pr);
friend mat echelonp(const mat& m, vec& pcols, vec& npcols,
long& rk, long& ny, scalar& d, scalar pr);
friend mat echmodp(const mat& m, vec& pcols, vec& npcols,
long& rk, long& ny, scalar pr);
friend mat echmodp_uptri(const mat& m, vec& pcols, vec& npcols,
long& rk, long& ny, scalar pr);
friend mat ref_via_flint(const mat& M, vec& pcols, vec& npcols,
long& rk, long& ny, scalar pr);
friend subspace combine(const subspace& s1, const subspace& s2);
friend mat restrict_mat(const mat& m, const subspace& s, int cr);
friend mat liftmat(const mat& mm, scalar pr, scalar& dd, int trace=0);
friend subspace lift(const subspace& s, scalar pr, int trace=0);
friend subspace pcombine(const subspace& s1, const subspace& s2, scalar pr);
friend mat prestrict(const mat& m, const subspace& s, scalar pr, int cr);
friend mat matmulmodp(const mat&, const mat&, scalar pr);
friend mat echmodp_d(const mat& mat, vec& pcols, vec& npcols, long& rk, long& ny, double pr);
friend double sparsity(const mat& m);
// Implementation
private:
long nro,nco;
scalar * entries; // stored in one array, by rows
};
// Declaration of non-friend functions
inline ostream& operator<< (ostream&s, const mat&m)
{m.output(s); return s;}
mat operator+(const mat&); // unary
mat operator-(const mat&); // unary
mat operator+(const mat& m1, const mat& m2);
mat operator-(const mat& m1, const mat& m2);
mat operator*(scalar scal, const mat& m);
mat operator/(const mat& m, scalar scal);
int operator!=(const mat& m1, const mat& m2);
mat idmat(scalar n);
mat transpose(const mat& m);
mat submat(const mat& m, const vec& iv, const vec& jv);
mat echelon(const mat& m, vec& pcols, vec& npcols,
long& rk, long& ny, scalar& d, int method=0); // default method 0: scalars
long rank(const mat&);
long nullity(const mat&);
long trace(const mat&);
vector<long> charpoly(const mat&);
long determinant(const mat&);
mat addscalar(const mat&, scalar);
vec apply(const mat&, const vec&);
|