// This source code is subject to the terms of the Mozilla Public License 2.

0 at
https://mozilla.org/MPL/2.0/
//@version=5

indicator('Camarilla++', overlay=true)

//Resources:

//Camarilla Pivots Suite - Daily, Weekly, Monthly, Yearly S/R

//https://www.tradingview.com/v/VQaB8luz/

//GRaB Candles
//https://www.tradingview.com/script/W3CQILKS-GRaB-Candles/

//Inverse-Fisher-RSI-MTF2-
//https://www.tradingview.com/script/XDJWADe9-Inverse-Fisher-RSI-MTF2-alerts/

//https://www.tradingview.com/script/6mkMeGyw-strategy-MACD-and-RSI-alert/

//VWAP CANDLES
//https://www.tradingview.com/script/JNE22ckq-VWAP-Candles/

//RSI SWING
//https://www.tradingview.com/script/uHew29m1-RSI-Swing-Indicator-v2/

//Jurik-PPO-PercentileRank
//ttps://www.tradingview.com/script/EJUoaGdk-Jurik-PPO-PercentileRank-Mkt-Tops-
Bottoms/

//VPTbollfib
//https://www.tradingview.com/script/6cjUFQpc-VPTbollfib/

showDaily = input(title='Show Camarilla', defval=true)

ptf = input.string(title='Pivot Resolution', defval='D', options=['Current', 'D', 'W', 'M',
'12M'])
showlast = input(title='Hide Historial', defval=false)
showlabels = input(title='Show Labels', defval=true)
lstyle = input.string(title='Line Style', options=['Solid', 'Circles', 'Cross'], defval='Solid')
showWCPR = input(title='Show Weekly Levels', defval=false)

showTomorrow = input(title='Show Future Pivot,H3,L3', defval=false)

showReg = input(title='Show Regression', defval=false)
showVwap = input(title='Show VWAP Candles', defval=false)
showVwapLine = input(title='Show VWAP Line', defval=false)

pbers = input(title='PivotBoss Extreme Reversal Setup', defval=false)

pbors = input(title='PivotBoss Outside Reversal Setup', defval=false)
changeColorPPO = input(title='Change Barcolor for PPO', defval=false)
changeColor = input(title='Change Barcolor for GRaB', defval=false)

// Line Style
linestyle = lstyle == 'Solid' ? plot.style_line : lstyle == 'Circles' ? plot.style_circles :
plot.style_cross

// Label for S/R

chper = time - time[1]
chper := ta.change(chper) > 0 ? chper[1] : chper

Round_it(x) =>
n = math.round(x / syminfo.mintick) * syminfo.mintick
n

//
///// GOLDEN ROPE
show_gr = input(false, 'Show Golden Rope')
ema_200 = ta.ema(close, 200)
plot(show_gr ? ema_200 : na, title='Golden Rope', color=color.new(color.yellow, 0),
style=plot.style_line, linewidth=1)

///// EMA
show_ema26 = input(false, 'Show EMA')
ema_26 = ta.ema(close, 26)
plot(show_ema26 ? ema_26 : na, title='EMA 26', color=color.new(color.purple, 0),
style=plot.style_line, linewidth=1)

// Camarilla + CPR function

getData(t, tom) =>
 highhtf = request.security(syminfo.tickerid, t, tom ? high : high[1],
lookahead=barmerge.lookahead_on)
lowhtf = request.security(syminfo.tickerid, t, tom ? low : low[1],
lookahead=barmerge.lookahead_on)
closehtf = request.security(syminfo.tickerid, t, tom ? close : close[1],
lookahead=barmerge.lookahead_on)
range_1 = highhtf - lowhtf
islast = showlast ? request.security(syminfo.tickerid, t, barstate.islast,
lookahead=barmerge.lookahead_on) : true

H5 = highhtf / lowhtf * closehtf

H4 = closehtf + range_1 * 1.1 / 2
H3 = closehtf + range_1 * 1.1 / 4
H2 = closehtf + range_1 * 1.1 / 6
H1 = closehtf + range_1 * 1.1 / 12
H6 = H5 + 1.168 * (H5 - H4)

L1 = closehtf - range_1 * 1.1 / 12

L2 = closehtf - range_1 * 1.1 / 6
L3 = closehtf - range_1 * 1.1 / 4
L4 = closehtf - range_1 * 1.1 / 2
L5 = closehtf - (H5 - closehtf)
L6 = closehtf - (H6 - closehtf)

pivot = (highhtf + lowhtf + closehtf) / 3.0

bc = (highhtf + lowhtf) / 2.0
tc = pivot - bc + pivot
[islast, H6, H5, H4, H3, H2, H1, L1, L2, L3, L4, L5, L6, pivot, bc, tc]

[dIsLast, dH6, dH5, dH4, dH3, dH2, dH1, dL1, dL2, dL3, dL4, dL5, dL6, dP, dPb, dPt] =
getData(ptf, false)
[tIsLast, tH6, tH5, tH4, tH3, tH2, tH1, tL1, tL2, tL3, tL4, tL5, tL6, tP, tPb, tPt] =
getData(ptf, true)

[wIsLast, wH6, wH5, wH4, wH3, wH2, wH1, wL1, wL2, wL3, wL4, wL5, wL6, wP,
wPb, wPt] = getData('W', false)
[mIsLast, mH6, mH5, mH4, mH3, mH2, mH1, mL1, mL2, mL3, mL4, mL5, mL6, mP,
mPb, mPt] = getData('M', false)
[yIsLast, yH6, yH5, yH4, yH3, yH2, yH1, yL1, yL2, yL3, yL4, yL5, yL6, yP, yPb, yPt] =
getData('12M', false)
/////

//W CPR
cpr_trans = color.new(color.white, transp=75)

if showWCPR
wcpr = line.new(time, wP, time + 60 * 60 * 24, wP, xloc=xloc.bar_time,
color=color.white, style=line.style_dashed, extend=extend.right)
line.delete(wcpr[1])
wcprb = line.new(time, wPb, time + 60 * 60 * 24, wPb, xloc=xloc.bar_time,
color=cpr_trans, style=line.style_dashed, extend=extend.right)
line.delete(wcprb[1])
wcprt = line.new(time, wPt, time + 60 * 60 * 24, wPt, xloc=xloc.bar_time,
color=cpr_trans, style=line.style_dashed, extend=extend.right)
line.delete(wcprt[1])
wcprl = label.new(time, wP, '
Weekly Pivot : ' + str.tostring(Round_it(wP)), xloc=xloc.bar_time, size=size.small,
textcolor=color.white, style=label.style_none, textalign=text.align_left)
label.delete(wcprl[1])

wh3 = line.new(time, wH3, time + 60 * 60 * 24, wH3, xloc=xloc.bar_time,

color=color.red, style=line.style_dashed, extend=extend.right)
line.delete(wh3[1])
wh3l = label.new(time, wH3, '
Weekly H3 : ' + str.tostring(Round_it(wH3)), xloc=xloc.bar_time, size=size.small,
textcolor=color.red, style=label.style_none, textalign=text.align_left)
label.delete(wh3l[1])
wh4 = line.new(time, wH4, time + 60 * 60 * 24, wH4, xloc=xloc.bar_time,
color=color.red, style=line.style_dashed, extend=extend.right)
line.delete(wh4[1])
wh4l = label.new(time, wH4, '
Weekly H4 : ' + str.tostring(Round_it(wH4)), xloc=xloc.bar_time, size=size.small,
textcolor=color.red, style=label.style_none, textalign=text.align_left)
label.delete(wh4l[1])
wh5 = line.new(time, wH5, time + 60 * 60 * 24, wH5, xloc=xloc.bar_time,
color=color.red, style=line.style_dashed, extend=extend.right)
line.delete(wh5[1])
 wh5l = label.new(time, wH5, '
Weekly H5 : ' + str.tostring(Round_it(wH5)), xloc=xloc.bar_time, size=size.small,
textcolor=color.red, style=label.style_none, textalign=text.align_left)
label.delete(wh5l[1])

wl3 = line.new(time, wL3, time + 60 * 60 * 24, wL3, xloc=xloc.bar_time,

color=color.green, style=line.style_dashed, extend=extend.right)
line.delete(wl3[1])
wl3l = label.new(time, wL3, '
Weekly L3 : ' + str.tostring(Round_it(wL3)), xloc=xloc.bar_time, size=size.small,
textcolor=color.green, style=label.style_none, textalign=text.align_left)
label.delete(wl3l[1])
wl4 = line.new(time, wL4, time + 60 * 60 * 24, wL4, xloc=xloc.bar_time,
color=color.green, style=line.style_dashed, extend=extend.right)
line.delete(wl4[1])
wl4l = label.new(time, wL4, '
Weekly L4 : ' + str.tostring(Round_it(wL4)), xloc=xloc.bar_time, size=size.small,
textcolor=color.green, style=label.style_none, textalign=text.align_left)
label.delete(wl4l[1])

wl5 = line.new(time, wL5, time + 60 * 60 * 24, wL5, xloc=xloc.bar_time,

color=color.green, style=line.style_dashed, extend=extend.right)
line.delete(wl5[1])
wl5l = label.new(time, wL5, '
Weekly L5 : ' + str.tostring(Round_it(wL5)), xloc=xloc.bar_time, size=size.small,
textcolor=color.green, style=label.style_none, textalign=text.align_left)
label.delete(wl5l[1])

//D
plot(showDaily and dIsLast ? dP : na, title='Pivot', color=dP != dP[1] ? na : color.fuchsia,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dPb : na, title='Pivot Botttom', color=dPb != dPb[1] ? na :
color.fuchsia, linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dPt : na, title='Pivot Top', color=dPt != dPt[1] ? na :
color.fuchsia, linewidth=1, style=linestyle, transp=0)

plot(showDaily and dIsLast ? dH5 : na, title='H5', color=dH5 != dH5[1] ? na : color.blue,

linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dH4 : na, title='H4', color=dH4 != dH4[1] ? na : color.red,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dH3 : na, title='H3', color=dH3 != dH3[1] ? na : color.red,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dH2 : na, title='H2', color=dH2 != dH2[1] ? na : color.red,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dL2 : na, title='L2', color=dL2 != dL2[1] ? na : color.green,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dL3 : na, title='L3', color=dL3 != dL3[1] ? na : color.green,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dL4 : na, title='L4', color=dL4 != dL4[1] ? na : color.green,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dL5 : na, title='L5', color=dL5 != dL5[1] ? na : color.blue,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dH6 : na, title='H6', color=dH6 != dH6[1] ? na : color.blue,
linewidth=1, style=linestyle, transp=0)
plot(showDaily and dIsLast ? dL6 : na, title='L6', color=dL6 != dL6[1] ? na : color.blue,
linewidth=1, style=linestyle, transp=0)

if showTomorrow
tP_l = line.new(x1=time + 86400000 / 4, y1=tP, x2=time + 86400000, y2=tP,
xloc=xloc.bar_time, color=color.fuchsia, style=line.style_dashed)
line.delete(tP_l[1])
tPb_l = line.new(x1=time + 86400000 / 4, y1=tPb, x2=time + 86400000, y2=tPb,
xloc=xloc.bar_time, color=color.fuchsia, style=line.style_dashed)
line.delete(tPb_l[1])
tPt_l = line.new(x1=time + 86400000 / 4, y1=tPt, x2=time + 86400000, y2=tPt,
xloc=xloc.bar_time, color=color.fuchsia, style=line.style_dashed)
line.delete(tPt_l[1])

tph3_l = line.new(x1=time + 86400000 / 4, y1=tH3, x2=time + 86400000, y2=tH3,

xloc=xloc.bar_time, color=color.red, style=line.style_dashed)
line.delete(tph3_l[1])

tpl3_l = line.new(x1=time + 86400000 / 4, y1=tL3, x2=time + 86400000, y2=tL3,

xloc=xloc.bar_time, color=color.green, style=line.style_dashed)
line.delete(tpl3_l[1])

var label tPlabel = na

var label tH3label = na
var label tL3label = na
tPlabel := label.new(x=time + 86400000 / 2, y=tP, text=' Next
Pivot ' + str.tostring(Round_it(tP)), size=size.small, textcolor=color.fuchsia,
style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
label.delete(tPlabel[1])
tH3label := label.new(x=time + 86400000 / 2, y=tH3, text=' Next
H3 ' + str.tostring(Round_it(tH3)), size=size.small, textcolor=color.red,
style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
label.delete(tH3label[1])
tL3label := label.new(x=time + 86400000 / 2, y=tL3, text=' Next
L3 ' + str.tostring(Round_it(tL3)), size=size.small, textcolor=color.green,
style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
label.delete(tL3label[1])

dist = time + chper * 2

wdist = time + chper * 2

if showlabels

if showDaily
var label dPlabel = na
var label ds3label = na
var label ds4label = na
var label ds5label = na
var label ds6label = na
var label dr3label = na
var label dr4label = na
var label dr5label = na
var label dr6label = na

label.delete(dPlabel)
label.delete(ds3label)
label.delete(ds4label)
label.delete(ds5label)
label.delete(ds6label)
label.delete(dr3label)
label.delete(dr4label)
label.delete(dr5label)
label.delete(dr6label)
dPlabel := label.new(x=dist, y=dP, text=' P'+
str.tostring(Round_it(dP)), textalign=text.align_left, size=size.small,
textcolor=color.fuchsia, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)

ds3label := label.new(x=dist, y=dL3, text=' L3 ' +

str.tostring(Round_it(dL3)), textalign=text.align_left, size=size.small,
textcolor=color.green, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
ds4label := label.new(x=dist, y=dL4, text=' L4 ' +
str.tostring(Round_it(dL4)), textalign=text.align_left, size=size.small,
textcolor=color.green, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
ds5label := label.new(x=dist, y=dL5, text=' L5 ' +
str.tostring(Round_it(dL5)), textalign=text.align_left, size=size.small,
textcolor=color.blue, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
ds6label := label.new(x=dist, y=dL6, text=' L6 ' +
str.tostring(Round_it(dL6)), textalign=text.align_left, size=size.small,
textcolor=color.blue, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)

dr3label := label.new(x=dist, y=dH3, text=' H3 ' +

str.tostring(Round_it(dH3)), textalign=text.align_left, size=size.small,
textcolor=color.red, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
dr4label := label.new(x=dist, y=dH4, text=' H4 ' +
str.tostring(Round_it(dH4)), textalign=text.align_left, size=size.small,
textcolor=color.red, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
dr5label := label.new(x=dist, y=dH5, text=' H5 ' +
str.tostring(Round_it(dH5)), textalign=text.align_left, size=size.small,
textcolor=color.blue, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
dr6label := label.new(x=dist, y=dH6, text=' H6 ' +
str.tostring(Round_it(dH6)), textalign=text.align_left, size=size.small,
textcolor=color.blue, style=label.style_none, xloc=xloc.bar_time, yloc=yloc.price)
dr6label

//GRaB Candles
emaPeriod = input(title='[GRaB] EMA Period', defval=34)
showWave = input(title='[GRaB] Show Wave', defval=false)

emaHigh = ta.ema(high, emaPeriod)

emaLow = ta.ema(low, emaPeriod)
emaClose = ta.ema(close, emaPeriod)

waveHigh = showWave == true ? emaHigh : na

waveLow = showWave == true ? emaLow : na
waveClose = showWave == true ? emaClose : na

plot(waveHigh, title='EMA High', color=color.new(color.red, 0))

plot(waveLow, title='EMA Low', color=color.new(color.blue, 0))
plot(waveClose, title='EMA Close', color=color.new(color.silver, 0))
barcolor(close < emaLow and changeColor ? close > open ? color.red : color.maroon :
close > emaHigh and changeColor ? close > open ? color.blue : color.navy : close > open
and changeColor ? color.silver : changeColor ? color.gray : na)

fastLength = 8 //input(8, minval=1)

slowLength = 16 //input(16,minval=1)
signalLength = 11 //input(11,minval=1)
fastMA = ta.ema(close, fastLength)
slowMA = ta.ema(close, slowLength)
macd = fastMA - slowMA
signal = ta.sma(macd, signalLength)

Length = 10 //input(10, minval=1)

Oversold = 49 //input(49, minval=1)
Overbought = 51 //input(51, minval=1)
xRSI = ta.rsi(close, Length)

longCond = bool(na)
shortCond = bool(na)
longCond := xRSI > Overbought and signal < macd
shortCond := xRSI < Oversold and signal > macd

CondIni = 0
CondIni := longCond ? 1 : shortCond ? -1 : CondIni[1]
longCondition = longCond and CondIni[1] == -1
shortCondition = shortCond and CondIni[1] == 1

plotshape(longCondition, title='RSI/MACD up', textcolor=color.new(color.white, 0),

style=shape.arrowup, size=size.tiny, location=location.belowbar,
color=color.new(color.green, 0))
plotshape(shortCondition, title='RSI/MACD down', textcolor=color.new(color.white, 0),
style=shape.arrowdown, size=size.tiny, location=location.abovebar,
color=color.new(color.red, 0))

period = input.int(150, '[Regr] Period', minval=3)

deviations = input.float(2.0, '[Regr] Deviation(s)', minval=0.1, step=0.1)
extendType = input.string('Right', '[Regr] Extend Method', options=['Right', 'None']) ==
'Right' ? extend.right : extend.none
periodMinusOne = period - 1
Ex = 0.0
Ey = 0.0
Ex2 = 0.0
Exy = 0.0
for i = 0 to periodMinusOne by 1
closeI = nz(close[i])
Ex += i
Ey += closeI
Ex2 += i * i
Exy += closeI * i
Exy
ExEx = Ex * Ex
slope = Ex2 == ExEx ? 0.0 : (period * Exy - Ex * Ey) / (period * Ex2 - ExEx)
linearRegression = (Ey - slope * Ex) / period
intercept = linearRegression + bar_index * slope
deviation = 0.0
for i = 0 to periodMinusOne by 1
deviation += math.pow(nz(close[i]) - (intercept - slope * bar_index[i]), 2.0)
deviation
deviation := deviations * math.sqrt(deviation / periodMinusOne)
startingPointY = linearRegression + slope * periodMinusOne
if showReg
var line upperChannelLine = na
var line medianChannelLine = na
var line lowerChannelLine = na
line.delete(upperChannelLine[1])
line.delete(medianChannelLine[1])
line.delete(lowerChannelLine[1])
upperChannelLine := line.new(bar_index - period + 1, startingPointY + deviation,
bar_index, linearRegression + deviation, xloc.bar_index, extendType,
color.new(#FF0000, 0), line.style_solid, 2)
medianChannelLine := line.new(bar_index - period + 1, startingPointY, bar_index,
linearRegression, xloc.bar_index, extendType, color.new(#C0C000, 0), line.style_solid,
1)
lowerChannelLine := line.new(bar_index - period + 1, startingPointY - deviation,
bar_index, linearRegression - deviation, xloc.bar_index, extendType,
color.new(#00FF00, 0), line.style_solid, 2)
lowerChannelLine

// VWAP CANDLES
NormalVwap = ta.vwap(hlc3)
H = ta.vwap(high)
L = ta.vwap(low)
O = ta.vwap(open)
C = ta.vwap(close)
left = 30 //input(title="[VWAP Candles# bars to the left", type=integer, defval=30)

left_low = ta.lowest(left)
left_high = ta.highest(left)
newlow = low <= left_low
newhigh = high >= left_high
wc = color.new(color.black, transp=100)

q = ta.barssince(newlow)
w = ta.barssince(newhigh)
col2 = showVwap ? q < w ? #8B3A3A : #9CBA7F : wc
col2b = showVwap ? O > C ? color.red : color.lime : wc
col2c = showVwapLine ? O > C ? color.red : color.lime : wc

AVGHL = math.avg(H, L)
AVGOC = math.avg(O, C)
col = showVwap ? AVGHL > AVGOC ? color.lime : color.red : wc
col3 = showVwap ? open > AVGOC ? color.lime : color.red : wc

plotcandle(O, H, L, C, color=col2b, wickcolor=wc, bordercolor=wc)

plot(showVwapLine ? NormalVwap : na, color=col2c)

///TKE
//// TKE
tke_period = 14
tke_emaperiod = 5
momentum = close / close[tke_period] * 100
cci = ta.cci(hlc3, tke_period)
rsi = ta.rsi(close, tke_period)
willr = (ta.highest(high, tke_period) - close) / (ta.highest(high, tke_period) -
ta.lowest(low, tke_period)) * -100
stosk = ta.stoch(close, high, low, tke_period)
upper_s = math.sum(volume * (ta.change(hlc3) <= 0 ? 0 : hlc3), tke_period)
lower_s = math.sum(volume * (ta.change(hlc3) >= 0 ? 0 : hlc3), tke_period)
mfi = 100.0 - 100.0 / (1.0 + upper_s / lower_s)
spacing = 7
length7 = 7
length14 = 14
length28 = 28
average(bp, tr_, length) =>
 math.sum(bp, length) / math.sum(tr_, length)
high_ = math.max(high, close[1])
low_ = math.min(low, close[1])
bp = close - low_
tr_ = high_ - low_
avg7 = average(bp, tr_, length7)
avg14 = average(bp, tr_, length14)
avg28 = average(bp, tr_, length28)
ult = 100 * (4 * avg7 + 2 * avg14 + avg28) / 7
TKEline = (ult + mfi + momentum + cci + rsi + willr + stosk) / 7
EMAline = ta.ema(TKEline, tke_emaperiod)
showTKEdots = input(title='Show TKE dots', defval=false)
obb = input(85, '[TKE] OB')
oss = input(-5, '[TKE] OS')

//plotshape(TKEline >= obb and showTKEdots, color=color.orange, transp=50,

style=shape.circle, size=size.tiny, location=location.abovebar, title="TKE OS")
//plotshape(TKEline >= 80 and showTKEdots, color=color.yellow, transp=50,
style=shape.circle, size=size.tiny, location=location.abovebar, title="TKE OS 2")
plotshape(ta.crossunder(TKEline, obb) and showTKEdots, color=color.new(color.red,
20), style=shape.circle, size=size.tiny, location=location.abovebar, title='TKE OB cross')
//plotshape(TKEline <= oss and showTKEdots, color=color.yellow, transp=50,
style=shape.circle, size=size.tiny, location=location.belowbar, title="TKE OS")
plotshape(ta.crossover(TKEline, 0) and showTKEdots, color=color.new(color.green, 20),
style=shape.circle, size=size.tiny, location=location.belowbar, title='KE OS cross')

//// RSI SWING

// RSI Settings for user
rsiShow = input(title='[RSI Swing] Show Indicator', defval=false)
rsiSource = input(title='[RSI Swing] Source', defval=close)
rsiLength = input(title='[RSI Swing] Length', defval=7)
rsiOverbought = input.int(title='[RSI Swing] OB', defval=70, minval=51, maxval=100)
rsiOvesold = input.int(title='[RSI Swing] OS', defval=30, minval=1, maxval=49)

// RSI value based on inbuilt RSI

rsiValue = ta.rsi(rsiSource, rsiLength)

// Get the current state

isOverbought = rsiValue >= rsiOverbought
isOversold = rsiValue <= rsiOvesold
// State of the last extreme 0 for initialization, 1 = overbought, 2 = oversold
var laststate = 0

// Highest and Lowest prices since the last state change

var hh = low
var ll = high

// Labels
var label labelll = na
var label labelhh = na

// Swing lines
var line line_up = na
var line line_down = na

var last_actual_label_hh_price = 0.0

var last_actual_label_ll_price = 0.0

// FUNCTIONS
obLabelText() =>
if last_actual_label_hh_price < high
'HH'
else
'LH'
//plot(last_actual_label_hh_price)
osLabelText() =>
if last_actual_label_ll_price < low
'HL'
else
'LL'

// Create oversold or overbought label

createOverBoughtLabel(isIt) =>
if isIt
label.new(x=bar_index, y=na, yloc=yloc.abovebar, style=label.style_label_down,
color=color.red, size=size.tiny, text=obLabelText())
else
label.new(x=bar_index, y=na, yloc=yloc.belowbar, style=label.style_label_up,
color=color.green, size=size.tiny, text=osLabelText())
// Move the oversold swing and label
moveOversoldLabel() =>
label.set_x(labelll, bar_index)
label.set_y(labelll, low)
label.set_text(labelll, osLabelText())
line.set_x1(line_down, bar_index)
line.set_y1(line_down, low)

moveOverBoughtLabel() =>
label.set_x(labelhh, bar_index)
label.set_y(labelhh, high)
label.set_text(labelhh, obLabelText())
line.set_x1(line_up, bar_index)
line.set_y1(line_up, high)

// We go from oversold straight to overbought NEW DRAWINGS CREATED HERE

if laststate == 2 and isOverbought and rsiShow
hh := high
labelhh := createOverBoughtLabel(true)
last_actual_label_ll_price := label.get_y(labelll)
labelll_ts = label.get_x(labelll)
labelll_price = label.get_y(labelll)
line_up := line.new(x1=bar_index, y1=high, x2=labelll_ts, y2=labelll_price,
width=1)
line_up

// We go from overbought straight to oversold NEW DRAWINGS CREATED HERE

if laststate == 1 and isOversold and rsiShow
ll := low
labelll := createOverBoughtLabel(false)
last_actual_label_hh_price := label.get_y(labelhh)
labelhh_ts = label.get_x(labelhh)
labelhh_price = label.get_y(labelhh)
line_down := line.new(x1=bar_index, y1=high, x2=labelhh_ts, y2=labelhh_price,
width=1)
line_down

// If we are overbought
if isOverbought
if high >= hh
hh := high
moveOverBoughtLabel()
 laststate := 1
laststate

// If we are oversold
if isOversold
if low <= ll
ll := low
moveOversoldLabel()
laststate := 2
laststate

// If last state was overbought and we are overbought

if laststate == 1 and isOverbought
if hh <= high
hh := high
moveOverBoughtLabel()

//If we are oversold and the last state was oversold, move the drawings to the lowest price
if laststate == 2 and isOversold
if low <= ll
ll := low
moveOversoldLabel()

// If last state was overbought

if laststate == 1
if hh <= high
hh := high
moveOverBoughtLabel()

// If last stare was oversold

if laststate == 2
if ll >= low
ll := low
moveOversoldLabel()

// PPO

pctile = 90 //input(90, title="Percentile Threshold Extreme Value, Exceeding Creates

Colored Histogram")
wrnpctile = 75 //input(75, title="Percentile Threshold Warning Value, Exceeding
Creates Colored Histogram")
ma_source = close //input(title="Source", type=source, defval=close)

short_length = 35 //input(title="Length - Short", type=integer, defval=35)

short_phase = 2 //input(title="Phase - Short", type=integer, defval=2)
short_power = 2 //input(title="Power - Short", type=integer, defval=2)

long_length = 75 //input(title="Length - Long", type=integer, defval=75)

long_phase = 2 //input(title="Phase - Long", type=integer, defval=2)
long_power = 2 //input(title="Power - Long", type=integer, defval=2)

lkb = input(200, title='[PPO] Look Back Period ')

// Jurik MA Calculation by everget

get_jurik(length, phase, power, src) =>
phaseRatio = phase < -100 ? 0.5 : phase > 100 ? 2.5 : phase / 100 + 1.5
beta = 0.45 * (length - 1) / (0.45 * (length - 1) + 2)
alpha = math.pow(beta, power)
jma = 0.0
e0 = 0.0
e0 := (1 - alpha) * src + alpha * nz(e0[1])
e1 = 0.0
e1 := (src - e0) * (1 - beta) + beta * nz(e1[1])
e2 = 0.0
e2 := (e0 + phaseRatio * e1 - nz(jma[1])) * math.pow(1 - alpha, 2) +
math.pow(alpha, 2) * nz(e2[1])
jma := e2 + nz(jma[1])
jma

lmas = get_jurik(short_length, short_phase, short_power, ma_source)

lmal = get_jurik(long_length, long_phase, long_power, ma_source)

pctileB = pctile * -1
wrnpctileB = wrnpctile * -1

ppoT = (lmas - lmal) / lmal * 100

ppoB = (lmal - lmas) / lmal * 100

pctRankT = ta.percentrank(ppoT, lkb)

pctRankB = ta.percentrank(ppoB, lkb) * -1
colT = pctRankT >= pctile ? color.red : pctRankT >= wrnpctile and pctRankT < pctile ?
color.orange : color.gray
colB = pctRankB <= pctileB ? color.lime : pctRankB <= wrnpctileB and pctRankB >
pctileB ? color.green : color.silver
colFinal = color.silver
if pctRankT >= pctile or pctRankT >= wrnpctile and pctRankT < pctile
colFinal := colT
colFinal
if pctRankB <= pctileB or pctRankB <= wrnpctileB and pctRankB > pctileB
colFinal := colB
colFinal
barcolor(changeColorPPO ? colFinal : na)

// HULL MA

src = close //input(close, title="Source")

showHull = input(title='[Hull] Show indicator', defval=false)
modeSwitch = input.string('Hma', title='[Hull] Variation', options=['Hma', 'Thma',
'Ehma'])
length = input(55, title='[Hull] Length(180-200 for floating S/R , 55 for swing entry)')
switchColor = input(true, '[Hull] Color according to trend?')
//candleCol = input(false,title="Color candles based on Hull's Trend?")
visualSwitch = input(true, title='[Hull] Show as a Band?')
thicknesSwitch = input(1, title='[Hull] Line Thickness')
transpSwitch = input.int(40, title='[Hull] Band Transparency', step=5)

//FUNCTIONS
//HMA
HMA(_src, _length) =>
ta.wma(2 * ta.wma(_src, _length / 2) - ta.wma(_src, _length),
math.round(math.sqrt(_length)))
//EHMA
EHMA(_src, _length) =>
ta.ema(2 * ta.ema(_src, _length / 2) - ta.ema(_src, _length),
math.round(math.sqrt(_length)))
//THMA
THMA(_src, _length) =>
ta.wma(ta.wma(_src, _length / 3) * 3 - ta.wma(_src, _length / 2) - ta.wma(_src,
_length), _length)

//SWITCH
Mode(modeSwitch, src, len) =>
modeSwitch == 'Hma' ? HMA(src, len) : modeSwitch == 'Ehma' ? EHMA(src, len) :
modeSwitch == 'Thma' ? THMA(src, len / 2) : na

//OUT
HULL = Mode(modeSwitch, src, length)
MHULL = HULL[0]
SHULL = HULL[2]

//COLOR
hullColor = switchColor ? HULL > HULL[2] ? #00ff00 : #ff0000 : #ff9800

//PLOT
///< Frame
Fi1 = plot(showHull ? MHULL : na, title='MHULL', color=hullColor,
linewidth=thicknesSwitch, transp=50)
Fi2 = plot(visualSwitch and showHull ? SHULL : na, title='SHULL', color=hullColor,
linewidth=thicknesSwitch, transp=50)
///< Ending Filler
fill(Fi1, Fi2, title='Band Filler', color=hullColor, transp=transpSwitch)

//vptBOlfib

showvpt = input(title='[vpt] Show bands', defval=false)

showvptar = input(title='[vpt] Show arrows', defval=true)

source = close
hilow = (high - low) * 100
openclose = (close - open) * 100
vol = volume / hilow
spreadvol = openclose * vol
VPT = spreadvol + ta.cum(spreadvol)
window_len = input.int(28, minval=1, title='[vpt] Window Lenght')

v_len = input.int(14, defval=14, minval=1, title='[vpt] smooth Lenght')

price_spread = ta.stdev(high - low, window_len)

v = spreadvol + ta.cum(spreadvol)
smooth = ta.sma(v, v_len)
v_spread = ta.stdev(v - smooth, window_len)
shadow = (v - smooth) / v_spread * price_spread

out = shadow > 0 ? high + shadow : low + shadow

color = shadow > 0 ? color.green : color.red
// out = close > close[1] ? shadow : -shadow

smooth1 = input(3)

m = ta.sma(out, smooth1)
plot(showvpt ? m : na, title='VPT', color=color.new(color.blue, 0), linewidth=3)
len = input.int(defval=20, minval=1)
p = close
sma = ta.sma(p, len)
avg = ta.atr(len)
fibratio1 = input(defval=1.618, title='Fibonacci Ratio 1')
fibratio2 = input(defval=2.618, title='Fibonacci Ratio 2')
fibratio3 = input(defval=4.236, title='Fibonacci Ratio 3')
r1 = avg * fibratio1
r2 = avg * fibratio2
r3 = avg * fibratio3
top3 = sma + r3
top2 = sma + r2
top1 = sma + r1
bott1 = sma - r1
bott2 = sma - r2
bott3 = sma - r3

t3 = plot(showvpt ? top3 : na, title='Upper 3', color=color.new(color.red, 0))

t2 = plot(showvpt ? top2 : na, title='Upper 2', color=color.new(color.teal, 20))
t1 = plot(showvpt ? top1 : na, title='Upper 1', color=color.new(color.teal, 40))
b1 = plot(showvpt ? bott1 : na, title='Lower 1', color=color.new(color.teal, 40))
b2 = plot(showvpt ? bott2 : na, title='Lower 2', color=color.new(color.teal, 20))
b3 = plot(showvpt ? bott3 : na, title='Lower 3', color=color.new(color.red, 0))
plot(showvpt ? sma : na, style=plot.style_line, title='SMA', color=color.new(color.black,
0))
fill(t3, b3, color=color.new(color.yellow, 90))
fill(t2, b2, color=color.new(color.green, 90))

buy = ta.crossover(m, bott2)

sell = ta.crossunder(m, top2)

plotshape(showvptar ? sell : na, title='sell', style=shape.triangledown,

location=location.abovebar, color=color.new(color.red, 0), size=size.small)
plotshape(showvptar ? buy : na, title='buy', style=shape.triangleup,
location=location.belowbar, color=color.new(color.green, 0), size=size.small)

// Pivot Boss Reversal

lookbackPeriod = 20 //input(title="Lookback Period", type=integer, defval=20,
minval=0)
atrMultiplier = 2 //input(title="Bar ATR Multiplier", type=float, defval=2.0, minval=0)
barBodyPercentMin = 0.65 //input(title="Minimum Bar Body %", type=float,
defval=0.65, minval=0.0, maxval=1.0)
barBodyPercentMax = 0.85 //input(title="Maximum Bar Body %", type=float,
defval=0.85, minval=0.0, maxval=1.0)

typicalAtr = ta.atr(lookbackPeriod)
firstBar_body_size = math.abs(close[1] - open[1])
firstBar_range = high[1] - low[1]
firstBar_body_pct = firstBar_body_size / firstBar_range

firstBar_signal = firstBar_range > atrMultiplier * typicalAtr and firstBar_body_pct >=

barBodyPercentMin and firstBar_body_pct <= barBodyPercentMax
bull_signal = firstBar_signal and close[1] < open[1] and close > open
bear_signal = firstBar_signal and close[1] > open[1] and close < open

plotshape(pbers and bull_signal, 'Bullish Reversal', shape.labelup, location.belowbar,

color.new(color.green, 0), text='XR', textcolor=color.new(color.black, 0), size=size.tiny)
plotshape(pbers and bear_signal, 'Bearish Reversal', shape.labeldown, location.abovebar,
color.new(color.red, 0), text='XR', textcolor=color.new(color.black, 0), size=size.tiny)

olookbackPeriod = 20 //input(title="Lookback Period", type=integer, defval=20,

minval=0)
oatrMultiplier = 1.05 //input(title="Bar ATR Multiplier", type=float, defval=1.05,
minval=0)

otypicalAtr = ta.atr(olookbackPeriod)
ofirstBar_body_size = math.abs(close[1] - open[1])
ofirstBar_range = high[1] - low[1]

ofirstBar_signal = ofirstBar_range > oatrMultiplier * otypicalAtr

obull_signal = low < low[1] and close > high[1] and ofirstBar_signal
obear_signal = high > high[1] and close < low[1] and ofirstBar_signal
plotshape(pbors and obull_signal, 'Bullish Reversal', shape.labelup, location.belowbar,
color.new(color.green, 0), text='OR', textcolor=color.new(color.black, 0), size=size.tiny)
plotshape(pbors and obear_signal, 'Bearish Reversal', shape.labeldown,
location.abovebar, color.new(color.red, 0), text='OR', textcolor=color.new(color.black,
0), size=size.tiny)