Trend Predictor
study(title="Prototype", shorttitle="TrendTest1", overlay=false) // Script created by Killrb13 ma10 = sma(close,10) ma20 = sma(close,20) ma50 = sma(close,50) smoothedMA = avg(ma10,ma20,ma50) cl10 = close[10] signal = (cl10-smoothedMA) signalBar = (signal-smoothedMA+close) E = signalBar[10] lineColor = iff (signalBar >= 0,green,red) plot(signalBar, color=lineColor, style=histogram, linewidth=2)