File: SimilarityDecomp.h

package info (click to toggle)
dynare 4.3.0-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 40,640 kB
  • sloc: fortran: 82,231; cpp: 72,734; ansic: 28,874; pascal: 13,241; sh: 4,300; objc: 3,281; yacc: 2,833; makefile: 1,288; lex: 1,162; python: 162; lisp: 54; xml: 8
file content (41 lines) | stat: -rw-r--r-- 1,170 bytes parent folder | download | duplicates (4)
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
/* $Header: /var/lib/cvs/dynare_cpp/sylv/cc/SimilarityDecomp.h,v 1.1.1.1 2004/06/04 13:00:44 kamenik Exp $ */

/* Tag $Name:  $ */

#ifndef SIMILARITY_DECOMP_H
#define SIMILARITY_DECOMP_H

#include "SylvMatrix.h"
#include "BlockDiagonal.h"
#include "SylvParams.h"

class SimilarityDecomp {
	SqSylvMatrix* q;
	BlockDiagonal* b;
	SqSylvMatrix* invq;
	typedef BlockDiagonal::diag_iter diag_iter;
public:
	SimilarityDecomp(const double* d, int d_size, double log10norm = 3.0);
	virtual ~SimilarityDecomp();
	const SqSylvMatrix& getQ() const
		{return *q;}
	const SqSylvMatrix& getInvQ() const
		{return *invq;}
	const BlockDiagonal& getB() const
		{return *b;}
	void check(SylvParams& pars, const GeneralMatrix& m) const;
	void infoToPars(SylvParams& pars) const;
protected:
	void getXDim(diag_iter start, diag_iter end, int& rows, int& cols) const;
	bool solveX(diag_iter start, diag_iter end, GeneralMatrix& X, double norm) const;
	void updateTransform(diag_iter start, diag_iter end, GeneralMatrix& X);
	void bringGuiltyBlock(diag_iter start, diag_iter& end);
	void diagonalize(double norm);
};

#endif /* SIMILARITY_DECOMP_H */


// Local Variables:
// mode:C++
// End: