Ici

//PRC_QQE MOD
//version = 0
//08.04.24
//Iván González @ www.prorealcode.com
//Sharing ProRealTime knowledge
//-----Inputs-----------------------------------------------//
rsiPeriod=6//RSI Length
SF=5//RSI Smoothing
QQE=3//Fast QQE Factor
ThreshHold=3//Thresh-hold
src=close

length=50//Bollinger Length
mult=0.35//BB Multiplier

rsiPeriod2=6//RSI Length
SF2=5//RSI Smoothing
QQE2=1.61//Fast QQE Factor
ThreshHold2=3//Thresh-hold
src2=close
//----------------------------------------------------------//
//-----RSI1 calculations and trend definition---------------//
WildersPeriod = rsiPeriod*2-1

myrsi=rsi[rsiPeriod](src)
rsiMA=average[SF,1](myrsi)
atrRSI=abs(rsiMA[1]-rsiMA)
MAatrRSI=average[WildersPeriod,1](atrRSI)
dar = average[WildersPeriod,1](MAatrRSI)*QQE

longband=0
shortband=0
trend=0

DeltaFastAtrRsi = dar
RSIndex = rsiMA
newshortband = RSIndex + DeltaFastAtrRsi
newlongband = RSIndex - DeltaFastAtrRsi
if RSIndex[1] > longband[1] and RSIndex > longband[1] then
longband=max(longband[1],newlongband)
else
longband=newlongband
endif
if RSIndex[1] < shortband[1] and RSIndex < shortband[1] then
shortband=min(shortband[1], newshortband)
else
shortband=newshortband
endif

cross1 = longband[1] crosses over RSIndex or longband[1] crosses under RSIndex
if shortband[1] crosses over RSIndex or shortband[1] crosses under RSIndex then
trend=1
FastAtrRsiTL=longband
elsif cross1 then
trend=-1
FastAtrRsiTL=shortband
else
trend=trend[1]
endif
//----------------------------------------------------------//
//-----Bollinger Bands--------------------------------------//
basis=average[length,0](FastAtrRsiTL-50)
dev=mult*std[length](FastAtrRsiTL-50)
upper=basis+dev
lower=basis-dev
//----------------------------------------------------------//
//-----RSI2 calculations and trend definition---------------//
WildersPeriod2 = rsiPeriod2*2-1

myrsi2=rsi[rsiPeriod2](src2)
rsiMA2=average[SF2,1](myrsi2)
atrRSI2=abs(rsiMA2[1]-rsiMA2)
MAatrRSI2=average[WildersPeriod2,1](atrRSI2)
dar2 = average[WildersPeriod2,1](MAatrRSI2)*QQE2

longband2=0
shortband2=0
trend2=0

DeltaFastAtrRsi2 = dar2
RSIndex2 = rsiMA2
newshortband2 = RSIndex2 + DeltaFastAtrRsi2
newlongband2 = RSIndex2 - DeltaFastAtrRsi2
if RSIndex2[1] > longband2[1] and RSIndex2 > longband2[1] then
longband2=max(longband2[1],newlongband2)
else
longband2=newlongband2
endif
if RSIndex2[1] < shortband2[1] and RSIndex2 < shortband2[1] then
shortband2=min(shortband2[1], newshortband2)
else
shortband2=newshortband2
endif

cross2 = longband2[1] crosses over RSIndex2 or longband2[1] crosses under RSIndex2
if shortband2[1] crosses over RSIndex2 or shortband2[1] crosses under RSIndex2 then
trend2=1
FastAtrRsiTL2=longband2
elsif cross2 then
trend2=-1
FastAtrRsiTL2=shortband2
else
trend2=trend2[1]
endif
//----------------------------------------------------------//
//-----Color definition------------------------------------//
if rsiMA2-50>ThreshHold2 then
r=178
g=181
b=190
a=100
elsif rsiMA2-50<0-ThreshHold2 then
r=178
g=181
b=190
a=100
else
r=178
g=181
b=190
a=0
endif
//----------------------------------------------------------//
//-----Checkings and colors---------------------------------//
greenbar1=rsiMA2-50>ThreshHold2
greenbar2=rsiMA-50>upper
redbar1=RsiMa2-50<0-ThreshHold2
Redbar2 =RsiMa-50<lower

if greenbar1 and greenbar2 then
qqe=rsiMA2-50
rb=0
gb=195
bb=255
elsif redbar1 and redbar2 then
qqe=rsiMA2-50
rb=255
gb=0
bb=98
else
qqe=0
rb=120
gb=123
bb=134
endif
//----------------------------------------------------------//
zero=0
return qqe as "QQE" coloured(rb,gb,bb)style(histogram),FastAtrRsiTL2-50 as "QQE Line"coloured("Black")style(line,2),rsiMA2-50 as"Histo2"coloured(r,g,b,a)style(histogram) ,zero as "Zero" coloured("white")style(dottedline)