First Charting Super Trend
study(title="First Charting Super Trend", overlay = true) Period = input(21, minval=1) Multiplier = input(5, minval=1) CCIPeriod = 50 xATR = atr(Period) nLoss = Multiplier * xATR xCCI0 = cci((close+high+low)/3,CCIPeriod) xCCI1 = cci((close[1]+high[1]+low[1])/3,CCIPeriod) xSTLine = iff(xCCI0>0, max(nz(xSTLine[1]), low - nLoss), iff(xCCI0<0, min(nz(xSTLine[1]), high + nLoss), na)) xSTLine1=xSTLine xSTLine2=xCCI0>0 ? xSTLine : na plot(xSTLine1, color=red ,style = linebr,linewidth =2, title="SuperTrend1_Dn") plot(xSTLine2, color=lime,style = linebr,linewidth =2, title="SuperTrend1_Up") //--