이전 문의드린 수식중 아래의 수식을 적용했더니 선의 색상이 파란색으로만 나오고 
green과 red는 구현되지 않습니다. 또한 선이 직선처럼 나와야 하는데 휩소처럼 나옵니다.
다시한번부탁드립니다.

==========================
study(title="Average True Range Trailing Stops Strategy, by Sylvain Vervoort", overlay = true)
nATRPeriod = input(5)
nATRMultip = input(3.5)
xATR = atr(nATRPeriod)
nLoss = nATRMultip * xATR
xATRTrailingStop = iff(close > nz(xATRTrailingStop[1], 0) and close[1] > nz(xATRTrailingStop[1], 0), max(nz(xATRTrailingStop[1]), close - nLoss),
                    iff(close < nz(xATRTrailingStop[1], 0) and close[1] < nz(xATRTrailingStop[1], 0), min(nz(xATRTrailingStop[1]), close + nLoss), 
                        iff(close > nz(xATRTrailingStop[1], 0), close - nLoss, close + nLoss)))
pos =      iff(close[1] < nz(xATRTrailingStop[1], 0) and close > nz(xATRTrailingStop[1], 0), 1,
          iff(close[1] > nz(xATRTrailingStop[1], 0) and close < nz(xATRTrailingStop[1], 0), -1, nz(pos[1], 0))) 
color = pos == -1 ? red: pos == 1 ? green : blue 
plot(xATRTrailingStop, color=color, title="ATR Trailing Stop")

===============================================
작성해주신 수식

input : nATRPeriod(5);
input : nATRMultip(3.5);
var : xATR(0),nLoss(0),xATRTrailingStop(0),ps(0),nz(0),color(0);

xATR = atr(nATRPeriod);
nLoss = nATRMultip * xATR;

nz = iff(xATRTrailingStop[1] == true,0,xATRTrailingStop[1]);

xATRTrailingStop = iff(close > nz and close[1] > nz, max(nz, close - nLoss),
                    iff(close < nz and close[1] < nz, min(nz, close + nLoss), 
                        iff(close > nz, close - nLoss, close + nLoss)));

ps =      iff(close[1] < nz and close > nz, 1,
          iff(close[1] > nz and close < nz, -1, iff(isnan(ps[1]) ==true, 0,ps[1]))) ;

color = iff(ps == -1 , red, iff(ps == 1 , green , blue));

plot1(xATRTrailingStop, "ATR Trailing Stop",color);

==================
항상 감사드립니다. 수고하세요!!!