view release on metacpan or  search on metacpan

examples/examplefit.pl  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use lib '../lib';
use Algorithm::CurveFit;

my $formula = 'b*cos(x/10)+c*sin(x/10)';
my $variable = 'x';
my @xdata;
my @ydata;

unless (@ARGV) {
    die <<HERE;
Usage: $0 DATAFILE