GitHub-Proxy/eigen
1
0
Fork 0
mirror of https://gitlab.com/libeigen/eigen.git synced 2025-07-10 23:21:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix FFTW unit test with clang

Browse Source 
(grafted from 3bb57e21a8e56917e490a514ab7ebfd3cd3811ab
)
This commit is contained in:
Gael Guennebaud 2014-02-17 09:56:46 +01:00
parent 3f5591981f
commit e3d34064bf
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
unsupported/test/FFTW.cpp
View File

@ -16,9 +16,6 @@ std::complex<T> RandomCpx() { return std::complex<T>( (T)(rand()/(T)RAND_MAX - .
using namespace std; using namespace std;
using namespace Eigen; using namespace Eigen;
float norm(float x) {return x*x;}
double norm(double x) {return x*x;}
long double norm(long double x) {return x*x;}
template < typename T> template < typename T>
complex<long double> promote(complex<T> x) { return complex<long double>(x.real(),x.imag()); } complex<long double> promote(complex<T> x) { return complex<long double>(x.real(),x.imag()); }
@ -40,11 +37,11 @@ complex<long double> promote(long double x) { return complex<long double>( x);
for (size_t k1=0;k1<(size_t)timebuf.size();++k1) { for (size_t k1=0;k1<(size_t)timebuf.size();++k1) {
acc += promote( timebuf[k1] ) * exp( complex<long double>(0,k1*phinc) ); acc += promote( timebuf[k1] ) * exp( complex<long double>(0,k1*phinc) );
} }
totalpower += norm(acc); totalpower += numext::abs2(acc);
complex<long double> x = promote(fftbuf[k0]); complex<long double> x = promote(fftbuf[k0]);
complex<long double> dif = acc - x; complex<long double> dif = acc - x;
difpower += norm(dif); difpower += numext::abs2(dif);
//cerr << k0 << "\t" << acc << "\t" << x << "\t" << sqrt(norm(dif)) << endl; //cerr << k0 << "\t" << acc << "\t" << x << "\t" << sqrt(numext::abs2(dif)) << endl;
} }
cerr << "rmse:" << sqrt(difpower/totalpower) << endl; cerr << "rmse:" << sqrt(difpower/totalpower) << endl;
return sqrt(difpower/totalpower); return sqrt(difpower/totalpower);
@ -57,8 +54,8 @@ complex<long double> promote(long double x) { return complex<long double>( x);
long double difpower=0; long double difpower=0;
size_t n = (min)( buf1.size(),buf2.size() ); size_t n = (min)( buf1.size(),buf2.size() );
for (size_t k=0;k<n;++k) { for (size_t k=0;k<n;++k) {
totalpower += (norm( buf1[k] ) + norm(buf2[k]) )/2.; totalpower += (numext::abs2( buf1[k] ) + numext::abs2(buf2[k]) )/2.;
difpower += norm(buf1[k] - buf2[k]); difpower += numext::abs2(buf1[k] - buf2[k]);
} }
return sqrt(difpower/totalpower); return sqrt(difpower/totalpower);
} }