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")
//--