examples/fft/forward_real

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use Math::GSL::FFT qw/:all/;
   5 use Math::GSL::Errno qw/:all/;
   6 use Data::Dumper;
   7
   8 my $data = [ (0) x 5, (1) x 22, (0) x 5 ];
   9 my ($status, $fft ) = gsl_fft_real_radix2_transform ($data, 1, 32);
  10 print Dumper $fft;
  11