Triple RAFF Channel projection (On Price)

Triple Raff Channel linear projection indicator for PRT.

Premise

PRT implementation of the “Bianca” trends visualization of 3 linear regressions. This indicator adopts the Raff channel algorithm and outputs 3 sets of support and resistance lines on the same chart. These sets represent:

Primary trend (blue)
Secondary trend (green)
Tertiary trend (red)

Interpretation:

If all three sets of trend-lines align, a strong sentiment is established. This could be bullish, bearish or consolidating.

If tertiary trend and/or secondary trend are diverging from primary trend, or diverging from each other, a breakout of the wider trend is more probable.

If you are not familiar with this concept and associated trading systems, read up on raf channels and/or bianca trends.
http://stockcharts.com/school/doku.php?id=chart_school:chart_analysis:raff_regression_chan

Variables

Defaults are 50 bars (primary); 20 (secondary); 10 (tertiary). These can be changed by you.

Developer Information

The mid lines are not plotted but they are available of course. If you would like to view them or adapt further then use reg
Support and resistance lines are averaged from raff and riff lines. If you want to see both, replace averaging code (source code is commented)

Enjoy!

Maz

— code —

// Triple RAF Channel (Bianca) indicator for PRT
// Written by "Maz" at prorealcode.com
// Adopted from RAFF algorithm
// --

for i = 1 to 3

// Blue (Long term)
if i = 1 then
k   = blue
det = DPO[k*2](close)
if det=det[1] and det[1]=det[2] and det[2]<>det[3] then
flag = 1
endif
n      = (k*2)-4
p      = (n/2)-1
d100   = DPO[n](close)
moy100 = close-d100
co     = (moy100-moy100[1]+(close[p])/n)*n
h100   = dpo[n](high)
moyh   = high-h100
hi     = (moyh-moyh[1]+(high[p])/n)*n
l100   = dpo[n](low)
moyl   = low-l100
lo     = (moyl-moyl[1]+(low[p])/n)*n
if flag=1 and flag[1]=0 then
somx  = 0
somy  = 0
somxx = 0
somxy = 0
for i=1 to k
somx = somx+i
next
for i=0 to k-1
somy=somy+co[i]
next
for i=1 to k
somxx=somxx+(i*i)
next
for i=0 to k-1
somxy=somxy+(co[i]*(k-i))
next
a = (k*somxy-somx*somy)/(k*somxx-somx*somx)
b = (somy-a*somx)/k
for i=0 to k-1
ecah = hi[i]-a*(k-i)-b
maxh = max(maxh,ecah)
ecal = a*(k-i)+b-lo[i]
maxl = max(maxl,ecal)
next
endif
if flag=0 then
reg = undefined
else
j = j + 1
reg = a * j + b
endif

raffBlue  = max(maxh,maxl)
rafflBlue = reg-raffBlue
raffhBlue = reg+raffBlue

riffBlue  = min(maxh,maxl)
riffhBlue = reg+riffBlue
rifflBlue = reg-riffBlue

// (optional) - let's take an average of the riff and raff
BlueResistance = (raffhBlue + riffhBlue) / 2
BlueSupport    = (rafflBlue + rifflBlue) / 2


elsif i = 2 then // Green (Medium term)
k = green
Gdet = DPO[k*2](close)
if Gdet = Gdet[1] and Gdet[1] = Gdet[2] and Gdet[2] <> Gdet[3] then
Gflag = 1
endif
Gn      = (k*2)-4
Gp      = (Gn/2)-1
Gd100   = DPO[Gn](close)
Gmoy100 = close-Gd100
Gco     = (Gmoy100 - Gmoy100[1]+(close[Gp])/Gn)*Gn
Gh100   = dpo[Gn](high)
Gmoyh   = high-Gh100
Ghi     = (Gmoyh - Gmoyh[1]+(high[Gp])/Gn)*Gn
Gl100   = dpo[Gn](low)
Gmoyl   = low-Gl100
Glo     = (Gmoyl-Gmoyl[1]+(low[Gp])/Gn)*Gn
if Gflag = 1 and Gflag[1] = 0 then
Gsomx  = 0
Gsomy  = 0
Gsomxx = 0
Gsomxy = 0
for i = 1 to k
Gsomx = Gsomx+i
next
for i = 0 to k-1
Gsomy=Gsomy+Gco[i]
next
for i = 1 to k
Gsomxx=Gsomxx+(i*i)
next
for i = 0 to k-1
Gsomxy=Gsomxy+(Gco[i]*(k-i))
next
Ga = (k*Gsomxy-Gsomx*Gsomy)/(k*Gsomxx-Gsomx*Gsomx)
Gb = (Gsomy-Ga*Gsomx)/k
for i=0 to k-1
Gecah = Ghi[i]-Ga*(k-i)-Gb
Gmaxh = max(Gmaxh,Gecah)
Gecal = Ga*(k-i)+Gb-Glo[i]
Gmaxl = max(Gmaxl,Gecal)
next
endif
if Gflag = 0 then
Greg = undefined
else
Gj = Gj + 1
Greg = Ga * Gj + Gb
endif

raffGreen  = max(Gmaxh,Gmaxl)
rafflGreen = Greg-raffGreen
raffhGreen = Greg+raffGreen

riffGreen  = min(Gmaxh,Gmaxl)
riffhGreen = Greg+riffGreen
rifflGreen = Greg-riffGreen

// (optional) - let's take an average of the riff and raff
GreenResistance = (raffhGreen + riffhGreen) / 2
GreenSupport    = (rafflGreen + rifflGreen) / 2

elsif i = 3 then // Red (Short Term)
k = red
Rdet = DPO[k*2](close)
if Rdet = Rdet[1] and Rdet[1] = Rdet[2] and Rdet[2] <> Rdet[3] then
Rflag = 1
endif
Rn      = (k*2)-4
Rp      = (Rn/2)-1
Rd100   = DPO[Rn](close)
Rmoy100 = close-Rd100
Rco     = (Rmoy100 - Rmoy100[1]+(close[Rp])/Rn)*Rn
Rh100   = dpo[Rn](high)
Rmoyh   = high-Rh100
Rhi     = (Rmoyh - Rmoyh[1]+(high[Rp])/Rn)*Rn
Rl100   = dpo[Rn](low)
Rmoyl   = low-Rl100
Rlo     = (Rmoyl-Rmoyl[1]+(low[Rp])/Rn)*Rn
if Rflag = 1 and Rflag[1] = 0 then
Rsomx  = 0
Rsomy  = 0
Rsomxx = 0
Rsomxy = 0
for i = 1 to k
Rsomx = Rsomx+i
next
for i = 0 to k-1
Rsomy=Rsomy+Rco[i]
next
for i = 1 to k
Rsomxx=Rsomxx+(i*i)
next
for i = 0 to k-1
Rsomxy=Rsomxy+(Rco[i]*(k-i))
next
Ra = (k*Rsomxy-Rsomx*Rsomy)/(k*Rsomxx-Rsomx*Rsomx)
Rb = (Rsomy-Ra*Rsomx)/k
for i=0 to k-1
Recah = Rhi[i]-Ra*(k-i)-Rb
Rmaxh = max(Rmaxh,Recah)
Recal = Ra*(k-i)+Rb-Rlo[i]
Rmaxl = max(Rmaxl,Recal)
next
endif
if Rflag = 0 then
Rreg = undefined
else
Rj = Rj + 1
Rreg = Ra * Rj + Rb
endif

raffRed  = max(Rmaxh,Rmaxl)
rafflRed = Rreg-raffRed
raffhRed = Rreg+raffRed

riffRed  = min(Rmaxh,Rmaxl)
riffhRed = Rreg+riffRed
rifflRed = Rreg-riffRed

// (optional) - let's take an average of the riff and raff
RedResistance = (raffhRed + riffhRed) / 2
RedSupport    = (rafflRed + rifflRed) / 2
endif

next


return BlueSupport coloured (10, 10, 200) as "Blue Support", BlueResistance coloured (10, 10, 255) as "Blue Resistance" , GreenSupport coloured (10, 200, 10) as "Green Support", GreenResistance coloured (10, 255, 10) as "Green Resistance", RedSupport coloured (200, 10, 10) as "Red Support", RedResistance coloured (255, 10, 10) as "Red Resistance"

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

// Triple RAF Channel (Bianca) indicator for PRT

// Written by "Maz" at prorealcode.com

// Adopted from RAFF algorithm

// --

for i = 1 to 3

// Blue (Long term)

if i = 1 then

k = blue

det = DPO[k*2](close)

if det=det[1] and det[1]=det[2] and det[2]<>det[3] then

flag = 1

endif

n = (k*2)-4

p = (n/2)-1

d100 = DPO[n](close)

moy100 = close-d100

co = (moy100-moy100[1]+(close[p])/n)*n

h100 = dpo[n](high)

moyh = high-h100

hi = (moyh-moyh[1]+(high[p])/n)*n

l100 = dpo[n](low)

moyl = low-l100

lo = (moyl-moyl[1]+(low[p])/n)*n

if flag=1 and flag[1]=0 then

somx = 0

somy = 0

somxx = 0

somxy = 0

for i=1 to k

somx = somx+i

for i=0 to k-1

somy=somy+co[i]

for i=1 to k

somxx=somxx+(i*i)

for i=0 to k-1

somxy=somxy+(co[i]*(k-i))

a = (k*somxy-somx*somy)/(k*somxx-somx*somx)

b = (somy-a*somx)/k

for i=0 to k-1

ecah = hi[i]-a*(k-i)-b

maxh = max(maxh,ecah)

ecal = a*(k-i)+b-lo[i]

maxl = max(maxl,ecal)

endif

if flag=0 then

reg = undefined

else

j = j + 1

reg = a * j + b

endif

raffBlue = max(maxh,maxl)

rafflBlue = reg-raffBlue

raffhBlue = reg+raffBlue

riffBlue = min(maxh,maxl)

riffhBlue = reg+riffBlue

rifflBlue = reg-riffBlue

// (optional) - let's take an average of the riff and raff

BlueResistance = (raffhBlue + riffhBlue) / 2

BlueSupport = (rafflBlue + rifflBlue) / 2

elsif i = 2 then // Green (Medium term)

k = green

Gdet = DPO[k*2](close)

if Gdet = Gdet[1] and Gdet[1] = Gdet[2] and Gdet[2] <> Gdet[3] then

Gflag = 1

endif

Gn = (k*2)-4

Gp = (Gn/2)-1

Gd100 = DPO[Gn](close)

Gmoy100 = close-Gd100

Gco = (Gmoy100 - Gmoy100[1]+(close[Gp])/Gn)*Gn

Gh100 = dpo[Gn](high)

Gmoyh = high-Gh100

Ghi = (Gmoyh - Gmoyh[1]+(high[Gp])/Gn)*Gn

Gl100 = dpo[Gn](low)

Gmoyl = low-Gl100

Glo = (Gmoyl-Gmoyl[1]+(low[Gp])/Gn)*Gn

if Gflag = 1 and Gflag[1] = 0 then

Gsomx = 0

Gsomy = 0

Gsomxx = 0

Gsomxy = 0

for i = 1 to k

Gsomx = Gsomx+i

for i = 0 to k-1

Gsomy=Gsomy+Gco[i]

for i = 1 to k

Gsomxx=Gsomxx+(i*i)

for i = 0 to k-1

Gsomxy=Gsomxy+(Gco[i]*(k-i))

Ga = (k*Gsomxy-Gsomx*Gsomy)/(k*Gsomxx-Gsomx*Gsomx)

Gb = (Gsomy-Ga*Gsomx)/k

for i=0 to k-1

Gecah = Ghi[i]-Ga*(k-i)-Gb

Gmaxh = max(Gmaxh,Gecah)

Gecal = Ga*(k-i)+Gb-Glo[i]

Gmaxl = max(Gmaxl,Gecal)

endif

if Gflag = 0 then

Greg = undefined

else

Gj = Gj + 1

Greg = Ga * Gj + Gb

endif

raffGreen = max(Gmaxh,Gmaxl)

rafflGreen = Greg-raffGreen

raffhGreen = Greg+raffGreen

riffGreen = min(Gmaxh,Gmaxl)

riffhGreen = Greg+riffGreen

rifflGreen = Greg-riffGreen

// (optional) - let's take an average of the riff and raff

GreenResistance = (raffhGreen + riffhGreen) / 2

GreenSupport = (rafflGreen + rifflGreen) / 2

elsif i = 3 then // Red (Short Term)

k = red

Rdet = DPO[k*2](close)

if Rdet = Rdet[1] and Rdet[1] = Rdet[2] and Rdet[2] <> Rdet[3] then

Rflag = 1

endif

Rn = (k*2)-4

Rp = (Rn/2)-1

Rd100 = DPO[Rn](close)

Rmoy100 = close-Rd100

Rco = (Rmoy100 - Rmoy100[1]+(close[Rp])/Rn)*Rn

Rh100 = dpo[Rn](high)

Rmoyh = high-Rh100

Rhi = (Rmoyh - Rmoyh[1]+(high[Rp])/Rn)*Rn

Rl100 = dpo[Rn](low)

Rmoyl = low-Rl100

Rlo = (Rmoyl-Rmoyl[1]+(low[Rp])/Rn)*Rn

if Rflag = 1 and Rflag[1] = 0 then

Rsomx = 0

Rsomy = 0

Rsomxx = 0

Rsomxy = 0

for i = 1 to k

Rsomx = Rsomx+i

for i = 0 to k-1

Rsomy=Rsomy+Rco[i]

for i = 1 to k

Rsomxx=Rsomxx+(i*i)

for i = 0 to k-1

Rsomxy=Rsomxy+(Rco[i]*(k-i))

Ra = (k*Rsomxy-Rsomx*Rsomy)/(k*Rsomxx-Rsomx*Rsomx)

Rb = (Rsomy-Ra*Rsomx)/k

for i=0 to k-1

Recah = Rhi[i]-Ra*(k-i)-Rb

Rmaxh = max(Rmaxh,Recah)

Recal = Ra*(k-i)+Rb-Rlo[i]

Rmaxl = max(Rmaxl,Recal)

endif

if Rflag = 0 then

Rreg = undefined

else

Rj = Rj + 1

Rreg = Ra * Rj + Rb

endif

raffRed = max(Rmaxh,Rmaxl)

rafflRed = Rreg-raffRed

raffhRed = Rreg+raffRed

riffRed = min(Rmaxh,Rmaxl)

riffhRed = Rreg+riffRed

rifflRed = Rreg-riffRed

// (optional) - let's take an average of the riff and raff

RedResistance = (raffhRed + riffhRed) / 2

RedSupport = (rafflRed + rifflRed) / 2

endif

return BlueSupport coloured (10, 10, 200) as "Blue Support", BlueResistance coloured (10, 10, 255) as "Blue Resistance" , GreenSupport coloured (10, 200, 10) as "Green Support", GreenResistance coloured (10, 255, 10) as "Green Resistance", RedSupport coloured (200, 10, 10) as "Red Support", RedResistance coloured (255, 10, 10) as "Red Resistance"

raff raff channel trend trend following trendlines

Risk disclosure:

No information on this site is investment advice or a solicitation to buy or sell any financial instrument. Past performance is not indicative of future results. Trading may expose you to risk of loss greater than your deposits and is only suitable for experienced investors who have sufficient financial means to bear such risk.

ProRealTime ITF files and other attachments :

Filename : download the ITF files

How to import ITF files into ProRealTime platform?

Find other exclusive trading pro-tools on

PRC is also on YouTube, subscribe to our channel for exclusive content and tutorials


larouedegann • 02/10/2017 #
blue = 50
green = 20
red = 10
than you

shephinc • 02/10/2017 #
Is there an easy way get a value returned from the indicator that says if the blue channel is heading up or down ?

alf • 02/10/2017 #
Hello,
How can i project it on the chart?
Now it is below amongst the other indicators..
Thankss:)

lebrinque • 02/10/2017 #
This is AWESOME!

Thank you Maz!!
- Maz • 02/10/2017 #
  You’re welcome, thanks

lebrinque • 02/10/2017 #
Does anyone know how to make the lines extended? Like having an option for right and left?

Maz • 02/10/2017 #
With PRT it’s not currently possible to extend lines into the future (right) via the scripting language

Kris75 • 02/10/2017 #
Hi Maz,
How could we translate this in a strategy?

Kris75 • 02/10/2017 #
fantastic job btw

ggolfet • 02/10/2017 #
it seems it’s not working anymore with prorealtime 11, anyone has the same problem?

Moritz Müller • 02/10/2017 #
hi there,
I just checked and I does not work for me anymore neither – unfortunately. would be great if somebody could point to the right direction how to adjust the code.
Would be great if the code could be adjusted to work as a screener as well – as shephinc mentioned.
thanks
- jums • 02/10/2017 #
  Hi,
  
  Can you make an update for PRT v11 ?
  
  Best Regards,

Lotech123 • 02/10/2017 #
PLEASE, PLEASE someone modify the code of this special indicator for V 11.
Thank you in keen anticipation
- Nicolas • 02/10/2017 #
  just use 3 times a linear regression channel code you will find in the library.

Maz • 02/10/2017 #
Hi all, firstly happy to know that this is helping you. I look into updating it for PRT11 when I get the chance. All the best

leederbyshire • 353 days ago #
Here’s the link to alternative linear regression channel indicator Nicolas is referring to that works on v12 since v10.3 being discontinued if anyone struggling to find it.
https://www.prorealcode.com/prorealtime-indicators/standard-deviation-standard-error-linear-regression-channel/

jiddan78 how to convert to afl amibroker ?

Nicolas We do not supply free coding assistance for AFL Amibroker on the website. You can ask for pa...

Ngomsi @ Vonasi, how to use timeframe , 13 minutes ,21 minutes, 34 minutes,et 55 minutes with this...

manchokcity can we have it in mql4 platform? or how or which platform do we use it?

camporan I don't use MetaTrader so I won't be able to do the translation myself. Sorry!

Alexander9 This can for amibroker ? . Thanks

riz001 thnk u

geroniman bonjour Nicolas, j ai un indicateur le Tiger . J aiemrai placer des fleches buy et sell dire...

Nicolas Merci de formuler les demandes sur le forum. ça n'est pas le bon endroit et hors sujet ici ! ;)

Anonymous Hi robertogozzi - thank you very much for sharing this strategy. I have performed various ...

robertogozzi Thank you samsampop.

Dotan Hello guys I really appreciate this coding effort but can I use this code for Mt5 Forex Trad...

ggolfet Thanks Nicolas, I imported the itf file and solved the problem.

Hasardeur Hallo Nicolas, i tried to code the multi period heat map in combination with the Ehler’s ...

Nicolas Please open a new topic with the code in forum.

LucioleLucide Clean view, thanks for sharing

dertopen hi where i can found the window for candle configuration?

paolosab69 Ciao! . I have seen the pictures that explain this metod but i don't understand when is mome...

winnie37 yes. "No ground breaking math here, but I am finding very useful and some algo based on it i...

Jan Wind Also interesting to know what does not work, which set up you use, saves me investigating ! ...

winnie37 i just set the proorder like this: buy when 50/100/200 phase >0 and sell when under 0, go...

nfulcher Please could someone explain how the following code is calculated:- iDI = TEMA[3](DI[DI2]...

oakenstream Jan, I find sometimes that the priceexit variable is never set. It seems to happen when the ...

Matt66612 I do not understand the first time I launch the backtest I got the same result as you. but ...

Janfi Hello, I'm new to ProRealCode and I do not understand the following summation[n](indicator...

Kaci It seems he's just checking that the previous MACD is < 0 for maximum one period ? I'...

Daniel Martin Hi do you know how have and entry after the second cross? There is crosses below 0 and cross...

Maik2404 wie kann ich den Code bekommen Paul?

jens_kittner Works with US Crude at 1h as well!

Jean-Claude REGIS Je préconise de regarder les graphiques H1 et M15 pour visualiser la tendance de fond et d'...

capgros Bonjour @Nicolas, Thanks a lot for this tool, it is very useful for me. I would like to s...

Hans63 Would you add the possibility to color also the Heikin Ashi and bar chart?

Nicolas That's possible, please open a new topic in the indicator forum explaining what you need exa...

cfta Hi Fulvio, many thanks for sharing this clever indicator, much appreciated. As Pepsmile ment...

cfta Sorry adding the PRT to code didn't work in the above comment so I guess we will have to set...

juanj Something appears to be wrong with this formula as graphing t shows t to almost never be wit...

Nicolas Thanks a lot for this new valuable addition to our library. I changed line 76 with "barindex...

Horance Thanks. I've noticed this leftover after submission, but it was too late for editing. BTW, I...

Etienne Thanks Horance for porting this code to PRT. I would like to bring some speedup to your cod...

Maxime Baudin Interesting, Thank you! :)

franck-david Bonjour Nicolas , actuellement je me forme grace a vos videos tres tres bien expliques mer...

Nicolas Merci. ça n'est pas le lieu pour poser ce genre de question :) Merci d'utiliser le forum Pro...

Triple Raff Channel linear projection indicator for PRT.

Share this

Likes