nsfft_test.c
/*
* Copyright (c) 2002, 2017 Jens Keiner, Stefan Kunis, Daniel Potts
*
* This program is free software; you can redistribute it and/or modify it under
* the terms of the GNU General Public License as published by the Free Software
* Foundation; either version 2 of the License, or (at your option) any later
* version.
*
* This program is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
* details.
*
* You should have received a copy of the GNU General Public License along with
* this program; if not, write to the Free Software Foundation, Inc., 51
* Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*/
#include <stdio.h>
#include <math.h>
#include <string.h>
#include <stdlib.h>
#include <complex.h>
#include "nfft3.h"
#define CSWAP(x,y) {double _Complex * NFFT_SWAP_temp__; \
NFFT_SWAP_temp__=(x); (x)=(y); (y)=NFFT_SWAP_temp__;}
static void accuracy_nsfft(int d, int J, int M, int m)
{
nsfft_plan p;
double _Complex *swap_sndft_trafo, *swap_sndft_adjoint;
nsfft_init(&p, d, J, M, m, NSDFT);
swap_sndft_trafo=(double _Complex*) nfft_malloc(p.M_total*
sizeof(double _Complex));
swap_sndft_adjoint=(double _Complex*) nfft_malloc(p.N_total*
sizeof(double _Complex));
nsfft_init_random_nodes_coeffs(&p);
nsfft_trafo_direct(&p);
CSWAP(swap_sndft_trafo,p.f);
nsfft_trafo(&p);
printf("%5d\t %+.5E\t",J,
nfft_error_l_infty_1_complex(swap_sndft_trafo, p.f, p.M_total,
p.f_hat, p.N_total));
fflush(stdout);
nfft_vrand_unit_complex(p.f, p.M_total);
nsfft_adjoint_direct(&p);
CSWAP(swap_sndft_adjoint,p.f_hat);
nsfft_adjoint(&p);
printf("%+.5E\n",
nfft_error_l_infty_1_complex(swap_sndft_adjoint, p.f_hat,
p.N_total,
p.f, p.M_total));
fflush(stdout);
nfft_free(swap_sndft_adjoint);
nfft_free(swap_sndft_trafo);
nsfft_finalize(&p);
}
static void time_nsfft(int d, int J, int M, unsigned test_nsdft, unsigned test_nfft)
{
int r, N[d], n[d];
double t, t_nsdft, t_nfft, t_nsfft;
double t0, t1;
nsfft_plan p;
nfft_plan np;
for(r=0;r<d;r++)
{
N[r]= nfft_exp2i(J+2);
n[r]=(3*N[r])/2;
/*n[r]=2*N[r];*/
}
nsfft_init(&p, d, J, M, 4, NSDFT);
nsfft_init_random_nodes_coeffs(&p);
/* transforms */
if(test_nsdft)
{
t_nsdft=0;
r=0;
while(t_nsdft<0.1)
{
r++;
t0 = nfft_clock_gettime_seconds();
nsfft_trafo_direct(&p);
t1 = nfft_clock_gettime_seconds();
t = (t1 - t0);
t_nsdft+=t;
}
t_nsdft/=r;
}
else
t_nsdft=nan("");
if(test_nfft)
{
nfft_init_guru(&np,d,N,M,n,6, FG_PSI| MALLOC_F_HAT| MALLOC_F| FFTW_INIT,
FFTW_MEASURE);
np.x=p.act_nfft_plan->x;
if(np.flags & PRE_ONE_PSI)
nfft_precompute_one_psi(&np);
nsfft_cp(&p, &np);
t_nfft=0;
r=0;
while(t_nfft<0.1)
{
r++;
t0 = nfft_clock_gettime_seconds();
nfft_trafo(&np);
t1 = nfft_clock_gettime_seconds();
t = (t1 - t0);
t_nfft+=t;
}
t_nfft/=r;
nfft_finalize(&np);
}
else
{
t_nfft=nan("");
}
t_nsfft=0;
r=0;
while(t_nsfft<0.1)
{
r++;
t0 = nfft_clock_gettime_seconds();
nsfft_trafo(&p);
t1 = nfft_clock_gettime_seconds();
t = (t1 - t0);
t_nsfft+=t;
}
t_nsfft/=r;
printf("%d\t%.2e\t%.2e\t%.2e\n", J, t_nsdft, t_nfft, t_nsfft);
fflush(stdout);
nsfft_finalize(&p);
}
int main(int argc,char **argv)
{
int d, J, M;
if(argc<=2)
{
fprintf(stderr,"nsfft_test type d [first last trials]\n");
return -1;
}
d=atoi(argv[2]);
fprintf(stderr,"Testing the nfft on the hyperbolic cross (nsfft).\n");
if(atoi(argv[1])==1)
{
fprintf(stderr,"Testing the accuracy of the nsfft vs. nsdft\n");
fprintf(stderr,"Columns: d, E_{1,\\infty}(trafo) E_{1,\\infty}(adjoint)\n\n");
for(J=1; J<10; J++)
accuracy_nsfft(d, J, 1000, 6);
}
if(atoi(argv[1])==2)
{
fprintf(stderr,"Testing the computation time of the nsdft, nfft, and nsfft\n");
fprintf(stderr,"Columns: d, J, M, t_nsdft, t_nfft, t_nsfft\n\n");
for(J=atoi(argv[3]); J<=atoi(argv[4]); J++)
{
if(d==2)
M=(J+4)*nfft_exp2i(J+1);
else
M=6*nfft_exp2i(J)*(nfft_exp2i((J+1)/2+1)-1)+nfft_exp2i(3*(J/2+1));
if(d*(J+2)<=24)
time_nsfft(d, J, M, 1, 1);
else
if(d*(J+2)<=24)
time_nsfft(d, J, M, 0, 1);
else
time_nsfft(d, J, M, 0, 0);
}
}
return 1;
}
MALLOC_F_HAT
#define MALLOC_F_HAT
Definition: nfft3.h:200
FG_PSI
#define FG_PSI
Definition: nfft3.h:194
nsfft_plan::N_total
NFFT_INT N_total
Total number of Fourier coefficients.
Definition: nfft3.h:475
nsfft_init
void nsfft_init(nsfft_plan *ths, int d, int J, int M, int m, unsigned flags)
Definition: nsfft.c:1778
nsfft_plan::M_total
NFFT_INT M_total
Total number of samples.
Definition: nfft3.h:475
nfft_free
void nfft_free(void *p)
nsfft_plan::f
fftw_complex * f
Samples.
Definition: nfft3.h:475
nfft_plan
data structure for an NFFT (nonequispaced fast Fourier transform) plan with double precision ...
Definition: nfft3.h:192
nfft_vrand_unit_complex
void nfft_vrand_unit_complex(fftw_complex *x, const NFFT_INT n)
Inits a vector of random complex numbers in .
FFTW_INIT
#define FFTW_INIT
Definition: nfft3.h:203
nsfft_cp
void nsfft_cp(nsfft_plan *ths, nfft_plan *ths_nfft)
Definition: nsfft.c:599
MALLOC_F
#define MALLOC_F
Definition: nfft3.h:201
nfft_trafo
void nfft_trafo(nfft_plan *ths)
nfft_malloc
void * nfft_malloc(size_t n)
nfft_finalize
void nfft_finalize(nfft_plan *ths)
nfft_precompute_one_psi
void nfft_precompute_one_psi(nfft_plan *ths)
nsfft_init_random_nodes_coeffs
void nsfft_init_random_nodes_coeffs(nsfft_plan *ths)
Definition: nsfft.c:723
nsfft_adjoint
void nsfft_adjoint(nsfft_plan *ths)
Definition: nsfft.c:1549
nfft3.h
Header file for the nfft3 library.
nfft_plan::x
double * x
Nodes in time/spatial domain, size is doubles.
Definition: nfft3.h:192
nsfft_finalize
void nsfft_finalize(nsfft_plan *ths)
Definition: nsfft.c:1885
PRE_ONE_PSI
#define PRE_ONE_PSI
Definition: nfft3.h:206
nfft_plan::flags
unsigned flags
Flags for precomputation, (de)allocation, and FFTW usage, default setting is PRE_PHI_HUT | PRE_PSI | ...
Definition: nfft3.h:192
NSDFT
#define NSDFT
Definition: nfft3.h:476
nsfft_trafo
void nsfft_trafo(nsfft_plan *ths)
Definition: nsfft.c:1541
nsfft_plan
data structure for an NSFFT (nonequispaced sparse fast Fourier transform) plan with double precision ...
Definition: nfft3.h:475
nsfft_plan::act_nfft_plan
nfft_plan * act_nfft_plan
current nfft block
Definition: nfft3.h:475
CSWAP
#define CSWAP(x, y)
Swap two vectors.
Definition: infft.h:139
nsfft_plan::f_hat
fftw_complex * f_hat
Fourier coefficients.
Definition: nfft3.h:475