SignalLtInf=undefined
Rem Les MB :
MB1LT= Average[40](close)
MB2LT= Average[20](close)
MB1CT= Average[15](close)
MB2CT= Average[5](close)
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem LONG TERME
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem Signal LT : Zone Sup
Rem ====================
if MB2LT CROSSES OVER MB1LT then
SignalLTSup = 4
else
if SignalCtInf=-1 then
SignalLTSup = SignalLTSup
else
SignalLTSup = 1
endif
endif
Rem Signal LT : Zone Inf
Rem ====================
if MB2LT CROSSES UNDER MB1LT then
SignalLTInf = -4
else
if SignalCtSup=1 then
SignalLTInf = SignalLTInf
else
SignalLTInf = -1
endif
endif
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem COURT TERME
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem Signal CT : Zone Sup
Rem ====================
Rem ZoneSup
if MB2CT CROSSES OVER MB1CT then
SignalCtSup = 2
else
SignalCtSup = 1
endif
Rem Signal CT : Zone Inf
Rem ====================
if MB2CT CROSSES UNDER MB1CT then
SignalCtInf = -2
else
SignalCtInf = -1
endif
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem CAC40 ZoneSup echelle : BorneMax=4 BorneMin=1
Rem Range :100
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
BorneMax=4
BorneMin=1
CacRange1=(BorneMax-BorneMin)/100
CacScale14=( close*CacRange1/100)
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem CAC40 ZoneSup echelle : BorneMax=1 BorneMin=0
Rem Range :100
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem CAC40 ZoneInf echelle: BorneMax=0 BorneMin=-1
Rem Range :100
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Rem CAC40 ZoneInf echelle : BorneMax=-1 BorneMin=-4
Rem Range :100
Rem ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
Return SignalLTSup coloured (0,153,153) as "SignalLTSup" , SignalLTInf coloured (0,153,153) as "SignalLTInf" , SignalCtSup coloured (255,51,11)as "SignalCtSup" , SignalCtInf coloured (255,51,51) as "SignalCtInf", CacScale14 as "CacScale14"