slw=3
pds=10
pds2=5

RSIkort=RSI[2](close)

divi=highest[pds](high)-lowest[pds](low)
a=exponentialaverage[slw]((close-lowest[pds](low))/divi)*100
divi2=highest[pds](a)-lowest[pds](a)
dss=exponentialaverage[slw]((a-lowest[pds](a))/divi2)*100

divik=highest[pds2](high)-lowest[pds2](low)
a2=exponentialaverage[slw]((close-lowest[pds2](low))/divik)*100
divi2k=highest[pds2](a2)-lowest[pds2](a2)
dsk=exponentialaverage[slw]((a2-lowest[pds2](a2))/divi2k)*100

//Roep indicatoren op van de QI
Quick, Slow = CALL "Quick"
//DEFINE LA AND SA SETUP
//Setup LA
LA=((RSIkort < 15 OR RSIkort[1] < 15 OR RSIkort[2] < 15) AND (dss < 25) AND (Slow > 0) AND (Quick < 0) AND (high > ExponentialAverage[47]))
//Setup SA
SA=((RSIkort > 85 OR RSIkort[1] > 85 OR RSIkort[2] > 85) AND (dss > 85) AND (Slow < 0) AND (Quick > 0) AND (low < ExponentialAverage[47]))
//DEFINE LE
//Setup LE
LE=((RSIkort < 15 OR RSIkort[1] < 15 OR RSIkort[2] < 15) AND (dss < 25) AND (Slow > 0) AND (Quick < 0) AND (high <= ExponentialAverage[47]))
//Wijzig de background indien een LA/SA/LE setup
if LA then
BACKGROUNDCOLOR(6,229,20)
ELSIF LE then
BACKGROUNDCOLOR(185,244,66)
ELSIF SA then
BACKGROUNDCOLOR(255,0,0)
ELSE
BACKGROUNDCOLOR(225,234,255)
ENDIF
return dss as "DSlang", dsk as "DSkort", RSIkort as "RSIkort"