Investissez dans une valeur boursière

Venez donc proposer vos trouvailles sur Internet: un site rigolo, une animation époustouflante, du streaming à gogo...

Modérateurs : Diamond, Zion, Barbapapa

Re: Investissez dans une valeur boursière

Message par Vinnie » 23 Mars 2021 16:17

j'espérais que Ubisoft continue à baisser, et ca remonte aujd
comme je ne sais pas de quoi demain sera fait, j'en ai pris 35 à 64.98€
Je suis responsable de ce que je dis,
je ne suis pas responsable de ce que vous comprenez
Avatar de l’utilisateur
Vinnie
Acharné
Acharné
 
Message(s) : 2896
Inscription : 30 Juin 2007 20:56

Re: Investissez dans une valeur boursière

Message par mediax » 23 Mars 2021 16:22

J'utilise Perl et les packages j'ai été les chercher sur

https://metacpan.org/release/stockmonkey
https://metacpan.org/pod/Finance::TA

Voici une partie de mon code

#!/usr/bin/env perl

# A STOCK MARKET Analyser
# MediaxCreation - 2021

# LOOK AT NYSE NASDAQ AMEX & EURONEXT
# with magic formulas
# last update 20210131 Version 2.2

use lib '/home/pi/perl5/lib/perl5'; #Module Library Path for RaspberryPi
use Acme::Tools qw(between);
use warnings;
use DBI;
use Finance::QuoteHist;
use List::Util qw(min max);
#use Data::Dumper;
use Net::FTP;
use Time::Local;
use Email::Send::SMTP::Gmail;
use Tie::File;
#Analyse ADx (DMI)
use Math::Business::ADX;
use Math::Business::RSI;
use Math::Business::SM::Stochastic;
use LWP::Simple;
use Math::Business::SMA;
use Finance::TA;
use Scalar::Util qw(looks_like_number);

my $adx = Math::Business::ADX->recommended;
my $rsi = Math::Business::RSI->recommended;
my $sto = Math::Business::SM::Stochastic->recommended;


....

########################################################
$debug=1;
$dbuser = "xxx";
$dbpass = "xxx";
$datestring = localtime();
$file = "nasdaqlisted.txt";
$file2 = "otherlisted.txt";
$filenext = "euronextlisted.txt";
$fileout = "listedsymbols.txt";
$outputfile="output.txt";
$tradingview = "https://fr.tradingview.com/chart/?symbol=";
$finvizview = "https://finviz.com/quote.ashx?t=";

...


unlink $outputfile;
# IF File too old (24h) delete old
my $mtime=(stat($file))[9];
my ($day, $month, $year)=(localtime())[3,4,5];
my $midnight=timelocal(0,0,0,$day,$month,$year);
unlink ($file) if ($mtime<$midnight);
unlink ($file2) if ($mtime<$midnight);


if (! -f $file) {
# Connect to the Nasdaq® FTP
print "Looking for ListedStocks on Nasdaq® FTP Server\n";
$ftp = Net::FTP->new("nasdaqtrader.com", Debug => 0)
or die "Cannot connect to some.host.name: [email protected]";
# As Anonymous
$ftp->login("anonymous",'[email protected]')
or die "Cannot login ", $ftp->message;
# Browse directory
$ftp->cwd("/SymbolDirectory")
or die "Cannot change working directory ", $ftp->message;
# Get the File of all Nasdaq Symbol listed
$ftp->get($file)
or die "get failed ", $ftp->message;
$ftp->get($file2)
or die "get failed ", $ftp->message;

$ftp->quit;
}

tie my @ry1,"Tie::File",$file or die "$file:$!";
tie my @ry2,"Tie::File",$file2 or die "$file2:$!";
tie my @ry3,"Tie::File",$filenext or die "$filenext:$!"; #Euronext special file (to be generated time to time)
tie my @out,"Tie::File",$fileout or die "$fileout:$!";

@out=(@ry1,@ry2,@ry3);

untie @out;
untie @ry3;
untie @ry2;
untie @ry1;

....

open(A, $fileout);
open(B, "> $outputfile") || die "create $outputfile : $!";
print "Opening $fileout...\n" if $debug==1;


$task = "curl -s --cookie-jar cookie.txt https://finance.yahoo.com/quote/AAPL/?p=AAPL > goog.html";
`$task`;

my $crumbfile="goog.html";
open (my $fh, "<", $crumbfile);

while(my $line = <$fh>){
for ($line =~/CrumbStore\":\{\"crumb\":\"(?<crumb>.+?)\"\}/){
$crumb = $1;
}
}
print "Here is the crumb man!: $crumb\n" if $debug == 1; #The Crumb is mandatory now on Yahoo to grab CSV file from a ticker
unlink $crumbfile;



while(<A>) {
chop;


next if !(/Common Stock/|/Ordinary Shares/);

@l=split(/[|]/);
$symbol=$l[0];

if (index($symbol, ".") != -1) { # some tricky brol to be discard
next
}else {
if (index($symbol, ",") != -1) {
$symbol =~ tr{,}{.};
}
}
$name=$l[1];

$exch=$l[2]; #Wich Exchange is it?
if ($exch eq "N") {
$exch = "NYSE";
}else {
if ($exch eq "A" ){
$exch = "AMEX";
}else {
if ($exch eq "Euronext") {
$exch = "EURONEXT";
} else {
$exch = "NASDAQ";
}
}
}


##########################################################################
######## NEW METHOD TO GRAB QUOTE FROM YAHOO //FASTER THAN OLD// #########
#$P1 = (time() - 5384000); #60days before epoch time till now
$P1 = (time() - 31536000); #1year before epoch time till now
#$P1 = (time() - 259200); #3days before epoch time till now TEST
$P2 = time();

$task = "https://query1.finance.yahoo.com/v7/finance/download/$symbol?period1=$P1&period2=$P2&interval=1d&events=history&crumb=$crumb";

$thesymbol = "$directory$symbol.csv";
getstore($task, $thesymbol);

my $n_secs = 2;
my $start = time;

$yahoo_symbol = 0;
while ( !(-e $thesymbol) ) {
sleep 1;
getstore($task, $thesymbol); # We try again
if (time-$start >= $n_secs){
print "probleme avec le symbol $symbol on passe par l'autre methode plus lente\n";
$yahoo_symbol = 1;
}
last if time-$start >= $n_secs;
}
###############################################################################################
if ($yahoo_symbol eq 0){
open(Z,$thesymbol);

$average=0;
$count=0;
$volume = 0;
@array = ();
@data_points = ();
@gap_points = ();
@bottom = ();
@mfhigh = ();
@mflow = ();
@mfclose = ();
@mfvolume = ();
@MFI = ();
while(<Z>) {
chop;
next if (/Date/);
$count++;

@row=split(/[,]/);
$date=$row[0];
$open=$row[1];
$high=$row[2];
$low=$row[3];
$close=$row[4];
$volume=$row[6];
if (not defined $volume) { # certains symbols ont des volumes nuls ou inexistants/ pour éviter des divisions par zero on remplace l'average et le volume par 100
$average += 100;
$volume = 100;
}else {
if ($volume ne "null"){
$average += $volume;
}else{
$average += 100;
$volume = 100;
}
}
push(@array, $close);
push(@bottom, $low);
push(@data_points,[ $high, $low, $close ]);
push(@MFI,[ $high, $low, $close, $volume ]);
push(@gap_points,[ $date, $open, $high, $low, $close, $volume ]);
push(@mfhigh,$high);
push(@mflow,$low);
push(@mfclose,$close);
push(@mfvolume,$volume);
}
}else{ # Older Method super lente
$q = Finance::QuoteHist->new
(
symbols => [$symbol],
start_date => '1 year ago', # or '1 year ago', see Date::Manip
end_date => 'today',
);
$average=0;
$count=0;
$volume = 0;
@array = ();
@data_points = ();
@gap_points = ();
@bottom = ();
@mfhigh = ();
@mflow = ();
@mfclose = ();
@mfvolume = ();
@MFI = ();
# Quotes
foreach $row ($q->quotes()) {
eval {
# stuff that might die
};
#print "@$row\n";
$count++;
($symbol, $date, $open, $high, $low, $close, $volume) = @$row;
if (not defined $volume) {
$average += 100;
$volume = 100;
}else {
if ($volume ne "null"){
$average += $volume;
}else{
$average += 100;
$volume = 100;
}
}
push(@array, $close);
push(@bottom,$low);
push(@data_points,[ $high, $low, $close]);
push(@MFI,[ $high, $low, $close, $volume ]);
push(@gap_points,[ $date, $open, $high, $low, $close, $volume ]);
push(@mfhigh,$high);
push(@mflow,$low);
push(@mfclose,$close);
push(@mfvolume,$volume);
}

}
close(Z);
unlink $thesymbol;



Voilà amuses-toi bien
Mon script fait plus de 800 lignes c'est un beau bébé
mediax
Acharné
Acharné
 
Message(s) : 1609
Inscription : 26 Juin 2005 15:38

Re: Investissez dans une valeur boursière

Message par Allen » 23 Mars 2021 23:10

Merci ! Y a de quoi s'amuser en effet.
Allen
Acharné
Acharné
 
Message(s) : 1212
Inscription : 31 Mars 2005 12:36

Re: Investissez dans une valeur boursière

Message par lazarus » 24 Mars 2021 19:47

mediax a écrit :Belle perf de WKEY aujourd'hui j'ai vendu une grosse partie aujourd'hui

Aucune idée de comment sera fait demain mais j'espère qu'il se calmera pour moi en reprendre en dessous des 10$ (7$ comme la dernière fois serait idéal)


Dommage. Ca part en fusée là.
Avatar de l’utilisateur
lazarus
Acharné
Acharné
 
Message(s) : 2652
Inscription : 29 Juil 2007 13:27
Localisation : Aywaille

Re: Investissez dans une valeur boursière

Message par mediax » 24 Mars 2021 21:36

Mis entre temps il été repassé sous 10$ alors j'en ai repris

Vendu partie à 16 18 20 21.... J'ai plus que 250 titres.... Il va pas me faire 50$ hein non hein???!!!
mediax
Acharné
Acharné
 
Message(s) : 1609
Inscription : 26 Juin 2005 15:38

Re: Investissez dans une valeur boursière

Message par lazarus » 26 Mars 2021 19:36

Ca repart.
50$ pq pas, moi je suis pour ! :)
Avatar de l’utilisateur
lazarus
Acharné
Acharné
 
Message(s) : 2652
Inscription : 29 Juil 2007 13:27
Localisation : Aywaille

Re: Investissez dans une valeur boursière

Message par mediax » 27 Mars 2021 12:35

Moi aussi mais je veux mes 1500 titres à nouveau

FUBO je renforce lundi
mediax
Acharné
Acharné
 
Message(s) : 1609
Inscription : 26 Juin 2005 15:38

Re: Investissez dans une valeur boursière

Message par Altar » 03 Avr 2021 20:36

Vous pensez quoi de Deliveroo ?

D'ailleurs, l'action ne me semble pas disponible sur degiro, vous savez pourquoi ?
Altar
Acharné
Acharné
 
Message(s) : 3628
Inscription : 22 Déc 2002 17:14

Re: Investissez dans une valeur boursière

Message par citro » 03 Avr 2021 21:23

Altar a écrit :Vous pensez quoi de Deliveroo ?

Comme pour toute introduction, la prudence est de mise, on ne sait jamais si le prix d'introduction est correct par rapport aux marchés.
Altar a écrit :D'ailleurs, l'action ne me semble pas disponible sur degiro, vous savez pourquoi ?

"Les échanges sont initialement réservés aux investisseurs professionnels avant d'être ouverts au grand public à partir du 7 avril. "

https://www.zonebourse.com/cours/action ... -32846061/
citro
Acharné
Acharné
 
Message(s) : 1908
Inscription : 12 Mai 2007 19:12

Re: Investissez dans une valeur boursière

Message par x-team-2 » 04 Avr 2021 21:07

Un peu d'air France :roll: .... On verra :vin:
x-team-2
Membre
Membre
 
Message(s) : 72
Inscription : 11 Nov 2008 19:12

Re: Investissez dans une valeur boursière

Message par Id0... » 06 Avr 2021 13:59

x-team-2 a écrit :Un peu d'air France :roll: .... On verra :vin:

j'en ai pris ce matin
Id0...
Acharné
Acharné
 
Message(s) : 1912
Inscription : 10 Fév 2006 20:09

Re: Investissez dans une valeur boursière

Message par citro » 07 Avr 2021 15:47

Deliveroo est depuis ce matin accessible aux particuliers.
Et le titre monte de 2 %...
citro
Acharné
Acharné
 
Message(s) : 1908
Inscription : 12 Mai 2007 19:12

Re: Investissez dans une valeur boursière

Message par citro » 09 Avr 2021 22:00

citro a écrit :
Altar a écrit :Vous pensez quoi de Deliveroo ?

Comme pour toute introduction, la prudence est de mise, on ne sait jamais si le prix d'introduction est correct par rapport aux marchés.

Deliveroo a perdu 27 % depuis son introduction

"Berenberg a initié jeudi le suivi du titre Deliveroo avec une recommandation 'conserver' et un objectif de 310 pence, une semaine après l'entrée en Bourse ratée du spécialiste de la livraison de repas.
Si le groupe bénéficie d'une 'marque forte' qui lui a permis de gagner des parts de marchés du fait de son statut de 'pure player', Deliveroo évolue sur un segment que le broker allemand juge 'hautement concurrentiel'."
CercleFinance.com
citro
Acharné
Acharné
 
Message(s) : 1908
Inscription : 12 Mai 2007 19:12

Re: Investissez dans une valeur boursière

Message par x-team-2 » 10 Avr 2021 13:03

pas chaud pour le delivroo pour l'instant.

Je me tate avec de l' AB inbev pour du ' moyen terme 6 mois '

Vous suivez quoi pour l'instant ?
x-team-2
Membre
Membre
 
Message(s) : 72
Inscription : 11 Nov 2008 19:12

Re: Investissez dans une valeur boursière

Message par mediax » 10 Avr 2021 20:21

Je suis intrigué par BIOCARTIS, trop calme depuis 1 an
mediax
Acharné
Acharné
 
Message(s) : 1609
Inscription : 26 Juin 2005 15:38

Précédent

Retour vers Bons plans

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit

cron