//============================================
//Modified - Renko_Bars----------------------------------------------------- // Signal 1
//rt = input(true, title="ATR Based REnko is the Default, UnCheck to use Traditional ATR?")
atrLen = input(3, minval=1, title="RENKO_ATR Look Back Length")
isATR = input(true, title="RENKO_If You Uncheck Box Read Below")
def = input(false, title="RENKO_Number Below is Multiplied by 1")
tradLen1 = input(100, minval=0, title="RENKO_Input for Non-ATR Renkos")
//Code to be implemented in V2
//mul = input(1, "Number Of minticks")
//value = mul * syminfo.mintick
///PinBars
pBarUp() => spb and open > high - (range * pctCPO) and close > high - (range * pctCPO) and low <= lowest(pblb) ? 1 : 0
pBarDn() => spb and open < high - (range * pctCp) and close < high-(range * pctCp) and high >= highest(pblb) ? 1 : 0
//Shaved Bars
sBarUp() => ssb and (close >= (high - (range * pctCs)))
sBarDown() => ssb and close <= (low + (range * pctCs))
//Inside Bars
insideBar() => sib and high <= high[1] and low >= low[1] ? 1 : 0
outsideBar() => sob and (high > high[1] and low < low[1]) ? 1 : 0
//PinBars
barcolor(pBarUp() ? lime : na)
barcolor(pBarDn() ? red : na)
//Shaved Bars
barcolor(sBarDown() ? fuchsia : na)
barcolor(sBarUp() ? aqua : na)
//Inside and Outside Bars
barcolor(insideBar() ? yellow : na )
barcolor(outsideBar() ? orange : na )
here's the script:
study("AGHYAD_Renko+Sniper+PAB+TZ", overlay=true, shorttitle="AGHYAD_STRATEGY")
//============================================
//Modified - Renko_Bars----------------------------------------------------- // Signal 1
//rt = input(true, title="ATR Based REnko is the Default, UnCheck to use Traditional ATR?")
atrLen = input(3, minval=1, title="RENKO_ATR Look Back Length")
isATR = input(true, title="RENKO_If You Uncheck Box Read Below")
def = input(false, title="RENKO_Number Below is Multiplied by 1")
tradLen1 = input(100, minval=0, title="RENKO_Input for Non-ATR Renkos")
//Code to be implemented in V2
//mul = input(1, "Number Of minticks")
//value = mul * syminfo.mintick
tradLen = tradLen1 * 1
param = isATR ? renko(tickerid, "open", "ATR", atrLen) : renko(tickerid, "open", "Traditional", tradLen)
renko_close = security(param, period, close)
renko_open = security(param, period, open)
col2 = renko_close < renko_open ? red : yellow
p11=plot(renko_close, style=circles, linewidth=3, color=col2, title="RENKO_1", transp=0)
p22=plot(renko_open, style=circles, linewidth=3, color=col2, title="RENKO_2", transp=100)
//============================================
//Modified - Rajandran R Supertrend----------------------------------------------------- // Signal 2
Factor=input(1, minval=1,maxval = 1000, title="SNIPER_Trend Transition Signal")
Pd=input(1, minval=1,maxval = 1000, title="SNIPER_Period")
Up=hl2-(Factor*atr(Pd))
Dn=hl2+(Factor*atr(Pd))
TrendUp=close[1]>TrendUp[1]? max(Up,TrendUp[1]) : Up
TrendDown=close[1]<TrendDown[1]? min(Dn,TrendDown[1]) : Dn
Trend = close > TrendDown[1] ? 1: close< TrendUp[1]? -1: nz(Trend[1],0)
plotarrow(Trend == 1 and Trend[1] == -1 ? Trend : na, title="SNIPER_Up Entry Arrow", colorup=yellow, maxheight=1000, minheight=50, transp=75)
plotarrow(Trend == -1 and Trend[1] == 1 ? Trend : na, title="SNIPER_Down Entry Arrow", colordown=red, maxheight=1000, minheight=50, transp=75)
//============================================
//Modified - Price-Action-Bars----------------------------------------------------------- // Signal 3
pctP = input(70, minval=1, maxval=99, title="PAB_What % The Wick Of Candle Has To Be")
pblb = input(6, minval=1, maxval=100, title="PAB_Look Back Period To Define The Trend")
pctS = input(5, minval=1, maxval=99, title="PAB_Percentage Input For Shaved Bars")
spb = input(true, title="PAB_Show Pin Bars?")
ssb = input(true, title="PAB_Show Shaved Bars?")
sib = input(false, title="PAB_Show Inside Bars?")
sob = input(false, title="PAB_Show Outside Bars?")
sgb = input(false, title="PAB_Check Box To Turn Bars Gray?")
//PBar Percentages
pctCp = pctP * .01
pctCPO = 1 - pctCp
//Shaved Bars Percentages
pctCs = pctS * .01
pctSPO = pctCs
range = high - low
///PinBars
pBarUp() => spb and open > high - (range * pctCPO) and close > high - (range * pctCPO) and low <= lowest(pblb) ? 1 : 0
pBarDn() => spb and open < high - (range * pctCp) and close < high-(range * pctCp) and high >= highest(pblb) ? 1 : 0
//Shaved Bars
sBarUp() => ssb and (close >= (high - (range * pctCs)))
sBarDown() => ssb and close <= (low + (range * pctCs))
//Inside Bars
insideBar() => sib and high <= high[1] and low >= low[1] ? 1 : 0
outsideBar() => sob and (high > high[1] and low < low[1]) ? 1 : 0
//PinBars
barcolor(pBarUp() ? lime : na)
barcolor(pBarDn() ? red : na)
//Shaved Bars
barcolor(sBarDown() ? fuchsia : na)
barcolor(sBarUp() ? aqua : na)
//Inside and Outside Bars
barcolor(insideBar() ? yellow : na )
barcolor(outsideBar() ? orange : na )
barcolor(sgb and close ? gray : na)
//============================================
//Modified - TransientZones----------------------------------------------------------- // Signal 4
//inputs
h_left = input(title="TZ_H left", type=integer, defval=6)
h_right = input(title="TZ_H right", type=integer, defval=6)
sample_period = input(title="TZ_Sample bars for % TZ", type=integer, defval=5000)
show_ptz = input(title="TZ_Show PTZ", type=bool, defval=true)
show_channel = input(title="TZ_Show channel", type=bool, defval=false)
//barCount = nz(barCount[1]) + 1
//check history and realtime PTZ
h_left_low = lowest(h_left)
h_left_high = highest(h_left)
newlow = low <= h_left_low
newhigh = high >= h_left_high
plotshape(newlow and show_ptz, style=shape.triangledown, location=location.abovebar, color=red, title="TZ_sell")
plotshape(newhigh and show_ptz, style=shape.triangleup, location=location.belowbar, color=yellow, title="TZ_buy")