Pin Bar Indicator

//@version=2
study("Pin Bar Indicator",overlay=true)

//PIN BAR
body = abs(close-open)
upshadow = open>close?(high-open):(high-close)
downshadow = open>close?(close-low):(open-low)
pinbar_h = close[1]>open[1]?(body[1]>body?(upshadow>0.5*body?(upshadow>2*downshadow?1:0):0):0):0
pinbar_l = open[1]>close[1]?(body[1]>body?(downshadow>0.5*body?(downshadow>2*upshadow?1:0):0):0):0
plotshape(pinbar_h,style=shape.triangledown,color=red)
plotshape(pinbar_l,style=shape.triangleup,color=lime,location=location.belowbar)
plotchar(pinbar_h,text="BEARISH PINBAR",char="",color=red)
plotchar(pinbar_l,text="BULLISH PINBAR",char="",color=lime,location=location.belowbar)