j'ai constitué un zip du partie de programmes de cette file, zip à compléter pour éviter à chacun d'avoir soit des infos qui ont été modifiées soit à faire le tour des 94 pages
vous pouvez le charger à l'adresse suivante:
indicateurs.zip
faites moi parvenir les programmes qui ne sont pas sur ce zip pour le parfaire et continuer à améliorer ce logiciel dont je un grand FAN car l'on peut vraiment y développer ses idées, je pense qu'il est temps de regrouper plus nos idées et nos developpements, compte tenu du travail trés important déja effectué, sans vouloir réinventer un linux de bourse !!

nouvelle version :

Si RANGHISTO=FINHISTO Alors
SAUT_de_ligne$="
"
separ$="___________________________________________..." & SAUT_de_ligne$
MAGIC1$= MAGIC1$ & ""
MAGIC1$= MAGIC1$ & "====================== TENDANCE ACHAT =========================================" & SAUT_de_ligne$
SIGNAL_ACHAT$= "------------- Signal d'achat détecté par l'indicateur "
SI CROISE(RTRIX32.RTRIXB,RTRIX32.RTRIXA) et RTRIX32.RTRIXB>RTRIX32.RTRIXA ALORS MAGIC1$=SIGNAL_ACHAT$ & "RTRIX32" & SAUT_de_ligne$
SI CROISE(RTRIX33.RTRIX,RTRIX33.RMTRIX) et RTRIX33.RTRIX>RTRIX33.RMTRIX ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "RTRIX33" & SAUT_de_ligne$
SI CROISE(AROON.AROON_DOWN,AROON.AROON_UP) et AROON.AROON_DOWN<AROON.AROON_UP ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "AROON" & SAUT_de_ligne$
SI CROISE(ADX_DI__DI_.RDIPLUS,ADX_DI__DI_.RDIMOINS) et ADX_DI__DI_.RDIPLUS>ADX_DI__DI_.RDIMOINS ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "ADX_DI__DI_" & SAUT_de_ligne$
SI croise(ADX,17) et ADX>17 ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "ADX croise 17 " & SAUT_de_ligne$
SI croise(RSTOCH.RMSTOCH,RSTOCH.RSTOCH) ET RSTOCH.RMSTOCH<RSTOCH.RSTOCH ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "stochastique " & SAUT_de_ligne$
SI CROISE(CCI,0) et CCI>0 ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "CCI " & SAUT_de_ligne$
si croise(moyenne(cloture,3), moyenne(cloture,7)) et moyenne(cloture,3)> moyenne(cloture,7) ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "moyenne 3 et 7 " & SAUT_de_ligne$
si croise(moyenne(cloture,3), moyenne(cloture,14)) et moyenne(cloture,3)> moyenne(cloture,14) ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "moyenne 3 et 14 " & SAUT_de_ligne$
si croise(moyenne(cloture,3), moyenne(cloture,25)) et moyenne(cloture,3)> moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "moyenne 3 et 25 " & SAUT_de_ligne$
si croise(moyenne(cloture,7), moyenne(cloture,14)) et moyenne(cloture,7)> moyenne(cloture,14) ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "moyenne 7 et 14 " & SAUT_de_ligne$
si croise(moyenne(cloture,7), moyenne(cloture,25)) et moyenne(cloture,7)> moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "moyenne 7 et 25 " & SAUT_de_ligne$
//si croise(SMI.STO_MOM_INDEX,SMI.MSTO_MOM_INDEX ) et SMI.STO_MOM_INDEX>SMI.MSTO_MOM_INDEX ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "SMI 13 JOURS " & SAUT_de_ligne$
SI SAR_ATD.FL3>0 ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "SAR " & SAUT_de_ligne$
si croise(SMI2.STO_MOM_INDEX,SMI2.MSTO_MOM_INDEX ) et SMI2.STO_MOM_INDEX>SMI2.MSTO_MOM_INDEX ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "SMI 4 JOURS " & SAUT_de_ligne$
//si croise(SMI3.STO_MOM_INDEX,SMI3.MSTO_MOM_INDEX ) et SMI3.STO_MOM_INDEX>SMI3.MSTO_MOM_INDEX ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "SMI 7 JOURS " & SAUT_de_ligne$
SI CROISE(RWI.H_RWI,RWI.B_RWI) ET RWI.H_RWI>RWI.B_RWI ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "RWI " & SAUT_de_ligne$
SI CROISE(RMACD.RMACD,RMACD.RMMACD) ET RMACD.RMACD>RMACD.RMMACD ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "MACD --Moving Average Convergence Divergence" & SAUT_de_ligne$
SI CROISE(RMOMENTUM.RMOMENTUM,0) et RMOMENTUM.RMOMENTUM>0 ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "MOMENTUM croise 0" & SAUT_de_ligne$
SI CROISE(RROC.RROC,100) et RROC.RROC>100 ALORS MAGIC1$= MAGIC1$ & SIGNAL_ACHAT$ & "ROC --Rate of Change" & SAUT_de_ligne$

SIGNAL_sousACHAT$= "------------- Signal de Sousachat est détecté par l'indicateur "
SI CCI<-100 ALORS MAGIC1$= MAGIC1$ & SIGNAL_sousACHAT$ & "CCI " & ARRONDI(CCI,0) & " <-100 " & SAUT_de_ligne$
SI RRSI14.RRSI<30 ALORS MAGIC1$= MAGIC1$ & SIGNAL_sousACHAT$ & "de puissance RSI 14 jours " & ARRONDI(RRSI14.RRSI,0) & " <30 --Relative Strengh Index" & SAUT_de_ligne$
SI RRSI25.RRSI<35 ALORS MAGIC1$= MAGIC1$ & SIGNAL_sousACHAT$ & "de puissance RSI 25 jours " & ARRONDI(RRSI25.RRSI,0) & " <35 --Relative Strengh Index" & SAUT_de_ligne$
SI RRSI.RRSI<25 ALORS MAGIC1$= MAGIC1$ & SIGNAL_sousACHAT$ & "de puissance RSI 7 jours " & ARRONDI(RRSI.RRSI,0) & " <25 --Relative Strengh Index" & SAUT_de_ligne$

SI RRSI14.RRSI<70 ET RRSI14.RRSI>30 et RRSI14.RRSI>RRSI14.RMRSI ALORS MAGIC1$= MAGIC1$ & "------------- l'indicateur RSI 14 jours est positif" & SAUT_de_ligne$
SI RRSI25.RRSI<65 ET RRSI25.RRSI>35 et RRSI25.RRSI>RRSI25.RMRSI ALORS MAGIC1$= MAGIC1$ & "------------- l'indicateur RSI 25 jours est positif" & SAUT_de_ligne$
SI RRSI.RRSI<75 ET RRSI.RRSI>25 et RRSI.RRSI>RRSI.RMRSI ALORS MAGIC1$= MAGIC1$ & "------------- l'indicateur RSI 7 jours est positif" & SAUT_de_ligne$

SI RWILLIAMS.RWILL<-80 ALORS MAGIC1$= MAGIC1$ & "------------- Signal de Sousachat est détecté par l'indicateur RWILLIAMS " & ARRONDI(RWILLIAMS.RWILL,0) & " <-80" & SAUT_de_ligne$
si moyenne(cloture,3)> moyenne(cloture,7) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 3 jours est POSITIVE sur la moyenne mobile 7 jours" & SAUT_de_ligne$
si moyenne(cloture,3)> moyenne(cloture,14) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 3 jours est POSITIVE sur la moyenne mobile 14 jours" & SAUT_de_ligne$
si moyenne(cloture,3)> moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 3 jours est POSITIVE sur la moyenne mobile 25 jours" & SAUT_de_ligne$
si moyenne(cloture,3)> moyenne(cloture,50) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 3 jours est POSITIVE sur la moyenne mobile 50 jours" & SAUT_de_ligne$

si moyenne(cloture,7)> moyenne(cloture,14) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 7 jours est POSITIVE sur la moyenne mobile 14 jours" & SAUT_de_ligne$
si moyenne(cloture,7)> moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 7 jours est POSITIVE sur la moyenne mobile 25 jours" & SAUT_de_ligne$
si moyenne(cloture,7)> moyenne(cloture,50) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 7 jours est POSITIVE sur la moyenne mobile 50 jours" & SAUT_de_ligne$

si moyenne(cloture,14)> moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 14 jours est POSITIVE sur la moyenne mobile 25 jours" & SAUT_de_ligne$
si moyenne(cloture,14)> moyenne(cloture,50) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 14 jours est POSITIVE sur la moyenne mobile 50 jours" & SAUT_de_ligne$
tendance$= "------------- Une tendance haussière est détectée par l'indicateur "
SI RROC.RROC>100 ALORS MAGIC1$= MAGIC1$ & tendance$ & "ROC= " & ARRONDI(RROC.RROC,0) & " >100--Rate of Change" & SAUT_de_ligne$
SI ADX_DI__DI_.RDIPLUS>ADX_DI__DI_.RDIMOINS ALORS MAGIC1$= MAGIC1$ & tendance$ & "ADX_DI__DI_" & SAUT_de_ligne$

SI AROON.AROON_UP>70 et AROON.AROON_DOWN<30 ALORS MAGIC1$= MAGIC1$ & "------------- Une tendance haussière forte est détectée par l'indicateur AROON" & SAUT_de_ligne$
SI RWI.H_RWI>RWI.B_RWI ALORS MAGIC1$= MAGIC1$ & "------------- Une tendance haussière est détectée par l'indicateur RWI" & SAUT_de_ligne$
si (ETOILE.ETOILEmatin=1) ALORS MAGIC1$= MAGIC1$ & tendance$ & " ***** Etoile Du Matin " & SAUT_de_ligne$
SI RSTOCH.RMSTOCH <20 ALORS MAGIC1$= MAGIC1$ & "------------- une situation de distribution est détecté par l'indicateur stochastique, si minimum étroit pas très profond les baissiers sont faibles l'évolution devrait être forte" & SAUT_de_ligne$
SI RMACD.RMACD>RMACD.RMMACD ET RMACD.RMACD>0 ALORS MAGIC1$= MAGIC1$ & "------------- Le MACD est positif et supérieur à sa ligne de signal. Cette configuration confirme la bonne orientation du titre" & SAUT_de_ligne$
SI RMACD.RMACD>RMACD.RMMACD ET RMACD.RMACD<0 ALORS MAGIC1$= MAGIC1$ & "------------- Le MACD est positif et inférieur à sa ligne de signal" & SAUT_de_ligne$


MAGIC1$= MAGIC1$ & "====================== TENDANCE VENTE =========================================" & SAUT_de_ligne$
signal_vente$= "------------- Signal de vente est détecté par l'indicateur "
SI CROISE(RROC.RROC,100) et RROC.RROC<100 ALORS MAGIC1$= MAGIC1$ & signal_vente$ & " croisement de 100 à la baisse l'indicateur RROC (" & RROC.RROC & ")--Rate of Change" & SAUT_de_ligne$
SI CROISE(RMOMENTUM.RMOMENTUM,0) et RMOMENTUM.RMOMENTUM<0 ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "MOMENTUM" & SAUT_de_ligne$
SI croise(ADX,17) et ADX<17 ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "ADX croise 17" & SAUT_de_ligne$
SI CROISE(ADX_DI__DI_.RDIPLUS,ADX_DI__DI_.RDIMOINS) et ADX_DI__DI_.RDIPLUS<ADX_DI__DI_.RDIMOINS ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "ADX_DI__DI_" & SAUT_de_ligne$
SI CROISE(RTRIX32.RTRIXB,RTRIX32.RTRIXA) et RTRIX32.RTRIXB<RTRIX32.RTRIXA ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "RTRIX32" & SAUT_de_ligne$
SI CROISE(RTRIX33.RTRIX,RTRIX33.RMTRIX) et RTRIX33.RTRIX<RTRIX33.RMTRIX ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "RTRIX33" & SAUT_de_ligne$
si croise(moyenne(cloture,3), moyenne(cloture,7)) et moyenne(cloture,3)< moyenne(cloture,7) ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "moyenne 3 et 7" & SAUT_de_ligne$
si croise(moyenne(cloture,3), moyenne(cloture,14)) et moyenne(cloture,3)< moyenne(cloture,14) ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "moyenne 3 et 14" & SAUT_de_ligne$
si croise(moyenne(cloture,3), moyenne(cloture,25)) et moyenne(cloture,3)< moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "moyenne 3 et 25" & SAUT_de_ligne$
si croise(moyenne(cloture,7), moyenne(cloture,14)) et moyenne(cloture,7)< moyenne(cloture,14) ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "moyenne 7 et 14" & SAUT_de_ligne$
si croise(moyenne(cloture,7), moyenne(cloture,25)) et moyenne(cloture,7)< moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "moyenne 7 et 25" & SAUT_de_ligne$
SI CROISE(AROON.AROON_DOWN,AROON.AROON_UP) et AROON.AROON_DOWN>AROON.AROON_UP ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "AROON" & SAUT_de_ligne$
SI croise(RSTOCH.RMSTOCH,RSTOCH.RSTOCH) ET RSTOCH.RMSTOCH>RSTOCH.RSTOCH ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "stochastique" & SAUT_de_ligne$
//si croise(SMI.STO_MOM_INDEX,SMI.MSTO_MOM_INDEX ) et SMI.STO_MOM_INDEX<SMI.MSTO_MOM_INDEX ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "SMI 13 JOURS" & SAUT_de_ligne$
SI CROISE(MACD,MMACD) ET MACD<MMACD ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "MACD --Moving Average Convergence Divergence" & SAUT_de_ligne$
SI SAR_ATD.FL1>0 ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "SAR" & SAUT_de_ligne$
SI CROISE(CCI,0) et CCI<0 ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "CCI" & SAUT_de_ligne$
//si croise(SMI3.STO_MOM_INDEX,SMI3.MSTO_MOM_INDEX ) et SMI3.STO_MOM_INDEX<SMI3.MSTO_MOM_INDEX ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "SMI 7 JOURS" & SAUT_de_ligne$
si croise(SMI2.STO_MOM_INDEX,SMI2.MSTO_MOM_INDEX ) et SMI2.STO_MOM_INDEX<SMI2.MSTO_MOM_INDEX ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "SMI 4 JOURS" & SAUT_de_ligne$
SI CROISE(RWI.H_RWI,RWI.B_RWI) ET RWI.H_RWI<RWI.B_RWI ALORS MAGIC1$= MAGIC1$ & signal_vente$ & "RWI" & SAUT_de_ligne$

SI ADX_DI__DI_.RDIPLUS<ADX_DI__DI_.RDIMOINS ALORS MAGIC1$= MAGIC1$ & "------------- Une tendance baissière est détectée par l'indicateur ADX_DI__DI_" & SAUT_de_ligne$

SI CROISE(MONEY_FLOW_INDEX.RMFLO,20) et MONEY_FLOW_INDEX.RMFLO>20 alors MAGIC1$= MAGIC1$ & "-------------MONEY_FLOW X +20, " & SAUT_de_ligne$
si Cloture(2) > HautCorps(1) ET Ouverture(0) > HautCorps(1) ET Cloture(2) < Cloture(0) ET CorpsNoir(2) > P1% ET Corps(1) < P2% ET CorpsBlanc(0) > P1% alors MAGIC1$= MAGIC1$ & "* du matin, " & SAUT_de_ligne$
si CROISE(Cloture,UBOLL) et Cloture>UBOLL alors MAGIC1$= MAGIC1$ & "X + bollinger, " & SAUT_de_ligne$
Si CROISE(TRIX,0) et TRIX>0 ALORS ligne1$=ligne1$ & "X TRIX, " & SAUT_de_ligne$
SI RMACD.RMACD<RMACD.RMMACD ET RMACD.RMACD>0 ALORS MAGIC1$= MAGIC1$ & "-------------Le MACD est négative et supérieur à sa ligne de signal." & SAUT_de_ligne$
SI RMACD.RMACD<RMACD.RMMACD ET RMACD.RMACD<0 ALORS MAGIC1$= MAGIC1$ & "-------------Le MACD est négative et inférieur à sa ligne de signal Cette configuration confirme l'orientation à la baisse du titre " & SAUT_de_ligne$



//SI CROISE(RTRIX4.RMTRIXB,RTRIX4.RTRIXB) et RTRIX4.RMTRIXB<RTRIX4.RTRIXB ALORS MAGIC1$= MAGIC1$ & "X RTRIX4, " & SAUT_de_ligne$
SI ouverture<=(BAS*1.007) et cloture>=(HAUT*0.993) ET CLOTURE>OUVERTURE ALORS MAGIC1$= MAGIC1$ & "-------------fortement haussier BLANC TOTAL Marubozu de yang, " & SAUT_de_ligne$
SI ouverture<=(BAS*1.003) et (haut-BAS)<((CLOTURE-OUVERTURE)*1.3) ET CLOTURE>OUVERTURE ALORS MAGIC1$= MAGIC1$ & "-------------haussier1 , BLANC BAS Fermeture yang bozu " & SAUT_de_ligne$ // BLANC BAS Fermeture yang bozu
SI ouverture<=(BAS*1.3) et (haut-BAS)<((CLOTURE-OUVERTURE)*1.3) ET CLOTURE>OUVERTURE ALORS MAGIC1$= MAGIC1$ & "-------------haussier2 ,BLANC HAUT Ouverture yang bozu " & SAUT_de_ligne$ // BLANC HAUT Ouverture yang bozu
SI cloture(1)<ouverture(1) et cloture>(bas(1)+((Haut(1)-BAS(1))/2)) et ouverture<cloture ALORS MAGIC1$= MAGIC1$ & "-------------haussier3 , LIGNE PERçANTE " & SAUT_de_ligne$//LIGNE PERçANTE

surachat$= "------------- Signal de Surachat est détecté par l'indicateur "
SI RWILLIAMS.RWILL>-20 ALORS MAGIC1$= MAGIC1$ & surachat$ & "RWILLIAMS " & ARRONDI(RWILLIAMS.RWILL,0) & ">-20 " & SAUT_de_ligne$
SI RRSI25.RRSI>65 ALORS MAGIC1$= MAGIC1$ & surachat$ & "RSI 25 jours " & ARRONDI(RRSI25.RRSI,0) & " >65 --Relative Strengh Index" & SAUT_de_ligne$
SI RRSI.RRSI>75 ALORS MAGIC1$= MAGIC1$ & surachat$ & "RSI 7 jours " & ARRONDI(RRSI.RRSI,0) & " >75 --Relative Strengh Index" & SAUT_de_ligne$
SI RRSI14.RRSI>70 ALORS MAGIC1$= MAGIC1$ & surachat$ & "RSI 14 jours " & ARRONDI(RRSI14.RRSI,0) & " >70 --Relative Strengh Index" & SAUT_de_ligne$
SI RRSI14.RRSI<70 ET RRSI14.RRSI>30 et RRSI14.RRSI<RRSI14.RMRSI ALORS MAGIC1$= MAGIC1$ & "------------- l'indicateur RSI 14 jours est négatif " & SAUT_de_ligne$
SI RRSI25.RRSI<65 ET RRSI25.RRSI>35 et RRSI25.RRSI<RRSI25.RMRSI ALORS MAGIC1$= MAGIC1$ & "------------- l'indicateur RSI 25 jours est négatif " & SAUT_de_ligne$
SI RRSI.RRSI<75 ET RRSI.RRSI>25 et RRSI.RRSI<RRSI.RMRSI ALORS MAGIC1$= MAGIC1$ & "------------- l'indicateur RSI 7 jours est négatif " & SAUT_de_ligne$

SI CCI>100 ALORS MAGIC1$= MAGIC1$ & "------------- Signal de Surachat est détecté par l'indicateur CCI" & ARRONDI(CCI,0) & " >100 " & SAUT_de_ligne$
si (ETOILE.ETOILEmatin=-1) ALORS MAGIC1$= MAGIC1$ & "------------- Une tendance baissière est détectée ***** Etoile Du Soir" & SAUT_de_ligne$
SI RWI.H_RWI<RWI.B_RWI ALORS MAGIC1$= MAGIC1$ & "------------- Une tendance baissière est détectée par l'indicateur RWI " & SAUT_de_ligne$
SI AROON.AROON_UP<30 et AROON.AROON_DOWN>70 ALORS MAGIC1$= MAGIC1$ & "------------- Une tendance baissière forte est détectée par l'indicateur AROON " & SAUT_de_ligne$

MAGIC1$= MAGIC1$ & "====================== TENDANCE GENERALE ========================================" & SAUT_de_ligne$


SI ADX <17 ALORS MAGIC1$= MAGIC1$ & "------------- ADX=" & ARRONDI(ADX,0) & " <17 marché est sans orientation " & SAUT_de_ligne$
SI ADX >17 ALORS MAGIC1$= MAGIC1$ & "------------- ADX=" & ARRONDI(ADX,0) & " >17 il existe une tendance " & SAUT_de_ligne$

SI moyenne(ADX,7)<17 et ADX>17 ALORS MAGIC1$= MAGIC1$ & "------------- ADX=" & ARRONDI(ADX,0) & " le marché change d'orientation ADX 17 avec une nouvelle tendance moyenne 7 jours=" & ARRONDI(moyenne(ADX,7),0) & SAUT_de_ligne$
SI moyenne(ADX,7)<20 et ADX>20 ALORS MAGIC1$= MAGIC1$ & "------------- ADX=" & ARRONDI(ADX,0) & " le marché change d'orientation ADX 20 avec une nouvelle tendance moyenne 7 jours=" & ARRONDI(moyenne(ADX,7),0) & SAUT_de_ligne$

SI moyenne(ADX,7)>17 et ADX<17 ALORS MAGIC1$= MAGIC1$ & "------------- ADX=" & ARRONDI(ADX,0) & " le marché change d'orientation ADX 17 sans tendance, moyenne 7 jours=" & ARRONDI(moyenne(ADX,7),0) & SAUT_de_ligne$
SI moyenne(ADX,7)>20 et ADX<20 ALORS MAGIC1$= MAGIC1$ & "------------- ADX=" & ARRONDI(ADX,0) & " le marché change d'orientation ADX 20 sans tendance, moyenne 7 jours=" & ARRONDI(moyenne(ADX,7),0) & SAUT_de_ligne$


SI ADX>25 ALORS MAGIC1$= MAGIC1$ & "------------- ADX=" & ARRONDI(ADX,0) & " le marché va changé d'orientation >25" & SAUT_de_ligne$
SI ADX>25 ET ADX<ADX(1) ALORS MAGIC1$= MAGIC1$ & "------------- ADX=" & ARRONDI(ADX,0) & " la tendance change d'orientation changer le sens de la position" & SAUT_de_ligne$

SI RROC.RROC<100 ALORS MAGIC1$= MAGIC1$ & "------------- Une tendance baissière est détectée par l'indicateur ROC= " & ARRONDI(RROC.RROC,0) & "<100--Rate of Change" & SAUT_de_ligne$
SI RSTOCH.RMSTOCH >80 ALORS MAGIC1$= MAGIC1$ & "------------- une situation situation d'accumulation est détecté par l'indicateur stochastique si maximum étroit les haussiers sont faibles la correction devrait d'être forte." & SAUT_de_ligne$
si moyenne(cloture,3)< moyenne(cloture,7) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 3 jours est NEGATIVE sur la moyenne mobile 7 jours" & SAUT_de_ligne$
si moyenne(cloture,3)< moyenne(cloture,14) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 3 jours est NEGATIVE sur la moyenne mobile 14 jours " & SAUT_de_ligne$
si moyenne(cloture,3)< moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 3 jours est NEGATIVE sur la moyenne mobile 25 jours" & SAUT_de_ligne$
si moyenne(cloture,3)< moyenne(cloture,50) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 3 jours est NEGATIVE sur la moyenne mobile 50 jours" & SAUT_de_ligne$
si moyenne(cloture,7)< moyenne(cloture,14) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 7 jours est NEGATIVE sur la moyenne mobile 14 jours" & SAUT_de_ligne$
si moyenne(cloture,7)< moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 7 jours est NEGATIVE sur la moyenne mobile 25 jours " & SAUT_de_ligne$
si moyenne(cloture,7)< moyenne(cloture,50) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 7 jours est NEGATIVE sur la moyenne mobile 50 jours" & SAUT_de_ligne$
si moyenne(cloture,14)< moyenne(cloture,25) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 14 jours est NEGATIVE sur la moyenne mobile 25 jours" & SAUT_de_ligne$
si moyenne(cloture,14)< moyenne(cloture,50) ALORS MAGIC1$= MAGIC1$ & "------------- La moyenne mobile 14 jours est NEGATIVE sur la moyenne mobile 50 jours " & SAUT_de_ligne$
MAGIC1$= MAGIC1$ & separ$

SI VOLUME>MVOL ALORS MAGIC1$= MAGIC1$ & "------------- Les volumes sont importants" & SAUT_de_ligne$
SI (VOLUME/1.05)>MVOL ALORS MAGIC1$= MAGIC1$ & "------------- Les volumes sont trés importants" & SAUT_de_ligne$
SI VOLUME<MVOL ALORS MAGIC1$= MAGIC1$ & "------------- Les volumes sont faible (suivant l'heure)" & SAUT_de_ligne$
SI (VOLUME*1.05)<MVOL ALORS MAGIC1$= MAGIC1$ & "------------- Les volumes sont trés faibles (suivant l'heure)" & SAUT_de_ligne$
SI MAX(CLOTURE,50)<=cloture*1% et MAX(RWILLIAMS.RWILL,50)>RWILLIAMS.RWILL*1% alors MAGIC1$= MAGIC1$ & "------------- divergence par l'indicateur RWILLIAMS" & SAUT_de_ligne$
SI MAX(CLOTURE,14)<=cloture*1% et MAX(RWILLIAMS.RWILL,14)>RWILLIAMS.RWILL*1% alors MAGIC1$= MAGIC1$ & "------------- divergence par l'indicateur RWILLIAMS" & SAUT_de_ligne$

SI MAX(CLOTURE,50)<=cloture*1% et MAX(OBV,50)>OBV*1% alors MAGIC1$= MAGIC1$ & "------------- divergence par l'indicateur OBV" & SAUT_de_ligne$
SI MAX(CLOTURE,14)<=cloture*1% et MAX(OBV,14)>OBV*1% alors MAGIC1$= MAGIC1$ & "------------- divergence par l'indicateur OBV" & SAUT_de_ligne$
MAGIC1$= MAGIC1$ & separ$
si cloture< moyenne(cloture,5) alors MAGIC1$= MAGIC1$ & "-------------titre sous sa MM5" & SAUT_de_ligne$
si cloture< moyenne(cloture,7) alors MAGIC1$= MAGIC1$ & "-------------titre sous sa MM7" & SAUT_de_ligne$
si cloture< moyenne(cloture,14) alors MAGIC1$= MAGIC1$ & "-------------titre sous sa MM14" & SAUT_de_ligne$
si cloture< moyenne(cloture,25) alors MAGIC1$= MAGIC1$ & "-------------titre sous sa MM25" & SAUT_de_ligne$
si cloture< moyenne(cloture,50) alors MAGIC1$= MAGIC1$ & "-------------titre sous sa MM50" & SAUT_de_ligne$
si cloture< moyenne(cloture,200) alors MAGIC1$= MAGIC1$ & "-------------titre sous sa MM200" & SAUT_de_ligne$
si cloture< moyenne(cloture,250) alors MAGIC1$= MAGIC1$ & "-------------titre sous sa MM250" & SAUT_de_ligne$
MAGIC1$= MAGIC1$ & separ$
si cloture> moyenne(cloture,5) alors MAGIC1$= MAGIC1$ & "-------------titre au-dessus sa MM5" & SAUT_de_ligne$
si cloture> moyenne(cloture,7) alors MAGIC1$= MAGIC1$ & "-------------titre au-dessus sa MM7" & SAUT_de_ligne$
si cloture> moyenne(cloture,14) alors MAGIC1$= MAGIC1$ & "-------------titre au-dessus sa MM14" & SAUT_de_ligne$
si cloture> moyenne(cloture,25) alors MAGIC1$= MAGIC1$ & "-------------titre au-dessus sa MM25" & SAUT_de_ligne$
si cloture> moyenne(cloture,50) alors MAGIC1$= MAGIC1$ & "-------------titre au-dessus sa MM50" & SAUT_de_ligne$
si cloture> moyenne(cloture,200) alors MAGIC1$= MAGIC1$ & "-------------titre au-dessus sa MM200" & SAUT_de_ligne$
si cloture> moyenne(cloture,250) alors MAGIC1$= MAGIC1$ & "-------------titre au-dessus sa MM250" & SAUT_de_ligne$
MAGIC1$= MAGIC1$ & separ$
si min(bas,7)<cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessus de " & min(bas,7) &" plus bas des 7 derniers jours" & SAUT_de_ligne$
si min(bas,14)<cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessus de " & min(bas,14) & " plus bas des 14 derniers jours" & SAUT_de_ligne$
si min(bas,25)<cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessus de " & min(bas,25) & " plus bas des 25 derniers jours" & SAUT_de_ligne$
si min(bas,50)<cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessus de " & min(bas,50) & " plus bas des 50 derniers jours" & SAUT_de_ligne$
si min(bas,200)<cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessus de " & min(bas,200) & " plus bas des 200 derniers jours" & SAUT_de_ligne$
si min(bas,252)<cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessus de " & min(bas,252) & " plus bas depuis 1 an" & SAUT_de_ligne$
si min(bas,504)<cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessus de " & min(bas,504) &" plus bas depuis 2 ans" & SAUT_de_ligne$
si min(bas,2520)<cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessus de " & min(bas,2520) &" plus bas depuis 10 ans" & SAUT_de_ligne$
MAGIC1$= MAGIC1$ & separ$
si max(haut,7)>cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessous de " & max(haut,7) & " plus haut des 7 derniers jours" & SAUT_de_ligne$
si max(haut,14)>cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessous de " & max(haut,14) & " plus haut des 14 derniers jours" & SAUT_de_ligne$
si max(haut,25)>cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessous de " & max(haut,25) & " plus haut des 25 derniers jours" & SAUT_de_ligne$
si max(haut,50)>cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessous de " & max(haut,50) & " plus haut des 50 derniers jours" & SAUT_de_ligne$
si max(haut,200)>cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessous de " & max(haut,200) & " plus haut des 200 derniers jours" & SAUT_de_ligne$
si max(haut,252)>cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessous de " & max(haut,252) &" plus haut depuis 1 an" & SAUT_de_ligne$
si max(haut,504)>cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessous de " & max(haut,504) &" plus haut depuis 2 ans" & SAUT_de_ligne$
si max(haut,2520)>cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au-dessous de " & max(haut,2520) &" plus haut depuis 10 ans" & SAUT_de_ligne$
si max(cloture,2520)=cloture alors MAGIC1$= MAGIC1$ & "-------------titre à " & cloture & " au plus haut plus haut depuis 10 ans" & SAUT_de_ligne$

MAGIC1$= MAGIC1$ & "-------------Verifier les divergences OBV/cours et CCI/cours"
afficher magic1$
finsi

j'ai maintenant la variable MAGIC1$ sauf que je sais faire transiter des variables numerique

si finhisto alors
AFFICHER MON_PIED_DE_PAGE.MAGIC1
finsi

mais pas les alphanumériques

avez vous une solution?
sinon il faudra recopier l'ensemble sur chaque systeme de trading

Bonsoir,
votre logiciel trading vous à donné un ordre d'achat à 11 heures puis au fil de la journée il changé d'avis il n'en reste pas moins que votre achat à l'instant T n'est pas forcément mauvais mais le logiciel ne vous donera pas d'ordre de vente dommage !!! alors il faut le forcer à considérer l'achat.
voici la solution:
incorporer les lignes suivantes
retirer les // et mettre la date de votre achat
la liste n'est pas limitative et ne demande qu'a grandir
la variable "erreur_achat" initialisée à 1 est la clé de commande à vous de l'adapter


//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000031122")=0 alors erreur_achat=1 //Air France
//si COMPTXT(DateHisto$,"08/03/2006")=0 et COMPTXT(CodeAction$,"FR0000130007")=0 alors erreur_achat=1 //Alcatel
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000071946")=0 alors erreur_achat=1 //Alten
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000034639")=0 alors erreur_achat=1 //Altran technologie
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"LU0140205948")=0 alors erreur_achat=1 //Arcelor
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000074783")=0 alors erreur_achat=1 //Artprice com
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000051732")=0 alors erreur_achat=1 //Atos
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000066052")=0 alors erreur_achat=1 //Avenir Telecom
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0004026250")=0 alors erreur_achat=1 //Business objects
//si COMPTXT(DateHisto$,"07/03/2006")=0 et COMPTXT(CodeAction$,"FR0000125460")=0 alors erreur_achat=1 //Canal+
//si COMPTXT(DateHisto$,"21/05/2007")=0 et COMPTXT(CodeAction$,"FR0000125338")=0 alors erreur_achat=1 //Cap Gemini
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000039620")=0 alors erreur_achat=1 //Carbone lorraine
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000130403")=0 alors erreur_achat=1 //Christian dior
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000036774")=0 alors erreur_achat=1 //Dane-elec memory
//si COMPTXT(DateHisto$,"01/03/2006")=0 et COMPTXT(CodeAction$,"FR0000130650")=0 alors erreur_achat=1 //Dassault systemes
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"NL0000235190")=0 alors erreur_achat=1 //Eads
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000130452")=0 alors erreur_achat=1 //Eiffage
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"NL0000241511")=0 alors erreur_achat=1 //Euronext
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000037947")=0 alors erreur_achat=1 //Fimalac SA
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000133308")=0 alors erreur_achat=1 //France telecom
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000079600")=0 alors erreur_achat=1 //Gameloft
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000044471")=0 alors erreur_achat=1 //Generale de sante
//si COMPTXT(DateHisto$,"15/05/2007")=0 et COMPTXT(CodeAction$,"FR0000120164")=0 alors erreur_achat=1 //Geophysique
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0004038099")=0 alors erreur_achat=1 //Gfi informatique
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000072167")=0 alors erreur_achat=1 //Groupe ares
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0004548873")=0 alors erreur_achat=1 //Groupe bourbon
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000072910")=0 alors erreur_achat=1 //Groupe steria sca
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"ZAE000015228")=0 alors erreur_achat=1 //Harmony Gold Mining
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000075988")=0 alors erreur_achat=1 //Hi media
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000120859")=0 alors erreur_achat=1 //Imerys (ex imetal)
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000125346")=0 alors erreur_achat=1 //Ingenico
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000130213")=0 alors erreur_achat=1 //Lagardere
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000121014")=0 alors erreur_achat=1 //Lvmh moet hennessy
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000053225")=0 alors erreur_achat=1 //M6 metropole TV
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000051070")=0 alors erreur_achat=1 //Maurel et prom
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000121261")=0 alors erreur_achat=1 //Michelin
//si COMPTXT(DateHisto$,"01/03/2006")=0 et COMPTXT(CodeAction$,"FR0000044448")=0 alors erreur_achat=1 //Nexans
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000053381")=0 alors erreur_achat=1 //Penauille Polyservices
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000121501")=0 alors erreur_achat=1 //Peugeot
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000121485")=0 alors erreur_achat=1 //PINAULT-PRINTEMPS
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000066755")=0 alors erreur_achat=1 //Pinguely-haulotte
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000130577")=0 alors erreur_achat=1 //PUBLICIS GROUPE SA
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000130395")=0 alors erreur_achat=1 //Remy cointreau
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000131906")=0 alors erreur_achat=1 //Renault
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000062994")=0 alors erreur_achat=1 //Rodriguez group
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000073272")=0 alors erreur_achat=1 //Sagem SA
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0004025062")=0 alors erreur_achat=1 //Soi Tec Silicon
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000051807")=0 alors erreur_achat=1 //Sr teleperformance
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"NL0000226223")=0 alors erreur_achat=1 //STMicroelectronics
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000131708")=0 alors erreur_achat=1 //Technip
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000054900")=0 alors erreur_achat=1 //Tf1
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000184533")=0 alors erreur_achat=1 //Thomson multimedia
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000054470")=0 alors erreur_achat=1 //Ubi soft entert.
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000120354")=0 alors erreur_achat=1 //Vallourec
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000124141")=0 alors erreur_achat=1 //Veolia environne.
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000073066")=0 alors erreur_achat=1 //Wavecom
//si COMPTXT(DateHisto$,"15/05/2007")=0 et COMPTXT(CodeAction$,"FR0000121204")=0 alors erreur_achat=1 //Wendel INVEST
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000121220")=0 alors erreur_achat=1 //Sodexho alliance
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000130809")=0 alors erreur_achat=1 //Societe Generale
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000125007")=0 alors erreur_achat=1 //Saint Gobain
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000124133")=0 alors erreur_achat=1 //Oberthur card syst
//si COMPTXT(DateHisto$,"15/05/2007")=0 et COMPTXT(CodeAction$,"FR0000121881")=0 alors erreur_achat=1 //Havas advertising
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000077919")=0 alors erreur_achat=1 //Jc decaux sa
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000125684")=0 alors erreur_achat=1 //Zodiac
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000125486")=0 alors erreur_achat=1 //Vinci
//si COMPTXT(DateHisto$,"01/03/2006")=0 et COMPTXT(CodeAction$,"FR0000130338")=0 alors erreur_achat=1 //Valeo
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000120271")=0 alors erreur_achat=1 //TotalFina
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000127771")=0 alors erreur_achat=1 //Vivendi universal
//si COMPTXT(DateHisto$,"06/03/2006")=0 et COMPTXT(CodeAction$,"FR0000121972")=0 alors erreur_achat=1 //Schneider
//si COMPTXT(DateHisto$,"01/03/2006")=0 et COMPTXT(CodeAction$,"FR0000120222")=0 alors erreur_achat=1 //Cnp assurances
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"BE0003796134")=0 alors erreur_achat=1 //Dexia
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000121964")=0 alors erreur_achat=1 //Klepierre
//si COMPTXT(DateHisto$,"38/09/2004")=0 et COMPTXT(CodeAction$,"FR0000121691")=0 alors erreur_achat=1 //Nrj group
//si COMPTXT(DateHisto$,"06/03/2006")=0 et COMPTXT(CodeAction$,"FR0000121667")=0 alors erreur_achat=1 //Essilor International

Bonsoir,
le logiciel ne comporte que 12 lignes (courbes) et

deux emplacements pour mettre deux seuils.
exemple: consensus des professionnels seuil bas
consensus des professionnels seuil haut

et les 12 lignes sont trés vite remplies
alors pour mettre en une ligne le prix d'achat
et le top sécurité ou l'objectif
voici une solution:
"Mon_top" sous forme de tirets

//P4=prix d'achat
//P5=prix de vente objectif

si IZ=0 ALORS Mon_top=P4
si IZ=1 ALORS Mon_top=P5
IZ=IZ+1
si IZ=2 alors IZ=0

bonne fin de vacances à tous

Bonjour max_et_min


Bravo pour ton intéressante étude! Elle sera utile à plus d'un ici je n'en doute pas.

Pour ce qui concerne la possibilité de "simplifier" ton programme ainsi que tu le proposes, comme il comporte un grand nombre de "Si ...Alors", tous utiles, je ne verrais pour ce faire que leur éventuel remplacement par des instructions de type logique et encore uniquement lorsque cela est possible. Sans garantie donc d'obtenir in fine quelque chose de plus "léger"...

D'autre part, la documentation de MLOG confirme bien que le passage de paramètres entre règles ne peut se faire, pour l'instant, qu'avec des variables de type "courbe" donc numériques.

Cordialement.

Bonjour,

Bonjour,

Pourriez vous m'indiquer le code du SP500 à utiliser pour télécharger les cours avec GraphAT. Pour le Dow Jones j'utilise le ^DJI et ça marche; pour le SP500 j'utilise le ^SPX et ça ne marche pas.

Merci pour votre aide.

Citation de : Bomdu (au 11-08-2007 14:15:04)
pour le SP500 j'utilise le ^SPX et ça ne marche pas.

Merci pour votre aide.

---

Bonjour bomdu
^GSPC pour le S&P 500 Index

Tu as tous les codes sur yahoo finance

BONSOIR smallcaps90
et merci de la réponse, je l'avais bien compris comme ça !!!
je suis bloqué avec ma variable mais je suis prêt pour l'éventuelle évolution du logiciel, j'aimme bien être en avance, alors en attendant nous utliserons la version bidouille à l'ancienne copier/coller dans chaque systeme de trading
j'ai un instant hésiter à développer sous delphi directement un logiciel pour ne pas dépendre de ce type de bloquage, il n'en reste pas moins que pour le moment c'est le seul logiciel qui me donne autant de latitudes de faire, alors je me calme et surtout je fatigue un peu de tout réinventer, donc je fais avec!!
merci encore pour la réponse et au plaisir de faire évoluer encore évoluer ce logiciel

Bonsoir,
j'ai testé l'indicateur VHF (rien à voir UHF pour les spécialistes radio) et mes conclusions ne sont pas vraiment positives, quelque soit l'usage, sauf à ce que quelqu'un ici m'explique, car j'ai mis cet indicateur sur 14 jours pour avoir une même référence que le DI+DI-, les deux indicateurs cote à cote et là je vous laisse juger.
voici un petit complément pour tenter d'ameliorer le vhf, mais je suis pas convaincu.
P1 à 14
courbe 1 VHF courbe simple vert
courbe 2 MVHF en segments rouge
courbe 3 LIH en courbe simple verte
courbe 4 LIB en courbe simple rouge





NOMINATEUR(0) = MAX(Cloture,P1)-MIN(Cloture,P1)
VAR(0) = ABSOLU((CLOTURE-CLOTURE(1))/CLOTURE(1))
DENOMINATEUR(0) = SOMME(VAR,P1)
VHF = NOMINATEUR/DENOMINATEUR

MVHF=0
si max(VHF,10)>(VHF*1.1) alors MVHF=VHF
//si VHF(1)<(VHF*1.1) alors MVHF=VHF // bof
LIH=max(VHF,500)
LIB=min(VHF,500)

j'ai bon chercher je vois pas, ni divergences, rien !!!
alors à la poubelle ou pas ?????

bonne programmation et bonne soirée

Bonsoir, et mes excuses à smallcaps90 pour cette bidouille sur le programme structuré des divergeances,
donc une petite modif
je me suis permis de retirer l'indicateur et de le remplacé par les variables courbe1 et courbe2
simple cela permet de remplacer à volonté le MACD PAR LE RSI ou RWI etc..
et la baisse du CAC40 était programmée par la divergeance MACD et du bout des lèvre par le RSI mais également au même niveau que le MACD par le RWI, au plaisir de vos tests
je n'ai pas fait d'essai avec OBV adx et autres donc à suivre .....



//DIV_NEG_courbe1
//
//RECHERCHER LA DIVERGENCE NEGATIVE EVENTUELLE
//LA PLUS RECENTE ENTRE LES COURS ET LA courbe1
//DANS LES LIMITES DEFINIES PAR P1, P2, P3 et P4
//V3.2 du 08/09/2004 modifièe le 20/8/2007
//

//----------------------------------------------
//PARAMETRES :
//
//LA DIVERGENCE POTENTIELLE EVENTUELLE DEVRA
//SE TROUVER P4 PERIODES AVANT LA FINHISTO.
//
//LE 1ER SOMMET SUR LA courbe1 DEVRA SE TROUVER
//DANS LES P1 PERIODES PRECEDANT FINHISTO-P4.
//
//LE 2EME SOMMET SUR LA courbe1 DEVRA SE TROUVER
//DANS LES P2 PERIODES PRECEDANT LE 1ER.
//
//CHAQUE SOMMET SUR LES COURS POURRA SE TROUVER
//DANS LES P3 PERIODES PRECEDANT LES SOMMETS
//CORRESPONDANTS SUR LA courbe1.
//
//P5=0 ACCEPTE LES DIVERGENCES DONT LES DROITES
//PRESENTENT DES INTERSECTIONS AVEC LES COURS
//ET/OU LA courbe1.
//P5=1 NE LES ACCEPTE PAS.
//----------------------------------------------

//INITIALISATIONS
//

// =============================================
//==== ICI VOS INDICATEURS ====================

COURBE1=MACD // RWI.H_RWI //RRSI_T.RRSI //MACD

COURBE2=MMACD // RWI.B_RWI //RRSI_T.RMRSI //MMACD

// =============================================
// =============================================

MAXI=0

//SE PLACER P4 PERIODES AVANT FINHISTO
//POUR EFFECTUER LA RECHERCHE
//
SI RANGHISTO=FINHISTO-P4
ALORS

//CHERCHER UN 1ER SOMMET (SI1) ET SA DATE (DATE_SI1) SUR LA courbe1
//
I=0
SI1=MAXI
TANTQUE I<=P1 FAIRE
SI courbe1(I+1)>0
ALORS
SI courbe1(I+2)<courbe1(I+1) ET courbe1(I+1)>courbe1(I)
ALORS
SI courbe1(I+1)>=SI1 ET courbe1(I+1)>courbe2(I+1)
ALORS
SI1=courbe1(I+1)
DATE_SI1=FINHISTO-P4-(I+1)
D1=I+1
FINSI
FINSI
FINSI
I=I+1
FINTANTQUE

SI D1=0
ALORS
AFFICHER "=========PAS DE 1ER SOMMET RECENT SUR LA courbe1========="
AFFICHER "===============MODIFIEZ P1 ET/OU P4 ================="
STOP
FINSI

//CHERCHER LE 1ER SOMMET (SC1) ET SA DATE (DATE_SC1)
//SUR LES COURS AVEC UNE TOLERANCE DE P3 PERIODES
//AVANT LE 1ER SOMMET SUR LA courbe1
//
SC1=HAUT(FINHISTO-P4-DATE_SI1)
DATE_SC1=DATE_SI1
K=FINHISTO-P4-DATE_SI1+1
TANTQUE K<=FINHISTO-P4-DATE_SI1+P3 FAIRE
SI HAUT(K)>=SC1
ALORS
SC1=HAUT(K)
DATE_SC1=FINHISTO-K-P4
FINSI
K=K+1
FINTANTQUE

//CHERCHER UN 2EME SOMMET PLUS ANCIEN (SI2)
//ET SA DATE (DATE_SI2) SUR LA courbe1
//
J=D1+1
SI2=SI1
TANTQUE J<=P2+D1 FAIRE
SI courbe1(J+2)<courbe1(J+1) ET courbe1(J+1)>courbe1(J)
ALORS
SI courbe1(J+1)>=SI2 ET courbe1(J+1)>courbe2(J+1)
ALORS
SI2=courbe1(J+1)
DATE_SI2=FINHISTO-P4-(J+1)
D2=1

POUR FINHISTO-P4+1-DATE_SI2 COURS //Vérifier position courbe1/courbe2
SI courbe1<courbe2
ALORS
R=1 //La courbe1 croise son signal entre SI1 et SI2
BREAK
FINSI
SI RANGPOUR>DATE_SI1-DATE_SI2 ALORS BREAK
FINPOUR

FINSI
FINSI

SI D2=1 ET R=1 //On a un sommet SI2 possible
ALORS

//VERIFIER QUE LA DROITE DE DIVERGENCE (SI1-SI2)
//RESTE AU DESSUS DE LA courbe1
//
SI P5=1
ALORS
PENTE_I=(SI1-SI2)/(DATE_SI1-DATE_SI2)
POUR (FINHISTO-P4-DATE_SI2+1) COURS
POINT_I(0)= PENTE_I*(RANGPOUR-1)+SI2
SI POINT_I<courbe1
ALORS
N=1
BREAK
FINSI
SI RANGPOUR>(DATE_SI1-DATE_SI2) ALORS BREAK
FINPOUR
FINSI

SI N=0 //Droite SI1--SI2 correcte
ALORS
//CHERCHER LE 2EME SOMMET (SC2) ET SA DATE (DATE_SC2)
//SUR LES COURS AVEC UNE TOLERANCE DE P3 PERIODES
//AVANT LE 2EME SOMMET SUR LA courbe1
//
SC2=HAUT(FINHISTO-P4-DATE_SI2)
DATE_SC2=DATE_SI2
K=FINHISTO-P4-DATE_SI2+1
TANTQUE K<=FINHISTO-P4-DATE_SI2+P3 FAIRE
SI HAUT(K)>=SC2
ALORS
SC2=HAUT(K)
DATE_SC2=FINHISTO-K-P4
FINSI
K=K+1
FINTANTQUE

SI SC2<=SC1 //SC2 sommet possible
ALORS
//VERIFIER QUE LA DROITE DE DIVERGENCE (SC1-SC2)
//RESTE EN DESSOUS DES COURS
//
SI P5=1
ALORS
PENTE_C=(SC1-SC2)/(DATE_SC1-DATE_SC2)
POUR (FINHISTO-P4-DATE_SC2+1) COURS
POINT_C(0) =PENTE_C*(RANGPOUR-1)+SC2
SI POINT_C<HAUT
ALORS
M=1
BREAK
FINSI
SI RANGPOUR>(DATE_SC1-DATE_SC2) ALORS BREAK
FINPOUR
FINSI

SI M=0 //Droite SC1--SC2 correcte
ALORS
J=P2+D1+1
SINON
D2=0
R=0
FINSI
SINON
D2=0
R=0
FINSI
SINON
D2=0
R=0
FINSI
FINSI
N=0
M=0
J=J+1
FINTANTQUE

SI D1<>0 ET D2=0 OU SC2=0
ALORS
AFFICHER "============PAS DE DIVERGENCE POTENTIELLE============="
AFFICHER "======AVEC LES VALEURS ACTUELLES DES PARAMETRES======="
AFFICHER "==MAIS IL Y A UN 1ER SOMMET SUR LA courbe1 ET LES COURS=="
AFFICHER "==============MODIFIEZ EVENTUELLEMENT P2=============="
STOP
FINSI

//DETERMINER LES POINTS DES SEGMENTS DE LA DIVERGENCE POTENTIELLE
//
SI DATE_SC1-DATE_SC2<2 //La valeur 2 peut-être modifiée
ALORS
AFFICHER "=============DIVERGENCE POTENTIELLE============"
AFFICHER "==========TROP PETITE POUR ETRE TRACEE========="
AFFICHER "===========MODIFIEZ EVENTUELLEMENT P4=========="
SINON
SI SC2<=SC1
ALORS
PENTE_I=(SI1-SI2)/(DATE_SI1-DATE_SI2)
POUR (FINHISTO-P4-DATE_SI2+1) COURS
SEG_N_I(0)=PENTE_I*(RANGPOUR-1)+SI2
SI RANGPOUR>(DATE_SI1-DATE_SI2) ALORS BREAK
FINPOUR

PENTE_C=(SC1-SC2)/(DATE_SC1-DATE_SC2)
POUR (FINHISTO-P4-DATE_SC2+1) COURS
SEG_N_C(0)=PENTE_C*(RANGPOUR-1)+SC2
SI RANGPOUR>(DATE_SC1-DATE_SC2) ALORS BREAK
FINPOUR
FINSI
FINSI

FINSI

//DIV_POS_courbe1
//
//RECHERCHER LA DIVERGENCE POSITIVE EVENTUELLE
//LA PLUS RECENTE ENTRE LES COURS ET LA courbe1
//DANS LES LIMITES DEFINIES PAR P1, P2, P3 et P4
//V 3.2 du 08/09/2004 , modifièe le 20/8/2007
//

//----------------------------------------------
//PARAMETRES :
//
//LA DIVERGENCE POTENTIELLE EVENTUELLE DEVRA
//SE TROUVER P4 PERIODES AVANT LA FINHISTO.
//
//LE 1ER CREUX SUR LA courbe1 DEVRA SE TROUVER
//DANS LES P1 PERIODES PRECEDANT FINHISTO-P4.
//
//LE 2EME CREUX SUR LA courbe1 DEVRA SE TROUVER
//DANS LES P2 PERIODES PRECEDANT LE 1ER.
//
//CHAQUE CREUX SUR LES COURS POURRA SE TROUVER
//DANS LES P3 PERIODES PRECEDANT LES SOMMETS
//CORRESPONDANTS SUR LA courbe1.
//
//P5=0 ACCEPTE LES DIVERGENCES DONT LES DROITES
//PRESENTENT DES INTERSECTIONS AVEC LES COURS
//ET/OU LA courbe1.
//P5=1 NE LES ACCEPTE PAS.
//----------------------------------------------

//INITIALISATIONS

// =============================================
//==== ICI VOS INDICATEURS ====================

COURBE1=MACD // RWI.H_RWI //RRSI_T.RRSI //MACD

COURBE2=MMACD // RWI.B_RWI //RRSI_T.RMRSI //MMACD

// =============================================
// =============================================



MINI=1000

//SE PLACER P4 PERIODES AVANT FINHISTO
//POUR EFFECTUER LA RECHERCHE
//
SI RANGHISTO=FINHISTO-P4
ALORS

//CHERCHER UN 1ER CREUX (CI1) ET SA DATE (DATE_CI1) SUR LA courbe1
//
I=0
CI1=MINI
TANTQUE I<=P1 FAIRE
SI COURBE1(I+1)<0
ALORS
SI COURBE1(I+2)>COURBE1(I+1) ET COURBE1(I+1)<courbe1(I)
ALORS
SI COURBE1(I+1)<=CI1 ET COURBE1(I+1)<COURBE2(I+1)
ALORS
CI1=COURBE1(I+1)
DATE_CI1=FINHISTO-P4-(I+1)
D1=I+1
FINSI
FINSI
FINSI
I=I+1
FINTANTQUE

SI D1=0
ALORS
AFFICHER "=========PAS DE 1ER CREUX RECENT SUR LA courbe1========="
AFFICHER "===============MODIFIEZ P1 ET/OU P4 ================="
STOP
FINSI

//CHERCHER LE 1ER CREUX (CC1) ET SA DATE (DATE_CC1)
//SUR LES COURS AVEC UNE TOLERANCE DE P3 PERIODES
//AVANT LE 1ER CREUX SUR LA courbe1
//
CC1=BAS(FINHISTO-P4-DATE_CI1)
DATE_CC1=DATE_CI1
K=FINHISTO-P4-DATE_CI1+1
TANTQUE K<=FINHISTO-P4-DATE_CI1+P3 FAIRE
SI BAS(K)<=CC1
ALORS
CC1=BAS(K)
DATE_CC1=FINHISTO-K-P4
FINSI
K=K+1
FINTANTQUE

//CHERCHER UN 2EME CREUX PLUS ANCIEN (CI2)
//ET SA DATE (DATE_CI2) SUR LA courbe1
//
J=D1+1
CI2=CI1
TANTQUE J<=P2+D1 FAIRE
SI COURBE1(J+2)>COURBE1(J+1) ET COURBE1(J+1)<COURBE1(J)
ALORS
SI courbe1(J+1)<=CI2 ET courbe1(J+1)<courbe2(J+1)
ALORS
CI2=courbe1(J+1)
DATE_CI2=FINHISTO-P4-(J+1)
D2=1
//VERIFIER QUE LA courbe1 NE RESTE PAS TOUJOURS<courbe2
//ENTRE CI1 ET CI2
POUR FINHISTO-P4+1-DATE_CI2 COURS
SI courbe1>courbe2
ALORS
R=1 //La courbe1 croise son signal entre CC1 etCC2
BREAK
FINSI
SI RANGPOUR>DATE_CI1-DATE_CI2 ALORS BREAK
FINPOUR
FINSI
FINSI

SI D2=1 ET R=1 //On a un creux CI2 possible
ALORS
//VERIFIER QUE LA DROITE DE DIVERGENCE (CI1--CI2)
//RESTE EN DESSOUS DE LA courbe1
//
SI P5=1
ALORS
PENTE_I=(CI1-CI2)/(DATE_CI1-DATE_CI2)
POUR (FINHISTO-P4-DATE_CI2+1) COURS
POINT_I(0)= PENTE_I*(RANGPOUR-1)+CI2
SI POINT_I>courbe1
ALORS
N=1
BREAK
FINSI
SI RANGPOUR>(DATE_CI1-DATE_CI2) ALORS BREAK
FINPOUR
FINSI

SI N=0 //Droite CC1--CC2 correcte
ALORS
//CHERCHER LE 2EME CREUX (CC2) ET SA DATE (DATE_CC2)
//SUR LES COURS AVEC UNE TOLERANCE DE P3 PERIODES
//AVANT LE 2EME CREUX SUR LA courbe1
//
CC2=BAS(FINHISTO-P4-DATE_CI2)
DATE_CC2=DATE_CI2
K=FINHISTO-P4-DATE_CI2+1
TANTQUE K<FINHISTO-P4-DATE_CI2+P3 FAIRE
SI BAS(K)<=CC2
ALORS
CC2=BAS(K)
DATE_CC2=FINHISTO-K-P4
FINSI
K=K+1
FINTANTQUE

SI CC2>=CC1 //Creux CC2 possible
ALORS
//VERIFIER QUE LA DROITE DE DIVERGENCE (CC1--CC2)
//RESTE AU DESSUS DES COURS DES COURS
//
SI P5=1
ALORS
PENTE_C=(CC1-CC2)/(DATE_CC1-DATE_CC2)
POUR (FINHISTO-P4-DATE_CC2+1) COURS
POINT_C(0)=PENTE_C*(RANGPOUR-1)+CC2
SI POINT_C>BAS
ALORS
M=1
BREAK
FINSI
SI RANGPOUR>(DATE_CC1-DATE_CC2) ALORS BREAK
FINPOUR
FINSI

SI M=0 //Droite CC1--CC2 correcte
ALORS
J=P2+D1+1
SINON
D2=0
R=0
FINSI
SINON
D2=0
R=0
FINSI
SINON
D2=0
R=0
FINSI
FINSI
N=0
M=0
J=J+1
FINTANTQUE

SI D1<>0 ET D2=0 OU CC2=0
ALORS
AFFICHER "============PAS DE DIVERGENCE POTENTIELLE============="
AFFICHER "======AVEC LES VALEURS ACTUELLES DES PARAMETRES======="
AFFICHER "===MAIS IL Y A UN 1ER CREUX SUR LA courbe1 ET LES COURS=="
AFFICHER "==============MODIFIEZ EVENTUELLEMENT P2=============="
STOP
FINSI

//DETERMINER LES POINTS DES SEGMENTS DE LA DIVERGENCE POTENTIELLE
//
SI DATE_CC1-DATE_CC2<2 //La valeur peut être modifiée
ALORS
AFFICHER "=============DIVERGENCE POTENTIELLE============"
AFFICHER "==========TROP PETITE POUR ETRE TRACEE========="
AFFICHER "===========MODIFIEZ EVENTUELLEMENT P4=========="
SINON
SI CC2>=CC1
ALORS
PENTE_I=(CI1-CI2)/(DATE_CI1-DATE_CI2)
POUR (FINHISTO-P4-DATE_CI2+1) COURS
SEG_P_I(0)=PENTE_I*(RANGPOUR-1)+CI2
SI RANGPOUR>(DATE_CI1-DATE_CI2) ALORS BREAK
FINPOUR

PENTE_C=(CC1-CC2)/(DATE_CC1-DATE_CC2)
POUR (FINHISTO-P4-DATE_CC2+1) COURS
SEG_P_C(0)=PENTE_C*(RANGPOUR-1)+CC2
SI RANGPOUR>(DATE_CC1-DATE_CC2) ALORS BREAK
FINPOUR
FINSI
FINSI

FINSI

suite, ça marche bien aussi avec l' OBV mais surtout avec
le MOMENTUM voici
des copies d'écran OBV et MOMENTUM