Bonjour,
Super, çà s'anime!...
Merci Augusseau pour ton programme de définition des "DevStops" selon C .Kase.
Merci aussi Lego pour ta statistique.
Je te propose une solution qui fonctionne avec une seule boucle POUR.
-----------------------------------------------------------------
<pre>// RSI < 50 ET CROISEMENT AVEC SA MM et CLOTURE AU DESSOUS DE LA BANDE BOLL
//(achat à vérifier avec d'autres paramètres bien sur)
NB_PERIODES=15
//A remettre impérativement à 0 avant l'examen d'une autre action
VAR_RSI=0
VAR_BOLL=0
POUR NB_PERIODES COURS
// Cloture au dessous de LBOLL
SI CLOTURE<LBOLL ALORS VAR_BOLL= 1
// RSI<50 et croisement à la hausse de MRSI par RSI
SI RSI<50
ALORS
VAR_RSI = 1
SI CROISE(RSI,MRSI)>0
ALORS
VAR_RSI = VAR_RSI + 1
FINSI
FINSI
SI VAR_RSI = 2 ET VAR_BOLL = 1
ALORS
COLONNE1 = "RSI - LBOLL " & DATEHISTO$
SELECTION //A pour effet de sortir de la boucle POUR quand on passe ici
FINSI
FINPOUR</pre>
-----------------------------------------------------------------
Deux choses à bien comprendre.
Première chose :
- le passage sur l'instruction SELECTION arrête l'examen des périodes restantes pour l'action qui est actuellement examinée (le programme sort de la boucle POUR).
Comme tu peux le constater, j'ai réintégré cette instruction dans la boucle POUR, donc plus besoin de la variable VAR_SELECT.
De cette manière, si ton critère de sélection (VAR_RSI = 2 ET VAR_BOLL = 1) est satisfait, la stat nous indique en COLONNE1 du rapport de statistique : le message "RSI_LBOLL", suivi de la date pour laquelle le critère est satisfait et, du fait, de la présence de l'instruction SELECTION, le nom de l'action concernée.
Deuxième chose :
- il faut remettre impérativement à 0 : VAR_RSI et VAR_BOLL chaque fois que l'on sort de la boucle POUR, que ton critère de sélection soit satisfait pour l'action en cours ou non. Cette RAZ est réalisée ici en tête de programme, avant de traiter une nouvelle action.
Si tu ne réalise pas cette RAZ, les 2 variables VAR_RSI et VAR_BOLL conservent les valeurs qu'elles ont acquises lors de la première boucle POUR, et c'est la panique pour la suite...
La fenêtre Propriétés est inchangée.
J'ai appliqué ta stat sur le CAC40 en date de vendredi dernier le 09/09/2005 avec un RSI règlé sur 14 et 3 pour le MRSI3.
Voici les résultats :
<font size="1">Système de Robert Edwards et John Magee
programmé par Lego
RSI - LBOLL 05/09/2005 AGF
RSI - LBOLL 31/08/2005 Air Liquide
RSI - LBOLL 31/08/2005 Alcatel
RSI - LBOLL 30/08/2005 Arcelor
RSI - LBOLL 31/08/2005 AXA
RSI - LBOLL 31/08/2005 Bnp Paribas
RSI - LBOLL 31/08/2005 Cap Gemini
RSI - LBOLL 31/08/2005 Carrefour
RSI - LBOLL 31/08/2005 Casino Guichard
RSI - LBOLL 29/08/2005 Credit agricole
RSI - LBOLL 29/08/2005 Dexia
RSI - LBOLL 29/08/2005 France Telecom
RSI - LBOLL 29/08/2005 Lafarge
RSI - LBOLL 31/08/2005 Lagardere
RSI - LBOLL 31/08/2005 Michelin
RSI - LBOLL 01/09/2005 Peugeot
RSI - LBOLL 06/09/2005 Publicis Group
RSI - LBOLL 31/08/2005 Renault
RSI - LBOLL 05/09/2005 Sanofi-Aventis
RSI - LBOLL 24/08/2005 Schneider
RSI - LBOLL 29/08/2005 Societe Generale
RSI - LBOLL 05/09/2005 STMicroelectronics
RSI - LBOLL 05/09/2005 TF1
RSI - LBOLL 29/08/2005 Vivendi universal</font id="size1">
Bonne fin de week end.
Super, çà s'anime!...
Merci Augusseau pour ton programme de définition des "DevStops" selon C .Kase.
Merci aussi Lego pour ta statistique.
Je te propose une solution qui fonctionne avec une seule boucle POUR.
-----------------------------------------------------------------
<pre>// RSI < 50 ET CROISEMENT AVEC SA MM et CLOTURE AU DESSOUS DE LA BANDE BOLL
//(achat à vérifier avec d'autres paramètres bien sur)
NB_PERIODES=15
//A remettre impérativement à 0 avant l'examen d'une autre action
VAR_RSI=0
VAR_BOLL=0
POUR NB_PERIODES COURS
// Cloture au dessous de LBOLL
SI CLOTURE<LBOLL ALORS VAR_BOLL= 1
// RSI<50 et croisement à la hausse de MRSI par RSI
SI RSI<50
ALORS
VAR_RSI = 1
SI CROISE(RSI,MRSI)>0
ALORS
VAR_RSI = VAR_RSI + 1
FINSI
FINSI
SI VAR_RSI = 2 ET VAR_BOLL = 1
ALORS
COLONNE1 = "RSI - LBOLL " & DATEHISTO$
SELECTION //A pour effet de sortir de la boucle POUR quand on passe ici
FINSI
FINPOUR</pre>
-----------------------------------------------------------------
Deux choses à bien comprendre.
Première chose :
- le passage sur l'instruction SELECTION arrête l'examen des périodes restantes pour l'action qui est actuellement examinée (le programme sort de la boucle POUR).
Comme tu peux le constater, j'ai réintégré cette instruction dans la boucle POUR, donc plus besoin de la variable VAR_SELECT.
De cette manière, si ton critère de sélection (VAR_RSI = 2 ET VAR_BOLL = 1) est satisfait, la stat nous indique en COLONNE1 du rapport de statistique : le message "RSI_LBOLL", suivi de la date pour laquelle le critère est satisfait et, du fait, de la présence de l'instruction SELECTION, le nom de l'action concernée.
Deuxième chose :
- il faut remettre impérativement à 0 : VAR_RSI et VAR_BOLL chaque fois que l'on sort de la boucle POUR, que ton critère de sélection soit satisfait pour l'action en cours ou non. Cette RAZ est réalisée ici en tête de programme, avant de traiter une nouvelle action.
Si tu ne réalise pas cette RAZ, les 2 variables VAR_RSI et VAR_BOLL conservent les valeurs qu'elles ont acquises lors de la première boucle POUR, et c'est la panique pour la suite...
La fenêtre Propriétés est inchangée.
J'ai appliqué ta stat sur le CAC40 en date de vendredi dernier le 09/09/2005 avec un RSI règlé sur 14 et 3 pour le MRSI3.
Voici les résultats :
<font size="1">Système de Robert Edwards et John Magee
programmé par Lego
RSI - LBOLL 05/09/2005 AGF
RSI - LBOLL 31/08/2005 Air Liquide
RSI - LBOLL 31/08/2005 Alcatel
RSI - LBOLL 30/08/2005 Arcelor
RSI - LBOLL 31/08/2005 AXA
RSI - LBOLL 31/08/2005 Bnp Paribas
RSI - LBOLL 31/08/2005 Cap Gemini
RSI - LBOLL 31/08/2005 Carrefour
RSI - LBOLL 31/08/2005 Casino Guichard
RSI - LBOLL 29/08/2005 Credit agricole
RSI - LBOLL 29/08/2005 Dexia
RSI - LBOLL 29/08/2005 France Telecom
RSI - LBOLL 29/08/2005 Lafarge
RSI - LBOLL 31/08/2005 Lagardere
RSI - LBOLL 31/08/2005 Michelin
RSI - LBOLL 01/09/2005 Peugeot
RSI - LBOLL 06/09/2005 Publicis Group
RSI - LBOLL 31/08/2005 Renault
RSI - LBOLL 05/09/2005 Sanofi-Aventis
RSI - LBOLL 24/08/2005 Schneider
RSI - LBOLL 29/08/2005 Societe Generale
RSI - LBOLL 05/09/2005 STMicroelectronics
RSI - LBOLL 05/09/2005 TF1
RSI - LBOLL 29/08/2005 Vivendi universal</font id="size1">
Bonne fin de week end.
Commentaire