¿Habéis visto el Ibex 35...? Diciembre 2011 II +

Guybrush_Threepwood dijo:

Ok, pero eso habría que hacerlo día a día, todavía no se como gestionar toda esa base de datos 😡:

Hacer clic para expandir...

ponzi dijo:

copi pega y haz un buscarv en excel. De todas formas los cortos importantes suelen tener series temporales muy definidas. El caso de nh, gamesa, bankinter son claros ejemplos. Cuando los cortos ya han sido declarados ya no se puede hacer nada, el trabajo sucio ya esta hecho, es importante ver el cuadro leoncio lo mas ampliado temporalmente que se pueda para comprenderles. Donde uno se puede anticipar es viendo los ciclos temporales comparandolo con las cotizaciones para ver movimientos importantes a medio plazo. Por mi experiencia un ataque de cortos suele durar entre 1-3 meses y lo suelen hacer francamente bien. Un trabajo fino fino

Enviado desde mi GT-S5830 usando Tapatalk

Hacer clic para expandir...

VOTIN dijo:

Ahora mismo le estan dando caña de la buena a nh,ademas no se esconden
ordenes de venta de 60k " by the face"

Hacer clic para expandir...

ponzi dijo:

Vaya tela, yo creia que lo veriamos entre 2'3 y 2,4 antes de empezar la prox tanda. No pueden alquilar acciones de forma infinita. Es muy caro alquilar un 2% de una empresa durante 3 meses. Yo pondria un SP en 2,35. 2,4 es una resistencia importante

Enviado desde mi GT-S5830 usando Tapatalk

Hacer clic para expandir...

ghkghk dijo:

Toma ya!!!!

Tienes que estar registrado para ver este contenido

Hacer clic para expandir...

patilltoes dijo:

El problema machaca los datos en segundos y los vomita a TXT, pero ahora me da un warning fulastre. Parece que reusar un handle de archivos no le mola a perl. Primera vez que lo veo:

Spoiler

Código:

#!/usr/bin/perl

use strict;
use warnings;

# Opening file
open my $INPUT_FILE, "<", 'BATSsh20111227.txt';

# Declaring the BIG data' structure
my $shorts_ref;

# Parsing;
<$INPUT_FILE>; # Throwing the first line

while (<$INPUT_FILE>){
	chomp;

	my (undef, $company, undef, $time, undef, $size, $prize, undef) = split /\|/, $_;
	# CSV to data
	push @{$shorts_ref->{$company}}, { 'TIME' => $time, 'SIZE' => $size, 'PRIZE' => $prize };
}

# Better with a map, but in XMAS...
foreach my $company (sort keys %$shorts_ref){
	out2txt($company, \@{$shorts_ref->{$company}});
}

# Cleaning up this mess
close $INPUT_FILE;

#############
# ********S #
#############
sub out2txt{
	my ($company, $data_ref) = @_;
	
	my $filename = $company. '.txt';
	open my $TEMPFILE, ">", $filename;
	
	foreach my $operation (@$data_ref){
		my $line = join ";", $operation->{'TIME'}, $operation->{'SIZE'}, $operation->{'PRIZE'};
		print $TEMPFILE $line, "\n";
	}
	
	close $TEMPFILE;
}

PANDERO-CALOR al ejecutarlo, que te crea 4900 archivos de texto del tiron. Voy a ver si corrijo eso.

Ahora hay que ver en que formato puede ser mas util esto. ¿Adonde lo exportamos para que sea machacado luego?

Hacer clic para expandir...

VOTIN dijo:

Solo les queda gasolina hasta el viernes o eso o declaran nuevos cortos pidiendo mas acc prestadas para vender
Si bajan el valor a 2 o 1,9 entro a saco y compro otras 5000
Si se ve que es otra vez los de CM ¿Es que son simple y les gusta perder pasta?
sinceramente mi no entender,los demas leoncios comprando y ellos vendiendo
Que chinos mas simple

Hacer clic para expandir...

Guybrush_Threepwood dijo:

:Aplauso: :Aplauso: :Aplauso: :Aplauso:

A mi así me vale! Ya veríamos como gestionar la base de datos (que no tengo ni idea)

Es ustéd un fenómeno!

Hacer clic para expandir...

#!/usr/bin/perl

use strict;
use warnings;

# Declaring the BIG data' structure
my $shorts_ref = parsing_datafile('BATSsh20111227.txt');# Hardcoded name, blablah

# Better with a map, but in XMAS...
foreach my $company (sort keys %$shorts_ref){
	out2txt($company, \@{$shorts_ref->{$company}});
}


###################################
#       ********S                 #
###################################
sub parsing_datafile{
	my ($filename) = @_;
	
	# Opening datafile
	open my $INPUT_FILE, "<", $filename;

	# Declaring and Parsing;
	my $shorts_ref;
	<$INPUT_FILE>; # Throwing the first line
	while (<$INPUT_FILE>){
		chomp;

		my (undef, $company, undef, $time, undef, $size, $prize, undef) = split /\|/, $_;
		# CSV to data
		push @{$shorts_ref->{$company}}, { 'TIME' => $time, 'SIZE' => $size, 'PRIZE' => $prize };
	}
	
	# Ending
	close $INPUT_FILE;
	return $shorts_ref;
}

sub out2txt{
	my ($company, $data_ref) = @_;
	
	my $filename = $company. '.txt';
	open my $TEMPFILE, ">", $filename;
	
	foreach my $operation (@$data_ref){
		my $line = join ";", $operation->{'TIME'}, $operation->{'SIZE'}, $operation->{'PRIZE'};
		print $TEMPFILE $line, "\n";
	}
	
	close $TEMPFILE;
}

Janus dijo:

Lo mismo es que los chinos quieren tirar la cotización para que sus compatriotas pueden lanzar una oferta desde más abajo. Estos chinos son muy ........ (dejémoslo en puntos suspensivos para que Calopez no nos censure). Vamos a ver si hay un nuevo tirón hacia abajo (podría llegar a 1,7).

Hacer clic para expandir...

VOTIN dijo:

Prisa en caida libre -6%

Hacer clic para expandir...

Adriangtir dijo:

Podían hablar de bolsa en algún momento...(o coches, motos, muyer, espirituosos...)

Hacer clic para expandir...

Guybrush_Threepwood dijo:

Ya estamos fuera con beneficios para birra. Saltó EL SP. Ya veremos si hay oportunidad de reengancharse 😉




Deje, deje, que viendo algunas acciones parece que va a funcionar el método.

Creo que a partir de ahora me van a llamar GT el oso guanoso 😀

Hacer clic para expandir...

VOTIN dijo:

Esperemos que janus salga entero,el tenia el SL sobre 7,8

Hacer clic para expandir...