Subversion Repositories gelsvn

Rev

Rev 207 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
39 bj 1 
#include <iostream>
2 
 
3 
#include "QEM.h"
4 
#include "LinAlg/LapackFunc.h"
5 
 
6 
using namespace LinAlg;
7 
using namespace CGLA;
8 
using namespace std;
9 
 
10 
namespace Geometry
11 
{
12 
	Vec3f QEM::opt_pos(double sv_thresh) const
13 
	{
14 
		CMatrix A_num(A);
15 
		CVector b_num(b);
16 
 
17 
		CMatrix U;
18 
		CMatrix V;
19 
		CVector s;
20 
		SVD(A_num,U,s,V);
21 
 
22 
// 		double sm = sv_thresh*s[0];
23 
// 		for(int i=1;i<3;++i)
24 
// 			{
25 
// 				if(fabs(s[i])< sm)
26 
// 					s[i] = 0;
27 
// 			}
28 
 
29 
		CMatrix A_inv = (V * s) * U;
30 
 
31 
		CVector x(3);
32 
		x = A_inv * b_num;
33 
		Vec3f p(-x[0], -x[1], -x[2]);
34 
		if(s[0] == 0)
35 
			{
36 
				cout << A << b << s << U << V << endl;
37 
			}
38 
 
39 
 
40 
		return p;
41 
	}
42 
}