/usr/share/doc/liblinbox-dev/examples/athadet.C is in liblinbox-dev 1.4.2-5build1.
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 | /*
* examples/athadet.C
*
* Copyright (C) 2007, 2010 S. Guelton
* ========LICENCE========
* This file is part of the library LinBox.
*
* LinBox is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* This library 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
* ========LICENCE========
*/
/**\file examples/athadet.C
* @example examples/athadet.C
\brief Determinant of sparse matrix over Z or Zp.
\ingroup examples
@author serge.guelton@imag.fr
*/
/*
* to be compiled with kaapi library **svn sources**, available at http://gforge.inria.fr
* g++ -o atahdet athadet.C $(pkg-config --cflags --libs kaapi) -g3 $( linbox-config --cflags --libs)
* or
* g++ -o atahdet athadet.C $KAAPI_CPPFLAGS $KAAPI_LDFLAGS -g3 $( linbox-config --cflags --libs)
*/
#define __LINBOX_HAVE_KAAPI
#include <iostream>
#include <string>
#include <linbox/ring/modular.h>
#include <linbox/ring/gmp-integers.h>
#include <linbox/matrix/sparse-matrix.h>
#include <linbox/solutions/det.h>
#include <linbox/util/matrix-stream.h>
using namespace LinBox;
using namespace std;
typedef Givaro::ZRing<Integer> Integers;
struct cra_det_task {
void operator()(int argc, char **argv) {
ifstream input (argv[1]);
if (!input) {
cerr << "Error opening matrix file '" << argv[1] << "'" << endl;
return ;
}
Util::logfile() << "creating matrix" << std::endl;
Integers ZZ;
SparseMatrix<Integers> sparseMatrix (ZZ);
sparseMatrix.read(input);
Util::logfile() << "matrix created" << std::endl;
Givaro::ZRing<Integer>::Element det_A;
try {
cra_det(det_A, sparseMatrix, RingCategories::IntegerTag(), Method::Hybrid() );
}
catch ( LinBox::LinboxError & err ) {
std::cerr << err << std::endl;
}
cout << "Determinant is ";
ZZ.write(cout, det_A) << endl;
}
};
int main (int argc, char **argv)
{
if(argc<2) {
cerr << "not enough args : usage = athadet file" << endl;
return 1;
}
a1::Community com = a1::System::join_community(argc,argv);
Util::logfile() << "starting job" << std::endl;
a1::ForkMain<cra_det_task>()(argc,argv);
com.leave();
a1::System::terminate();
return 0;
}
// vim:sts=8:sw=8:ts=8:noet:sr:cino=>s,f0,{0,g0,(0,:0,t0,+0,=s
// Local Variables:
// mode: C++
// tab-width: 8
// indent-tabs-mode: nil
// c-basic-offset: 8
// End:
|