Laboratoire de l'Informatique et du Parallélisme » MEPlib

#! /usr/bin/perl

# createVandermonde.pl - ST - 2005-06-21

# COMMAND LINE SYNTAX:

# createVandermonde.pl lowerBound upperBound degree

# NOTE(S):

# 

# This program emulates the behaviour of the vander function of Matlab.

##############################################################################

# PROGRAM DECLARATIONS

##############################################################################

BEGIN

{

  # Modify @INC here if necessary

  push(@INC,"../utils");

  push(@INC,"../utils/vandermonde");

};

# core modules

use strict; # must be first to force strict in all others

use Carp;

use Getopt::Long;

use Math::BigFloat;

use Math::BigRat;

# custom modules

# Uncomment if you want to use standard exit error codes.

# the stdExitErrors.pm file must be available around.

use stdExitErrors;

use Vandermonde qw(:BASIC);

use Matrix qw(:BASIC);

##############################################################################

# PROGRAM CONSTANT DECLARATIONS

##############################################################################

my @test = (1,2,10);

##############################################################################

# PROGRAM VARIABLE DECLARATIONS

##############################################################################

my $stringVectorRef = [];

my $generatorVectorRef;

my $matrixRef;

##############################################################################

# TEST ENVIRONMENT AND CONFIGURATION VARIABLES

##############################################################################

##############################################################################

# INITIALIZE DEBUG FILE

##############################################################################

##############################################################################

# INITIALIZE LOG FILE

##############################################################################

##############################################################################

# GET COMMAND LINE ARGUMENTS

##############################################################################

##############################################################################

# PROGRAM MAIN

##############################################################################

&usage();

$generatorVectorRef = &generatorVectorFromBoundsAndDegreeRat($stringVectorRef);

$matrixRef = createVanderMatrixRat($generatorVectorRef);

print STDERR "\n";

printMatrix($matrixRef, *STDOUT);

print STDERR "\n";

print STDERR "\n";

# Uncomment this line and remove the next one if using stdExitErrors.

exit($EX_OK); # exit main program

##############################################################################

# PROGRAM SUBS

##############################################################################

##############################################################################

# sub mySub

##############################################################################

# Performed task:

#

# input   :

# output  :

# globals :

#

sub mySub {

  my ($someParameter) = @_;

  if (! defined($someParameter))

  {

    my @call_info = caller(0);

    print "\n\n", $call_info[3], " missing parameter. Aborting program!\n\n";

    # Uncomment this line and remove the next one if using stdExitErrors.

    #exit($EX_SOFTWARE);

    exit(1);

  }

} # End mySub

##############################################################################

# sub $retv = _privateSubName($argv)

##############################################################################

sub _privateSubName

{

	my $argv = shift();

	my $retv = undef;

	return($retv);

};

#

##############################################################################

# sub usage

##############################################################################

# Performed task: checks the command line parameters

#

# input   : none

# output  : none

# globals : $ARGV,others...

#

sub usage {

  if (! defined($ARGV[2]))

  {

    my $scriptName = `basename $0`;

    chomp $scriptName;

    print STDERR "\n\nUsage : $scriptName lowerBound upperBound degree\n\n";

    print STDERR "  - lowerBound: the lower bound for the Vandermonde matrix;\n";

    print STDERR "  - upperBound: the upper bound for the Vandermonde matrix;\n";

    print STDERR "  - degree    : the degree for the Vandermonde matrix.\n\n";

    # Uncomment this line and remove the next one if using stdExitErrors.

    exit($EX_USAGE);

  } # End if

# Some initializations 

$ARGV[0] =~ s/"//g;

push(@$stringVectorRef, $ARGV[0]);

$ARGV[1] =~ s/"//g;

push(@$stringVectorRef, $ARGV[1]);

$ARGV[2] =~ s/"//g;

push(@$stringVectorRef, $ARGV[2]);

} # End usage

__END__