fastsum_matlab.c

Go to the documentation of this file.

/*
 * Copyright (c) 2002, 2012 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.
 */

/* $Id: fastsum_matlab.c 3775 2012-06-02 16:39:48Z keiner $ */

#include "config.h"

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#ifdef HAVE_COMPLEX_H
  #include <complex.h>
#endif

#include "fastsum.h"
#include "kernels.h"
#include "infft.h"

int main(int argc, char **argv)
{
  int j,k,t;                                         
  int d;                                             
  int N;                                             
  int M;                                             
  int n;                                             
  int m;                                             
  int p;                                             
  char *s;                                           
  double _Complex (*kernel)(double , int , const double *);  
  double c;                                          
  fastsum_plan my_fastsum_plan;                      
  double _Complex *direct;                           
  ticks t0, t1;                                      
  double time;                                       
  double error=0.0;                                  
  double eps_I;                                      
  double eps_B;                                      
  FILE *fid1, *fid2;
  double temp;

  if (argc!=11)
  {
    printf("\nfastsum_test d N M n m p kernel c\n\n");
    printf("  d       dimension                 \n");
    printf("  N       number of source nodes    \n");
    printf("  M       number of target nodes    \n");
    printf("  n       expansion degree          \n");
    printf("  m       cut-off parameter         \n");
    printf("  p       degree of smoothness      \n");
    printf("  kernel  kernel function  (e.g., gaussian)\n");
    printf("  c       kernel parameter          \n");
    printf("  eps_I   inner boundary            \n");
    printf("  eps_B   outer boundary            \n\n");
    exit(-1);
  }
  else
  {
    d=atoi(argv[1]);
    N=atoi(argv[2]); c=1.0/pow((double)N,1.0/(double)d);
    M=atoi(argv[3]);
    n=atoi(argv[4]);
    m=atoi(argv[5]);
    p=atoi(argv[6]);
    s=argv[7];
    c=atof(argv[8]);
    eps_I=atof(argv[9]);
    eps_B=atof(argv[10]);
    if (strcmp(s,"gaussian")==0)
      kernel = gaussian;
    else if (strcmp(s,"multiquadric")==0)
      kernel = multiquadric;
    else if (strcmp(s,"inverse_multiquadric")==0)
      kernel = inverse_multiquadric;
    else if (strcmp(s,"logarithm")==0)
      kernel = logarithm;
    else if (strcmp(s,"thinplate_spline")==0)
      kernel = thinplate_spline;
    else if (strcmp(s,"one_over_square")==0)
      kernel = one_over_square;
    else if (strcmp(s,"one_over_modulus")==0)
      kernel = one_over_modulus;
    else if (strcmp(s,"one_over_x")==0)
      kernel = one_over_x;
    else if (strcmp(s,"inverse_multiquadric3")==0)
      kernel = inverse_multiquadric3;
    else if (strcmp(s,"sinc_kernel")==0)
      kernel = sinc_kernel;
    else if (strcmp(s,"cosc")==0)
      kernel = cosc;
    else if (strcmp(s,"cot")==0)
      kernel = kcot;
    else
    {
      s="multiquadric";
      kernel = multiquadric;
    }
  }
  printf("d=%d, N=%d, M=%d, n=%d, m=%d, p=%d, kernel=%s, c=%g, eps_I=%g, eps_B=%g \n",d,N,M,n,m,p,s,c,eps_I,eps_B);

  fastsum_init_guru(&my_fastsum_plan, d, N, M, kernel, &c, 0, n, m, p, eps_I, eps_B);
  /*fastsum_init_guru(&my_fastsum_plan, d, N, M, kernel, &c, EXACT_NEARFIELD, n, m, p);*/

  fid1=fopen("x.dat","r");
  fid2=fopen("alpha.dat","r");
  for (k=0; k<N; k++)
  {
    for (t=0; t<d; t++)
    {
      fscanf(fid1,"%le",&my_fastsum_plan.x[k*d+t]);
    }
    fscanf(fid2,"%le",&temp); my_fastsum_plan.alpha[k] = temp;
    fscanf(fid2,"%le",&temp); my_fastsum_plan.alpha[k] += temp*_Complex_I;
  }
  fclose(fid1);
  fclose(fid2);

  fid1=fopen("y.dat","r");
  for (j=0; j<M; j++)
  {
    for (t=0; t<d; t++)
    {
      fscanf(fid1,"%le",&my_fastsum_plan.y[j*d+t]);
    }
  }
  fclose(fid1);

  printf("direct computation: "); fflush(NULL);
  t0 = getticks();
  fastsum_exact(&my_fastsum_plan);
  t1 = getticks();
  time=nfft_elapsed_seconds(t1,t0);
  printf("%fsec\n",time);

  direct = (double _Complex *)nfft_malloc(my_fastsum_plan.M_total*(sizeof(double _Complex)));
  for (j=0; j<my_fastsum_plan.M_total; j++)
    direct[j]=my_fastsum_plan.f[j];

  printf("pre-computation:    "); fflush(NULL);
  t0 = getticks();
  fastsum_precompute(&my_fastsum_plan);
  t1 = getticks();
  time=nfft_elapsed_seconds(t1,t0);
  printf("%fsec\n",time);

  printf("fast computation:   "); fflush(NULL);
  t0 = getticks();
  fastsum_trafo(&my_fastsum_plan);
  t1 = getticks();
  time=nfft_elapsed_seconds(t1,t0);
  printf("%fsec\n",time);

  error=0.0;
  for (j=0; j<my_fastsum_plan.M_total; j++)
  {
   if (cabs(direct[j]-my_fastsum_plan.f[j])/cabs(direct[j])>error)
      error=cabs(direct[j]-my_fastsum_plan.f[j])/cabs(direct[j]);
  }
  printf("max relative error: %e\n",error);

  fid1=fopen("f.dat","w+");
  fid2=fopen("f_direct.dat","w+");
  if (fid1==NULL)
  {
    printf("Fehler!\n");
    exit(-1);
  }
  for (j=0; j<M; j++)
  {
    temp=creal(my_fastsum_plan.f[j]);
    fprintf(fid1,"  % .16e",temp);
    temp=cimag(my_fastsum_plan.f[j]);
    fprintf(fid1,"  % .16e\n",temp);

    temp=creal(direct[j]);
    fprintf(fid2,"  % .16e",temp);
    temp=cimag(direct[j]);
    fprintf(fid2,"  % .16e\n",temp);
  }
  fclose(fid1);
  fclose(fid2);

  fastsum_finalize(&my_fastsum_plan);

  return 0;
}
/* \} */