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 15: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) : 4306
Inscription : 30 Juin 2007 19:56

Re: Investissez dans une valeur boursière

Message par mediax » 23 Mars 2021 15: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: $@";
# As Anonymous
$ftp->login("anonymous",'-anonymous@')
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) : 1628
Inscription : 26 Juin 2005 14:38

Re: Investissez dans une valeur boursière

Message par Allen » 23 Mars 2021 22:10

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

Re: Investissez dans une valeur boursière

Message par lazarus » 24 Mars 2021 18: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) : 2678
Inscription : 29 Juil 2007 12:27
Localisation : Aywaille

Re: Investissez dans une valeur boursière

Message par mediax » 24 Mars 2021 20: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) : 1628
Inscription : 26 Juin 2005 14:38

Re: Investissez dans une valeur boursière

Message par lazarus » 26 Mars 2021 18:36

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

Re: Investissez dans une valeur boursière

Message par mediax » 27 Mars 2021 11:35

Moi aussi mais je veux mes 1500 titres à nouveau

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

Re: Investissez dans une valeur boursière

Message par Altar » 03 Avr 2021 19: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) : 3752
Inscription : 22 Déc 2002 16:14

Re: Investissez dans une valeur boursière

Message par citro » 03 Avr 2021 20: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) : 1932
Inscription : 12 Mai 2007 18:12

Re: Investissez dans une valeur boursière

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

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

Re: Investissez dans une valeur boursière

Message par Id0... » 06 Avr 2021 12: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) : 1925
Inscription : 10 Fév 2006 19:09

Re: Investissez dans une valeur boursière

Message par citro » 07 Avr 2021 14:47

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

Re: Investissez dans une valeur boursière

Message par citro » 09 Avr 2021 21: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) : 1932
Inscription : 12 Mai 2007 18:12

Re: Investissez dans une valeur boursière

Message par x-team-2 » 10 Avr 2021 12: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) : 80
Inscription : 11 Nov 2008 18:12

Re: Investissez dans une valeur boursière

Message par mediax » 10 Avr 2021 19:21

Je suis intrigué par BIOCARTIS, trop calme depuis 1 an

Update: pris BCART à 4.3€ ~400 titres
mediax
Acharné
Acharné
 
Message(s) : 1628
Inscription : 26 Juin 2005 14:38

Re: Investissez dans une valeur boursière

Message par citro » 14 Avr 2021 13:01

Qui se positionne sur coinbase ?
J'en ai pris une petite quantité avant la première séance, mais je reste un peu sceptique...
citro
Acharné
Acharné
 
Message(s) : 1932
Inscription : 12 Mai 2007 18:12

Re: Investissez dans une valeur boursière

Message par mediax » 14 Avr 2021 18:45

Bravo COIN à 400$
mediax
Acharné
Acharné
 
Message(s) : 1628
Inscription : 26 Juin 2005 14:38

Re: Investissez dans une valeur boursière

Message par citro » 16 Avr 2021 16:57

Entré finalement sur coinbase à 330 et 341 $. La configuration graphique est plutôt bonne : une première journée de forte volatilité, une journée de stabilisation puis ce soir une reprise.

Mais c'est du casino...
citro
Acharné
Acharné
 
Message(s) : 1932
Inscription : 12 Mai 2007 18:12

Re: Investissez dans une valeur boursière

Message par clear.be » 16 Avr 2021 19:57

N'hésite pas à prendre tes profits et ne pas tarder à sortir, je crois que ça profite de la hype, mais ça me semble sur-évalué
Avatar de l’utilisateur
clear.be
Dix mille
Dix mille
 
Message(s) : 12478
Inscription : 10 Sep 2003 19:40

Re: Investissez dans une valeur boursière

Message par citro » 17 Avr 2021 12:24

clear.be a écrit :N'hésite pas à prendre tes profits et ne pas tarder à sortir, je crois que ça profite de la hype, mais ça me semble sur-évalué

Pas de soucis dans mon esprit tout est clear.
Et j'ai bien conscience du côté surévalué, mais aussi de la folie de certains qui pourrait propulser ce titre...
citro
Acharné
Acharné
 
Message(s) : 1932
Inscription : 12 Mai 2007 18:12

PrécédentSuivant

Retour vers Bons plans

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit

cron