fftw_test_basic.cpp

Go to the documentation of this file.
00001 #include "CTsSpectrum.h"
00002 #include "../Abstract Classes/types.h"
00003 #include <fstream>
00004 #include <iostream>
00005 #include <miscfunc.h>
00006 #include <fstream>
00007 #include <boost/lambda/lambda.hpp>
00008 #include <boost/numeric/ublas/vector.hpp>
00009 using namespace std;
00010 
00011 int main ()
00012 {
00013         CTsSpectrum Spectrum1(true);
00014         const int points = 200;
00015         const double PI = 3.14159265359;
00016         //ttsdata TimeSeries1(points);
00017         //ttsdata TimeSeries2(points);
00018         //ttsdata CorrTs(points,0);
00019         //tcompdata FreqDomain1(TimeSeries1.size()/2+1,0);
00020         
00021         ublas::vector<double> TimeSeries1(points);
00022         ublas::vector<double> TimeSeries2(points);
00023         ublas::vector<double> CorrTs(points);
00024         ublas::vector<complex<double> > FreqDomain1(TimeSeries1.size()/2+1);
00025         const int calculations = 100;
00026         //TimeSeries1.assign(points,0);
00027         //Spectrum1.TsData->insert(Spectrum1.TsData->end(),points,1);
00028         for (int i = 0; i < points; ++i)
00029                 TimeSeries1(i)=sin(4 * PI * i/points);
00030         
00031         Spectrum1.CalcSpectrum(TimeSeries1.begin(),TimeSeries1.end(),FreqDomain1.begin(),FreqDomain1.end());
00032         Convolve(TimeSeries1,TimeSeries1,CorrTs);
00033         ofstream tsfile("tsold");
00034         for (int i = 0; i < TimeSeries1.size(); ++i)
00035                 tsfile << TimeSeries1(i) << CorrTs(i) << endl;
00036         Spectrum1.CalcTimeSeries(FreqDomain1.begin(),FreqDomain1.end(),TimeSeries2.begin(),TimeSeries2.end());
00037         ofstream newfile("tsnew");
00038         for (int i = 0; i < TimeSeries2.size(); ++i)
00039                 newfile << TimeSeries2(i) << endl;      
00040 }

Generated on Tue Aug 4 16:04:06 2009 for GPLIB++ by  doxygen 1.5.8