안녕하세요 예스스탁입니다. 추가하신 수식이 기존수식에서는 없는 변수가 사용되어 있고 수정해 드리기 어렵습니다. 모두 지우고 매수구간과 매도구간에 선의 최고와 최저가까지 박스로 표시해 드립니다. 아래식 기준으로 수정해 보시기 바랍니다. input : length(28),mult(5.0),showLabels(true),useClose(true),highlightState(true); var : ATrv(0),longStop(0),longStopprev(0),shortStop(0),shortStopPrev(0); var : dir(1),longcolor(Red),shortcolor(Blue),tx(0); var : Tsl(0),linecolor(0); var : hv(0),lv(0),dv(0),tv(0),box(0); atrv = mult * atr(length); longStop = IFf(useClose , highest(close, length) , highest(h,length)) - atrv; longStopPrev = longStop[1]; longStop = iff(close[1] > longStopPrev , max(longStop, longStopPrev) , longStop); shortStop = IFf(useClose , lowest(close, length) , lowest(L,length)) + atrv; shortStopPrev = shortStop[1]; shortStop = iff(close[1] < shortStopPrev , min(shortStop, shortStopPrev) , shortStop); dir = iff(close > shortStopPrev , 1 ,iff( close < longStopPrev , -1 , dir)); IF dir == 1 Then { plot1(longStop,"Long Stop",longColor); NoPlot(2); } Else { NoPlot(1); plot2(shortStop,"Short Stop",shortColor); } if dir == 1 and dir[1] == -1 Then { tx = Text_New(sDate,sTime,longStop,"▲"); Text_SetStyle(tx,2,0); Text_SetColor(tx,longcolor); Text_setsize(Tx,25); } if dir == -1 and dir[1] == 1 Then { tx = Text_New(sDate,sTime,shortStop,"▼"); Text_SetStyle(tx,2,1); Text_SetColor(tx,shortcolor); Text_setsize(Tx,25); } if dir == 1 Then { if dir != dir [1] Then { box = Box_New(sDate,sTime,longStop,NextBarSdate,NextBarStime,longStop); Box_SetColor(box,Red); Box_SetFill(box,true); } Else { Box_SetEnd(box,NextBarSdate,NextBarStime,longStop); } } if dir == -1 Then { if dir != dir [1] Then { box = Box_New(sDate,sTime,shortStop,NextBarSdate,NextBarStime,shortStop); Box_SetColor(box,Blue); Box_SetFill(box,true); } Else { Box_SetEnd(box,NextBarSdate,NextBarStime,shortStop); } } 즐거운 하루되세요 > 비듬싸순 님이 쓴 글입니다. > 제목 : 부탁 드립니다 > 항상 노고에 감사 드리며 다름이 아니라 chandelier Exit 에 박스처리를 하려했는데...짜집기 오류가되서 수정 부탁드립니다 input : length(28),mult(5.0),showLabels(true),useClose(true),highlightState(true); var : ATrv(0),longStop(0),longStopprev(0),shortStop(0),shortStopPrev(0); var : dir(1),longcolor(Red),shortcolor(Blue),tx(0); var : Tsl(0),linecolor(0); var : hv(0),lv(0),dv(0),tv(0),box(0),tx(0); atrv = mult * atr(length); longStop = IFf(useClose , highest(close, length) , highest(h,length)) - atrv; longStopPrev = longStop[1]; longStop = iff(close[1] > longStopPrev , max(longStop, longStopPrev) , longStop); shortStop = IFf(useClose , lowest(close, length) , lowest(L,length)) + atrv; shortStopPrev = shortStop[1]; shortStop = iff(close[1] < shortStopPrev , min(shortStop, shortStopPrev) , shortStop); dir = iff(close > shortStopPrev , 1 ,iff( close < longStopPrev , -1 , dir)); IF dir == 1 Then { plot1(longStop,"Long Stop",longColor); NoPlot(2); } Else { NoPlot(1); plot2(shortStop,"Short Stop",shortColor); } if dir == 1 and dir[1] == -1 Then { tx = Text_New(sDate,sTime,longStop,"▲"); Text_SetStyle(tx,2,0); Text_SetColor(tx,longcolor); Text_setsize(Tx,25); } if dir == -1 and dir[1] == 1 Then { tx = Text_New(sDate,sTime,shortStop,"▼"); Text_SetStyle(tx,2,1); Text_SetColor(tx,shortcolor); Text_setsize(Tx,25); } if Long Stop == 1 Then if Long Stop !=Long Stop [1] Then { if hv-lv < 0.5 Then Text_Delete(tx); Else Text_SetSize(tx,15); hv = Tsl; lv = Tsl; dv = sDate; tv = sTime; box = Box_New(sDate,sTime,hv,NextBarSdate,NextBarStime,lv); tx = Text_New(NextBarSdate,NextBarStime,hv,NumToStr(hv-lv,2)); Text_SetStyle(tx,2,1); Text_SetSize(tx,20); } Else { if Tsl > hv Then hv = Tsl; if Tsl < lv Then lv = Tsl; Box_SetBegin(box,dv,tv,hv); Box_SetEnd(box,NextBarSdate,NextBarStime,lv); Box_SetColor(box,Red); Box_SetFill(box,true); Text_SetString(tx,NumToStr(hv-lv,2)); Text_SetLocation(tx,NextBarSdate,NextBarStime,hv); } } if Short Stop == -1 Then { if Short Stop != Short Stop[1] Then { if hv-lv < 0.5 Then Text_Delete(tx); Else Text_SetSize(tx,15); hv = Tsl; lv = Tsl; dv = sDate; tv = sTime; box = Box_New(sDate,sTime,hv,NextBarSdate,NextBarStime,lv); tx = Text_New(NextBarSdate,NextBarStime,hv,NumToStr(hv-lv,2)); Box_SetColor(box,Blue); Box_SetFill(box,true); Text_SetStyle(tx,2,1); Text_SetSize(tx,20); } Else { if Tsl > hv Then hv = Tsl; if Tsl < lv Then lv = Tsl; Box_SetBegin(box,dv,tv,hv); Box_SetEnd(box,NextBarSdate,NextBarStime,lv); Text_SetString(tx,NumToStr(hv-lv,2)); Text_SetLocation(tx,NextBarSdate,NextBarStime,hv); } }