|
Packit |
67cb25 |
/* wavelet/dwt.c
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* Copyright (C) 2004 Ivo Alxneit
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* This program is free software; you can redistribute it and/or modify
|
|
Packit |
67cb25 |
* it under the terms of the GNU General Public License as published by
|
|
Packit |
67cb25 |
* the Free Software Foundation; either version 3 of the License, or (at
|
|
Packit |
67cb25 |
* your option) any later version.
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* This program is distributed in the hope that it will be useful, but
|
|
Packit |
67cb25 |
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
67cb25 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
Packit |
67cb25 |
* General Public License for more details.
|
|
Packit |
67cb25 |
*
|
|
Packit |
67cb25 |
* You should have received a copy of the GNU General Public License
|
|
Packit |
67cb25 |
* along with this program; if not, write to the Free Software
|
|
Packit |
67cb25 |
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* function dwt_step is based on the public domain function pwt.c
|
|
Packit |
67cb25 |
* available from http://www.numerical-recipes.com
|
|
Packit |
67cb25 |
*/
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#include <config.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_errno.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_wavelet.h>
|
|
Packit |
67cb25 |
#include <gsl/gsl_wavelet2d.h>
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
#define ELEMENT(a,stride,i) ((a)[(stride)*(i)])
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int binary_logn (const size_t n);
|
|
Packit |
67cb25 |
static void dwt_step (const gsl_wavelet * w, double *a, size_t stride, size_t n, gsl_wavelet_direction dir, gsl_wavelet_workspace * work);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static int
|
|
Packit |
67cb25 |
binary_logn (const size_t n)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
size_t ntest;
|
|
Packit |
67cb25 |
size_t logn = 0;
|
|
Packit |
67cb25 |
size_t k = 1;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
while (k < n)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
k *= 2;
|
|
Packit |
67cb25 |
logn++;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
ntest = ((size_t)1 << logn);
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (n != ntest)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return -1; /* n is not a power of 2 */
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return logn;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
static void
|
|
Packit |
67cb25 |
dwt_step (const gsl_wavelet * w, double *a, size_t stride, size_t n,
|
|
Packit |
67cb25 |
gsl_wavelet_direction dir, gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double ai, ai1;
|
|
Packit |
67cb25 |
size_t i, ii;
|
|
Packit |
67cb25 |
size_t jf;
|
|
Packit |
67cb25 |
size_t k;
|
|
Packit |
67cb25 |
size_t n1, ni, nh, nmod;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < work->n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
work->scratch[i] = 0.0;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
nmod = w->nc * n;
|
|
Packit |
67cb25 |
nmod -= w->offset; /* center support */
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
n1 = n - 1;
|
|
Packit |
67cb25 |
nh = n >> 1;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (dir == gsl_wavelet_forward)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (ii = 0, i = 0; i < n; i += 2, ii++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
double h = 0, g = 0;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
ni = i + nmod;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (k = 0; k < w->nc; k++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
jf = n1 & (ni + k);
|
|
Packit |
67cb25 |
h += w->h1[k] * ELEMENT (a, stride, jf);
|
|
Packit |
67cb25 |
g += w->g1[k] * ELEMENT (a, stride, jf);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
work->scratch[ii] += h;
|
|
Packit |
67cb25 |
work->scratch[ii + nh] += g;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
else
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (ii = 0, i = 0; i < n; i += 2, ii++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
ai = ELEMENT (a, stride, ii);
|
|
Packit |
67cb25 |
ai1 = ELEMENT (a, stride, ii + nh);
|
|
Packit |
67cb25 |
ni = i + nmod;
|
|
Packit |
67cb25 |
for (k = 0; k < w->nc; k++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
jf = (n1 & (ni + k));
|
|
Packit |
67cb25 |
work->scratch[jf] += (w->h2[k] * ai + w->g2[k] * ai1);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
for (i = 0; i < n; i++)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
ELEMENT (a, stride, i) = work->scratch[i];
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet_transform (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t stride, size_t n,
|
|
Packit |
67cb25 |
gsl_wavelet_direction dir,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
size_t i;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (work->n < n)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("not enough workspace provided", GSL_EINVAL);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (binary_logn (n) == -1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("n is not a power of 2", GSL_EINVAL);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (n < 2)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (dir == gsl_wavelet_forward)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (i = n; i >= 2; i >>= 1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
dwt_step (w, data, stride, i, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
else
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (i = 2; i <= n; i <<= 1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
dwt_step (w, data, stride, i, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet_transform_forward (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t stride, size_t n,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet_transform (w, data, stride, n, gsl_wavelet_forward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet_transform_inverse (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t stride, size_t n,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet_transform (w, data, stride, n, gsl_wavelet_backward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
/* Leaving this out for now BJG */
|
|
Packit |
67cb25 |
#if 0
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_dwt_vector (const gsl_wavelet * w, gsl_vector *v, gsl_wavelet_direction
|
|
Packit |
67cb25 |
dir, gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_dwt (w, v->data, v->stride, v->size, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
#endif
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_transform (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t tda, size_t size1,
|
|
Packit |
67cb25 |
size_t size2, gsl_wavelet_direction dir,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
size_t i;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (size1 != size2)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("2d dwt works only with square matrix", GSL_EINVAL);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (work->n < size1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("not enough workspace provided", GSL_EINVAL);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (binary_logn (size1) == -1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("n is not a power of 2", GSL_EINVAL);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (size1 < 2)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (dir == gsl_wavelet_forward)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (i = 0; i < size1; i++) /* for every row j */
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_wavelet_transform (w, &ELEMENT(data, tda, i), 1, size1, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
for (i = 0; i < size2; i++) /* for every column j */
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_wavelet_transform (w, &ELEMENT(data, 1, i), tda, size2, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
else
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (i = 0; i < size2; i++) /* for every column j */
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_wavelet_transform (w, &ELEMENT(data, 1, i), tda, size2, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
for (i = 0; i < size1; i++) /* for every row j */
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
gsl_wavelet_transform (w, &ELEMENT(data, tda, i), 1, size1, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_nstransform (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t tda, size_t size1,
|
|
Packit |
67cb25 |
size_t size2, gsl_wavelet_direction dir,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
size_t i, j;
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (size1 != size2)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("2d dwt works only with square matrix", GSL_EINVAL);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (work->n < size1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("not enough workspace provided", GSL_EINVAL);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (binary_logn (size1) == -1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
GSL_ERROR ("n is not a power of 2", GSL_EINVAL);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (size1 < 2)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
if (dir == gsl_wavelet_forward)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (i = size1; i >= 2; i >>= 1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (j = 0; j < i; j++) /* for every row j */
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
dwt_step (w, &ELEMENT(data, tda, j), 1, i, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
for (j = 0; j < i; j++) /* for every column j */
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
dwt_step (w, &ELEMENT(data, 1, j), tda, i, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
else
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (i = 2; i <= size1; i <<= 1)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
for (j = 0; j < i; j++) /* for every column j */
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
dwt_step (w, &ELEMENT(data, 1, j), tda, i, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
for (j = 0; j < i; j++) /* for every row j */
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
dwt_step (w, &ELEMENT(data, tda, j), 1, i, dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
return GSL_SUCCESS;
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_transform_forward (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t tda, size_t size1,
|
|
Packit |
67cb25 |
size_t size2, gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_transform (w, data, tda, size1, size2, gsl_wavelet_forward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_transform_inverse (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t tda, size_t size1,
|
|
Packit |
67cb25 |
size_t size2, gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_transform (w, data, tda, size1, size2, gsl_wavelet_backward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_nstransform_forward (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t tda, size_t size1,
|
|
Packit |
67cb25 |
size_t size2, gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_nstransform (w, data, tda, size1, size2, gsl_wavelet_forward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_nstransform_inverse (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
double *data, size_t tda, size_t size1,
|
|
Packit |
67cb25 |
size_t size2, gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_nstransform (w, data, tda, size1, size2, gsl_wavelet_backward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_transform_matrix (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
gsl_matrix * a,
|
|
Packit |
67cb25 |
gsl_wavelet_direction dir,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_transform (w, a->data,
|
|
Packit |
67cb25 |
a->tda, a->size1, a->size2,
|
|
Packit |
67cb25 |
dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_transform_matrix_forward (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
gsl_matrix * a,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_transform (w, a->data,
|
|
Packit |
67cb25 |
a->tda, a->size1, a->size2,
|
|
Packit |
67cb25 |
gsl_wavelet_forward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_transform_matrix_inverse (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
gsl_matrix * a,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_transform (w, a->data,
|
|
Packit |
67cb25 |
a->tda, a->size1, a->size2,
|
|
Packit |
67cb25 |
gsl_wavelet_backward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_nstransform_matrix (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
gsl_matrix * a,
|
|
Packit |
67cb25 |
gsl_wavelet_direction dir,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_nstransform (w, a->data,
|
|
Packit |
67cb25 |
a->tda, a->size1, a->size2,
|
|
Packit |
67cb25 |
dir, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_nstransform_matrix_forward (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
gsl_matrix * a,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_nstransform (w, a->data,
|
|
Packit |
67cb25 |
a->tda, a->size1, a->size2,
|
|
Packit |
67cb25 |
gsl_wavelet_forward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
int
|
|
Packit |
67cb25 |
gsl_wavelet2d_nstransform_matrix_inverse (const gsl_wavelet * w,
|
|
Packit |
67cb25 |
gsl_matrix * a,
|
|
Packit |
67cb25 |
gsl_wavelet_workspace * work)
|
|
Packit |
67cb25 |
{
|
|
Packit |
67cb25 |
return gsl_wavelet2d_nstransform (w, a->data,
|
|
Packit |
67cb25 |
a->tda, a->size1, a->size2,
|
|
Packit |
67cb25 |
gsl_wavelet_backward, work);
|
|
Packit |
67cb25 |
}
|
|
Packit |
67cb25 |
|
|
Packit |
67cb25 |
|