Hi @francis59

I don’t quite understand what you mean by “SSL Hybrid-ATR”…
Alternatively, the system that uses the “Close” and the “BaseLine”…

atrlen = 14 //(Integer)
mult = 1 //(Decimal)
smoothing=2 //(Average type. Default WMA)
//showcandleviolation=true //(Boolean)
//showcolor=true (Boolean)
//showSSL2=true (Boolean)
ssl1Type = 7 //(Average type. Default HMA)
len = 60 //(Integer)
ssl2Type = 7 //(Average type. Default HMA)
len2 = 5 //(Integer)
Exittype = 7 //(Average type. Default HMA)
len3 = 15 //(Integer)
//showbaseline = true (Boolean)
baselinetype = 7 //(Average type. Default HMA)
Usetruerange = 1 //(Boolean)
multy = 0.2 //(Decimal)
//////////////////////////////////////////////////////////////////
//atr
atrlensmoot = average[atrlen,smoothing](TR(close))

//atr up/low bands
upperband = atrlensmoot * mult + close
lowerband = close - atrlensmoot * mult

////Ssl 1
emahigh = average[len,ssl1Type](high)
emalow = average[len,ssl1Type](low)

////Ssl 2
mahigh = average[len2,ssl2Type](high)
malow = average[len2,ssl2Type](low)

////Exit
src = CustomClose
exithigh = average[len3,ExitType](high)
exitlow = average[len3,ExitType](low)

////keltner baseline channel
bbmc = average[len,baselineType](close)
keltma = average[len,baselineType](src)
if UseTrueRange then
myrange = tr
else
myrange = high-low
endif

rangema = exponentialaverage[len](myrange)
upperk = keltma + rangema * multy
lowerk = keltma - rangema * multy

////baseline violation candle
openpos = open*1
closepos = close*1
difference = abs(closepos-openpos)
atrviolation = difference > atrlensmoot
inrange = upperband > bbmc and lowerband < bbmc
candlesizeviolation = atrviolation and inrange

//Ssl1 values
if close > emahigh then
hlv = 1
elsif close < emalow then
hlv = -1
else
hlv = hlv[1]
endif

if Hlv < 0 then
ssldown = emahigh
else
ssldown = emalow
endif

//Ssl2 values
if close > mahigh then
hlv2 = 1
elsif close < malow then
hlv2 = -1
else
hlv2 = hlv[1]
endif

if hlv2 < 0 then
ssldown2 = mahigh
else
ssldown2 = malow
endif

//Exit values
if close > exithigh then
hlv3 = 1
elsif close < exitlow then
hlv3 = -1
else
hlv3 = hlv3[1]
endif

if hlv3 < 0 then
sslexit = exithigh
else
sslexit = exitlow
endif

basecrosslong = close crosses over sslexit
basecrossshort = sslexit crosses over close

if basecrosslong then
codiff = 1
elsif basecrossshort then
codiff = -1
else
codiff = 0
endif

/////////SSL2 continuation from ATR//////////////
atrcrit =0.9
upperhalf = atrlensmoot * atrcrit + close
lowerhalf = close - atrlensmoot * atrcrit
buyinatr = lowerhalf < ssldown2
buycont = close > bbmc and close > ssldown2
sellinatr = upperhalf > ssldown2
sellcont = close < bbmc and close < ssldown2
buyatr = buyinatr and buycont
sellatr = sellinatr and sellcont
//Points colour
if buyatr then
rpto = 76
gpto = 175
bpto = 80
elsif sellatr then
rpto = 156
gpto = 39
bpto = 176
else
rpto = 200
gpto = 200
bpto = 200
endif

If Close Crosses Over BBMC then
Buy 1 contract at Market
EndIf

If Close Crosses Under BBMC then
SellShort 1 contract at Market
EndIf

Scherm­afbeelding-2024-02-24-om-13.12.46.png

@francis59

Only post in the language of the forumthat you are posting in. For example English only in the English speaking forums and French only in the French speaking forums.

Thanks 🙂

Hi Francis,

Unfortunately, I don’t know the code enough to make it a meaningful screener…