File: kernelFilterGauss.cpp

package info (click to toggle)
groops 0%2Bgit20250907%2Bds-1
  • links: PTS, VCS
  • area: non-free
  • in suites: forky, sid
  • size: 11,140 kB
  • sloc: cpp: 135,607; fortran: 1,603; makefile: 20
file content (84 lines) | stat: -rw-r--r-- 2,012 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
/***********************************************/
/**
* @file kernelFilterGauss.cpp
*
* @brief Kernel smoothed by an Gaussian filter.
* @see Kernel
*
* @author Torsten Mayer-Guerr
* @date 2007-10-10
*
*/
/***********************************************/

#include "base/import.h"
#include "classes/kernel/kernel.h"
#include "classes/kernel/kernelFilterGauss.h"

/***********************************************/

KernelFilterGauss::KernelFilterGauss(Config &config)
{
  try
  {
    readConfig(config, "kernel", kernel, Config::MUSTSET, "",    "");
    readConfig(config, "radius", radius, Config::MUSTSET, "500", "filter radius [km]");
    if(isCreateSchema(config)) return;
  }
  catch(std::exception &e)
  {
    GROOPS_RETHROW(e)
  }
}

/***********************************************/

Vector KernelFilterGauss::computeFilterCoefficients(UInt degree) const
{
  try
  {
    Double b = log(2.)/(1-cos(1000*radius/DEFAULT_R));

    Vector wn(degree+1);
    wn(0) = 1;
    wn(1) = (1+exp(-2*b))/(1-exp(-2*b)) - 1./b;
    for(UInt n=2; n<=degree; n++)
    {
      wn(n) = -(2*n-1.)/b * wn(n-1) + wn(n-2);
      if(wn(n)<1e-7)
        break;
    }

    return wn;
  }
  catch(std::exception &e)
  {
    GROOPS_RETHROW(e)
  }
}

/***********************************************/

Vector KernelFilterGauss::coefficients(const Vector3d &p, UInt degree) const
{
  Vector kn = kernel->coefficients(p,degree);
  if(filterCoeff.size()<kn.size())
    filterCoeff = computeFilterCoefficients(kn.size()-1);
  for(UInt n=0; n<kn.size(); n++)
    kn(n) *= filterCoeff(n);
  return kn;
}

/***********************************************/

Vector KernelFilterGauss::inverseCoefficients(const Vector3d &p, UInt degree, Bool interior) const
{
  Vector kn = kernel->inverseCoefficients(p, degree, interior);
  if(filterCoeff.size()<kn.size())
    filterCoeff = computeFilterCoefficients(kn.size()-1);
  for(UInt n=0; n<kn.size(); n++)
    kn(n) *= filterCoeff(n);
  return kn;
}

/***********************************************/