Consecutive Candle Count

study("Consecutive Candle Count")
barup = close > close[1]
bardown = close < close[1]
plot(series=barssince(barup)*-1, title="Consecutive Bars Down", color=red, style=histogram, linewidth=2)
plot(series=barssince(bardown), title="Consecutive Bars Up", color=green, style=histogram, linewidth=2)
//Adaptation of http://www.fxcmapps.com/trading-station/consecutive-bars/ from FXCM's Marketscope
//Coded by David Rodriguez, Quantitative Strategist for DailyFX.com