#!/usr/bin/perl -w

use 5.032;

my $t0 = 1;
my $t1 = 150;       # 150 días p.e.

my $base = 100;     # precio inicial

my $alpha = 0.01;   # parámetros de ajuste del descenso
my $beta = 5;

my @y;
for my $t ($t0 .. $t1){
    push @y , $base - $alpha*(($t - $t0)**$beta);
}
system ("XY", @y);    # this utility is available in the page

exit 2;