leto / math--gsl

Perl interface to the GNU Scientific Library

This URL has Read+Write access

math--gsl / examples / fft / forward_real
9b027261 » leto 2008-10-11 Adding basic FFT example 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