X-Trader.net - El Foro de los Traders

Pues como estaba aburrido en verano y sin trabajo,
decidi empezar a programar algo en PERL,
un lenguaje que me gusta mucho,
dejo aqui una biblioteca de funciones de Analisis Tecnico,
y unos programas que lo usan.
Los datos diarios para procesar me los bajo de Yahoo en formato csv,
y luego los dejo en un directorio (c:\bolsa\bajados).
Hasta hace poco no me he descargado el Visual Chart(por que me cuesta aprenderlo) y aunque creo que esta bien
mi forma de simular sigue siendo con el PERL.
Para ejecutarlo hay que bajarse el interprete que es gratuito desde www.perl.org
Los programas tienen extension *.cgi
Para ejecutarlos se hace asi desde MS-DOS:
perl nombreprograma.cgi

La libreria tiene extension pl y
vereis que es facil incluirlo en cualquier programa de simulacion que hagais
con Perl.

No puedo subir los programas
por que no me lo permite, ni extensiones pl ni cgi
pero os dejo la libreria en formato texto.


sub acumulacion_distribucion()
{
my $saldo_anterior=$_[0];
my $volumen=$_[1];
my $maximo_dia=$_[2];
my $minimo_dia=$_[3];
my $cierre=$_[4];
my $saldo;

my $base=$volumen*((($cierre-$minimo_dia)-($maximo_dia-$cierre))/($maximo_dia-$minimo_dia));

if (abs($maximo_dia-$cierre)>abs($minimo_dia-$cierre))
{
$saldo=$saldo_anterior+$base;
}
else
{
$saldo=$saldo_anterior-$base;
}


return $saldo;
}



sub anadir_dia_lista()
{
my $ref_lista=$_[0];
my $abierto=$_[1];
my $max=$_[2];
my $min=$_[3];
my $cierre=$_[4];
my $volumen=$_[5];
my $dias=$_[6];

my @dia=($abierto,$max,$min,$cierre,$volumen);
my $ref_dia=\@dia;

my @lista=@$ref_lista;
my $elementos = @lista;

if ($elementos<$dias)
{
unshift(@lista,$ref_dia);
}
else
{
pop(@lista);
unshift(@lista,$ref_dia);
}


return \@lista;
}


sub max_periodo() #devuelve el maximo de un determinado periodo.
{
my $ref_lista=$_[0];
my @lista=@$ref_lista;


my $max=0;

foreach my $elemento (@lista)
{
my @dia=@$elemento;


if ($dia[1]>$max)
{
$max=$dia[1];
}

}
return $max;
}


sub min_periodo() #devuelve el minimo de un determinado periodo.
{
my $ref_lista=$_[0];
my @lista=@$ref_lista;
my $min=99999999999999999;

foreach my $elemento (@lista)
{
my @dia=@$elemento;
if ($dia[2]<$min)
{
$min=$dia[1];
}

}
return $min;
}


sub cierre_periodo() #devuelve el cierre de un determinado periodo.
{
my $ref_lista=$_[0];
my @lista=@$ref_lista;
my $dia=$lista[0];
my $cierre=$dia->[3];


return $cierre;
}


sub abierto_periodo() #devuelve la apertura de un determinado periodo.
{
my $ref_lista=$_[0];
my @lista=@$ref_lista;

my $elementos=@lista;
my $dia=$lista[$elementos-1];


my $abierto=$dia->[0];



return $abierto;
}


sub iniciar_lista()
{
undef $_[0];
}


sub elementos_lista()
{
my $ref_lista=$_[0];
my @lista=@$ref_lista;
my $elementos = @lista;

return $elementos;

}

sub pivot_point()
{
my $max=$_[0];
my $min=$_[1];
my $cierre=$_[2];

return ($max+$min+$cierre)/3;
}


sub b1()
{
my $max=$_[0];
my $min=$_[1];
my $cierre=$_[2];

my $pivot=($max+$min+$cierre)/3;

return (2*$pivot - $max);

}


sub s1()
{
my $max=$_[0];
my $min=$_[1];
my $cierre=$_[2];

my $pivot=($max+$min+$cierre)/3;

return (2*$pivot - $min);

}


sub lbop()
{
my $max=$_[0];
my $min=$_[1];
my $cierre=$_[2];

my $pivot=($max+$min+$cierre)/3;

return (2*$pivot - 2*$max +$min);

}


sub hbop()
{
my $max=$_[0];
my $min=$_[1];
my $cierre=$_[2];

my $pivot=($max+$min+$cierre)/3;

return (2*$pivot - 2*$min +$max);

}


sub dm_mas()
{
my $max=$_[0];
my $min=$_[1];
my $max_ant=$_[2];
my $min_ant=$_[3];

my $dif_max = $max-$max_ant;

if ($dif_max>0)
{
my $dif_min = $min - $min_ant;

if ($dif_min >= 0)
{
return $dif_max;
}
else
{
if (abs($dif_min)>=$dif_max)
{
return 0;
}
else
{
return $dif_max;
}
}
}
else
{
return 0;
}

}



sub dm_menos()
{
my $max=$_[0];
my $min=$_[1];
my $max_ant=$_[2];
my $min_ant=$_[3];

my $dif_min = $min - $min_ant;

if ($dif_min < 0)
{
my $dif_max = $max - $max_ant;

if ($dif_max <= 0)
{
return abs($dif_min);
}
else
{
if (abs($dif_min)>=$dif_max)
{
return abs($dif_min);
}
else
{
return 0;
}
}
}
else
{
return 0;
}

}


sub di_promedio()
{
my $ref_lista_di = $_[0];
my $ref_lista_tr = $_[1];

my @lista_di = @$ref_lista_di;
my @lista_tr = @$ref_lista_tr;

my $elementos_di = @lista_di;
my $elementos_tr = @lista_tr;

my $suma_di=0;
my $suma_tr=0;

#print "lista trs = @lista_tr \n";


foreach my $elemento (@lista_di)
{
$suma_di=$suma_di+$elemento;
}


foreach my $elemento (@lista_tr)
{
$suma_tr=$suma_tr+$elemento;
}

if ($elementos_tr == 0)
{
return 0;
}


#print "SUMA DI=$suma_di SUMA TR=$suma_tr elementos di=$elementos_di \n";

my $promedio = 100 * (($suma_di/$elementos_di)/($suma_tr/$elementos_tr));

return $promedio;

}

sub dx()
{
my $di_mas = $_[0];
my $di_menos = $_[1];

if (($di_mas+$di_menos)==0)
{
return 0;
}

my $adx=100*(abs($di_mas-$di_menos)/($di_mas+$di_menos));


}


sub adx()
{
my $ref_lista_dx = $_[0];
my $promedio=&media_movil($ref_lista_dx);
return $promedio;
}


sub adxr()
{

my $ref_lista_adx = $_[0];
my @lista_adx = @$ref_lista_adx;
my $elementos=@lista_adx;

my $adx1=$lista_adx[0];
my $adx2=$lista_adx[$elementos-1];

#print "adx1=$adx1 adx2=$adx2 \n";


return ($adx1+$adx2)/2;

}


sub tr()
{
my $cierre_anterior = $_[0];
my $max = $_[1];
my $min = $_[2];
my $tr;

my $dif_diaria = abs($max - $min);

#print "DENTRO DE TR dif_diaria $dif_diaria \n";

if ($dif_diaria>abs($cierre_anterior-$max))
{
$tr=$dif_diaria;
}
else
{
$tr=abs($cierre_anterior-$max);
}

if ($tr > abs($cierre_anterior-$min))
{
return $tr;
}
else
{
return abs($cierre_anterior-$min);
}

}

sub media_movil()
{
my $ref_lista=$_[0];
my @lista=@$ref_lista;
my $elementos = @lista;

my $suma=0;

if ($elementos == 0)
{
return 0;
}

foreach my $valor (@lista)
{
$suma=$suma+$valor;
}

return ($suma/$elementos);
}

sub momentun()
{
my $ref_lista=$_[0];
my $anterior=$_[1];
my @lista=@$ref_lista;
my $elementos = @lista;


my $ultimo_elemento=$lista[0];
my $elemento_anterior=$lista[$anterior];

return ($ultimo_elemento-$elemento_anterior);
}

sub anadir_lista()
{
my $ref_lista=$_[0];
my $numero_elementos=$_[1];
my $nuevo_elemento=$_[2];

my @lista=@$ref_lista;
my $elementos = @lista;

if ($elementos<$numero_elementos)
{
unshift(@lista,$nuevo_elemento);
}
else
{
pop(@lista);
unshift(@lista,$nuevo_elemento);
}

return \@lista;
}

sub rsi()
{
my $ref_lista=$_[0];
my @lista=@$ref_lista;
my $elementos = @lista;
my $num_anterior=0;
my $suma_subidas=0;
my $suma_bajadas=0;

foreach my $num (reverse @lista)
{

if ($num_anterior != 0)
{


my $dif=$num-$num_anterior;



if ($dif<0)
{
$suma_bajadas=$suma_bajadas-$dif;
}
elsif ($dif>0)
{
$suma_subidas=$suma_subidas+$dif;
}


}

$num_anterior=$num;
}

if ($suma_bajadas == 0)
{
return 100;
}

#print "suma_subidas = $suma_subidas , suma_bajadas = $suma_bajadas \n";

return (100 - (100/(1+($suma_subidas/$suma_bajadas))));

}


sub estocastico()
{
my $ref_lista=$_[0];
my @lista=@$ref_lista;
my $elementos = @lista;
my $ultimo_elemento=$lista[0]; #el ultimo de la lista se ponia el primero


my @lista_ordenada = sort {$a <=> $b} (@lista);

my $max=pop(@lista_ordenada);
my $min=shift(@lista_ordenada);


return 100*(($ultimo_elemento-$min)/($max-$min));
}


sub media_exponencial()
{
my $suma_anterior=$_[0];
my $numero_elementos=$_[1];
my $nuevo_elemento=$_[2];


if ($suma_anterior == 0)
{
return $nuevo_elemento;
}


my $multiplicador_nuevo = 2/($numero_elementos+1); #ponderacion del nuevo elemento
my $multiplicador_resto = 1 - $multiplicador_nuevo; #ponderacion de la suma anterior



return (($suma_anterior * $multiplicador_resto)+($nuevo_elemento*$multiplicador_nuevo));

}

sub sar_parabolico()
{
my $sar_anterior=$_[0];
my $dx = $_[1]; #dx anterior
my $max_dia=$_[2];
my $min_dia=$_[3];
my $maximo_ciclo=$_[4]; #maximo del ciclo
my $minimo_ciclo=$_[5]; #minimo del ciclo
my $tendencia=$_[6]; #tendencia del parabolico
my $condicion_salida=$_[7];#condicion salida parabolico
my $abierto=$_[8];
my $sar;

$_[7]="FALSO"; #condicion de salida

#print "max ciclo = $maximo_ciclo, min_ciclo=$minimo_ciclo , max_dia =$max_dia, min_dia = $min_dia \n";
#print "sar anterior= $sar_anterior max dia=$max_dia tendencia=$tendencia \n";


#si la apertura es menor que el SAR y este es alcista hay que salir con el precio de apertura

if ($abierto ne "" )
{
if ($tendencia eq "BAJISTA" && $abierto>$sar_anterior)
{
$_[7]="VERDADERO";
return $abierto;
}

if ($tendencia eq "ALCISTA" && $abierto<$sar_anterior)
{
$_[7]="VERDADERO";
return $abierto;
}

}

if ($sar_anterior < $max_dia && $tendencia eq "BAJISTA") #condicion de Stop
{
$_[7]="VERDADERO";
return $sar_anterior;
}
elsif ($sar_anterior > $min_dia && $tendencia eq "ALCISTA") #condicion de Stop
{
$_[7]="VERDADERO";
return $sar_anterior;
}
else
{
if ($sar_anterior > $max_dia && $tendencia eq "BAJISTA") #estamos cortos
{
if ($min_dia < $minimo_ciclo) # el minimo es menor que el anterior
{

if ($dx == 0)
{
$dx=0.02;
}
elsif ($dx < 0.19) #con 0.2 no funciona y no se por que
{
$dx = $dx + 0.02;
}

$minimo_ciclo = $min_dia;

}


if ($dx == 0)
{
$dx=0.02;
}


$_[1]=$dx;


$sar = $sar_anterior - $dx * ($sar_anterior - $minimo_ciclo);

return $sar;

}
elsif ($sar_anterior < $min_dia && $tendencia eq "ALCISTA") #estamos largos
{

if ($max_dia > $maximo_ciclo) # el maximo es mayor que el anterior
{
if ($dx == 0)
{
$dx=0.02;
}
elsif ($dx < 0.19) #con 0.2 no funciona y no se por que
{
$dx = $dx + 0.02;


}

$maximo_ciclo = $max_dia;

}


if ($dx == 0)
{
$dx=0.02;
}


$_[1]=$dx;

$sar = $sar_anterior + $dx * ($maximo_ciclo - $sar_anterior);

return $sar;

}

}

}


sub des_tipica()
{
my $ref_lista=$_[0];
my $media=$_[1];

my @lista=@$ref_lista;
my $elementos=@lista;

$suma_diferencia=0;

foreach my $elemento (@elementos)
{
$suma_diferencia=$suma_diferencia+(($elemento-$media)**2);
}

my $varianza=$suma_diferencia/($elementos-1);

return sqrt($suma_diferencia);

}

1;


#Un saludo.