// DJ- par JP en H1 nouvelle version v2 dernière modif 6/6/2022
// version provisoire en achat uniquement
//
DEFPARAM CumulateOrders = false // Cumul des positions activé
DEFPARAM Preloadbars = 8000
AchatOK=1
//VenteOK=0
nA=1
//nV=1
// *** periode time ***********
CtimeA= time>081000 and time<190000 // 8h10 19h00
// *** filtre Moy Mob
M200 = Average[173](open) // 173
T200B=M200<M200[6]
T200H=M200>M200[3]
M100=average[115](close)
T100H=M100>M100[3]
MH50=HullAverage[55](close) // v1 55
TH50H=MH50>MH50[1] // dmmh50H=1
TH50B=MH50<MH50[1] // =2
M8=Average[6](open) // v1 6
if MPmoy CROSSES OVER MH50 then
ca1=1
cv1=0
endif
if MPmoy CROSSES UNDER MH50 then
cv1=1
ca1=0
endif
// *** filtre Parabolic SAR ***
Indsar=SAR[0.02,0.021,0.20]
csarv=close<Indsar
csara=close>Indsar
// *** filtre MACD ****
C = 12
L = 26
MMC = exponentialAverage[C](close) //
MML = exponentialAverage[L](close)
MACDligne = MMC - MML
ligne = exponentialAverage[9](MACDligne)
MACDHisto = MACDligne - ligne
cmacdA=MACDHisto>MacdHisto[9] // v1 9
// *** filtre amplitude ****
campl=abs(close-open)>4
// Poids moyen
Poids=(close-open)/2+open
MPmoy=average[3](Poids)
MPmoy1=MPmoy[1]
// *** filtre rsi ***
IndrsiA = RSI[12](close) // v1 12
crsiA = IndrsiA >= 63 and IndrsiA<76 // v1 s1 63
// *** sortie de Achats ********************
// Conditions pour fermer une position acheteuse
if longonmarket then
c1stpA= close < M8
c2stpA = close < MPmoy
c3stpa=MPmoy<MPmoy1
c6stpa=close<open[2]// =2
IF cv1 and csarv then
if c1stpA AND c2stpA and c3stpa and c6stpa THEN //
STPA=1
ENDIF
endif
IF STPA then
SELL AT MARKET
STPA=0
ENDIF
endif
// *********** ACHATS ********************
IF not longonmarket and CtimeA THEN
// Conditions pour ouvrir une position acheteuse
if AchatOK then
ca2 = close > MH50
ca4 = MH50 > MH50[1] // v1 1
ca6 = (close > open)
IF T200H AND T100H AND ca2 AND ca4 and ca6 and csara and csara[1] AND cmacdA AND crsiA AND campl THEN
BUY nA CONTRACT AT MARKET
ENDIF
endif
ENDIF
.
.
