CM_Heikin-Ashi_Candlesticks_V1_Tops_Bottoms

// Plots Color Of Heikin-Ashi Bars while Viewing Candlestics or Bars
//Works on Candlesticks and OHLC Bars - Does now work on Heikin-Ashi bars - But I have verified its accuracy
// Created By User ChrisMoody 1-30-2014 with help from Alex in Tech Support

study(title = "CM_Heikin-Ashi_Candlesticks_V1", shorttitle="CM_Heik-Candles",overlay=true)

haclose = ((open + high + low + close)/4)//[smoothing]
haopen = na(haopen[1]) ? (open + close)/2 : (haopen[1] + haclose[1]) / 2

heikUpColor() => haclose > haopen
heikDownColor() => haclose <= haopen

barcolor(heikUpColor() ? aqua: heikDownColor() ? red : na)

pctP = input(66, minval=1, maxval=99, title="Percentage Input For PinBars, What % The Wick Of Candle Has To Be")
pblb = input(6, minval=1, maxval=100, title="PinBars Look Back Period To Define The Trend of Highs and Lows")

spb = input(false, title="Show Pin Bars (Top/Bottom)?")


//PBar Percentages
pctCp = pctP * .01
pctCPO = 1 - pctCp


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

//PinBars
barcolor(pBarUp() ? lime : na)
barcolor(pBarDn() ? purple : na)



plotshape(pBarUp(), title= "bottom",location=location.belowbar, color=lime, style=shape.diamond, text="BOTTOM")


plotshape(pBarDn(),  title= "top", location=location.abovebar, color=red, style=shape.diamond, text="TOP")