2
/// This file is part of Rheolef.
4
/// Copyright (C) 2000-2009 Pierre Saramito <Pierre.Saramito@imag.fr>
6
/// Rheolef is free software; you can redistribute it and/or modify
7
/// it under the terms of the GNU General Public License as published by
8
/// the Free Software Foundation; either version 2 of the License, or
9
/// (at your option) any later version.
11
/// Rheolef is distributed in the hope that it will be useful,
12
/// but WITHOUT ANY WARRANTY; without even the implied warranty of
13
/// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14
/// GNU General Public License for more details.
16
/// You should have received a copy of the GNU General Public License
17
/// along with Rheolef; if not, write to the Free Software
18
/// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
20
/// =========================================================================
21
// usage: tensor_eig_tst | octave -q
23
using namespace rheolef;
26
int eig_check (const tensor& a, size_t dim) {
28
point d = a.eig (q,dim);
29
tensor err_a = a - q*diag(d)*trans(q);
30
Float err = norm(err_a);
31
cout << setprecision(15) << matlab
32
<< "a = " ; a.put(cout,dim); cout << endl
33
<< "d = " ; diag(d).put(cout,dim); cout << endl
34
<< "q = " ; q.put(cout,dim); cout << endl
35
<< "err = norm(a-q*d*q')" << endl
36
<< "%err =" << err << endl
38
return (err < 1e-10) ? 0 : 1;
46
return eig_check (a, 2);
59
return eig_check (a, 3);
61
int main(int argc, char**argv) {
63
status |= eig2x2_tst() ;
64
status |= eig3x3_tst() ;