Wavelet.i

   1 %module "Math::GSL::Wavelet"
   2 %include "gsl_typemaps.i"
   3 %{
   4     #include "gsl/gsl_types.h"
   5     #include "gsl/gsl_wavelet.h"
   6 %}
   7
   8 typedef int size_t;
   9
  10 %include "gsl/gsl_types.h"
  11 %include "gsl/gsl_wavelet.h"
  12
  13 %include "typemaps.i"
  14
  15
  16 %perlcode %{
  17
  18
  19 @EXPORT_OK = qw/
  20     gsl_wavelet_alloc
  21     gsl_wavelet_free
  22     gsl_wavelet_name
  23     gsl_wavelet_workspace_alloc
  24     gsl_wavelet_workspace_free
  25     gsl_wavelet_transform
  26     gsl_wavelet_transform_forward
  27     gsl_wavelet_transform_inverse
  28     $gsl_wavelet_daubechies
  29     $gsl_wavelet_daubechies_centered
  30     $gsl_wavelet_haar
  31     $gsl_wavelet_haar_centered
  32     $gsl_wavelet_bspline
  33     $gsl_wavelet_bspline_centered
  34 /;
  35
  36
  37 %EXPORT_TAGS = ( all => [ @EXPORT_OK ], );
  38
  39 =head1 NAME
  40
  41 Math::GSL::Wavelet - wavelets for real data in one dimension
  42
  43 =head1 SYNOPSIS
  44
  45     use Math::GSL::Wavelet qw/:all/;
  46
  47 =cut
  48
  49 =head1 DESCRIPTION
  50
  51 Here is a list of all the functions included in this module :
  52
  53 =over 1
  54
  55 =item C<gsl_wavelet_alloc($T, $k)> - This function allocates and initializes a wavelet object of type $T, where $T must be one of the constants below. The parameter $k selects the specific member of the wavelet family.
  56
  57 =item C<gsl_wavelet_free($w)> - This function frees the wavelet object $w.
  58
  59 =item C<gsl_wavelet_name>
  60
  61 =item C<gsl_wavelet_workspace_alloc($n)> - This function allocates a workspace for the discrete wavelet transform. To perform a one-dimensional transform on $n elements, a workspace of size $n must be provided. For two-dimensional transforms of $n-by-$n matrices it is sufficient to allocate a workspace of size $n, since the transform operates on individual rows and columns.
  62
  63 =item C<gsl_wavelet_workspace_free($work)> - This function frees the allocated workspace work.
  64
  65 =item C<gsl_wavelet_transform>
  66
  67 =item C<gsl_wavelet_transform_forward>
  68
  69 =item C<gsl_wavelet_transform_inverse>
  70
  71 =back
  72
  73 This module also contains the following constants with their valid k value for the gsl_wavelet_alloc function :
  74
  75 =over 1
  76
  77 =item $gsl_wavelet_daubechies
  78
  79 =item $gsl_wavelet_daubechies_centered
  80
  81 =back
  82
  83 This is the Daubechies wavelet family of maximum phase with k/2 vanishing moments. The implemented wavelets are k=4, 6, ..., 20, with k even.
  84
  85 =over 1
  86
  87 =item $gsl_wavelet_haar
  88
  89 =item $gsl_wavelet_haar_centered
  90
  91 =back
  92
  93 This is the Haar wavelet. The only valid choice of k for the Haar wavelet is k=2.
  94
  95 =over 1
  96
  97 =item $gsl_wavelet_bspline
  98
  99 =item $gsl_wavelet_bspline_centered
 100
 101 =back
 102
 103 This is the biorthogonal B-spline wavelet family of order (i,j). The implemented values of k = 100*i + j are 103, 105, 202, 204, 206, 208, 301, 303, 305 307, 309.
 104
 105 =head1 AUTHORS
 106
 107 Jonathan Leto <jonathan@leto.net> and Thierry Moisan <thierry.moisan@gmail.com>
 108
 109 =head1 COPYRIGHT AND LICENSE
 110
 111 Copyright (C) 2008 Jonathan Leto and Thierry Moisan
 112
 113 This program is free software; you can redistribute it and/or modify it
 114 under the same terms as Perl itself.
 115
 116 =cut
 117
 118
 119 %}