안녕하세요 예스스탁입니다. 1 input : length(20); input : len2(10); input : showsignals(true); input : highlighting(true); var : upper(0),lower(0); lower = lowest(L,length); upper = highest(H,length); plot1(upper, "Upper"); plot2(lower, "Lower"); var : up(0),down(0),sup(0),sdown(0); var : k1(0),k2(0),k3(0),k4(0),i1(-1),i2(-1); up=highest(high,length); down=lowest(low,length); sup=highest(high,len2); sdown=lowest(low,len2); if high >= up[1] Then i1 = 0; Else { if i1 >= 0 Then i1 = i1+1; } if Low <= down[1] Then i2 = 0; Else { if i2 >= 0 Then i2 = i2+1; } K1=iff(i1 <=i2, down , up); K2=iff(i1 <= i2,sdown,sup); K3=iff(close>K1,down,nan); K4=iff(close<K1,up,nan); plot3(K1,"Trend Line",red); plot4(K2,"Exit Line",blue); var : buySignal(False),sellSignal(False),buyExit(False),sellExit(False); var : O1(-1),O2(-1),O3(-1),O4(-1); var : E1(-1),E2(-1),E3(-1),E4(-1); var : tx1(0),tx2(0),tx3(0),tx4(0); var : tx5(0),tx6(0),tx7(0),tx8(0); buySignal=high==upper[1] or CrossUp(high,upper[1]); sellSignal = low==lower[1] or CrossUp(lower[1],low); buyExit=low==sdown[1] or CrossUp(sdown[1],low); sellExit = high==sup[1] or CrossUp(high,sup[1]); if BuySignal == true Then var1 = Index; if sellSignal == true Then var2 = Index; if buyExit == true Then var3 = Index; if sellExit == true Then var4 = Index; O1= IFf(var1 > 0,Index-var1,-1); O2= IFf(var2 > 0,Index-var2,-1); O3= IFf(var3 > 0,Index-var3,-1); O4= IFf(var4 > 0,Index-var4,-1); if BuySignal[1] == true Then var5 = Index; if sellSignal[1] == true Then var6 = Index; if buyExit[1] == true Then var7 = Index; if sellExit[1] == true Then var8 = Index; E1= IFf(var5 > 0,Index-var5,-1); E2= IFf(var6 > 0,Index-var6,-1); E3= IFf(var7 > 0,Index-var7,-1); E4= IFf(var8 > 0,Index-var8,-1); if buySignal and O3<O1[1] Then { tx1 = Text_New(sDate,sTime,L,"★"); Text_SetStyle(tx1,2,0); Text_SetColor(tx1,Red); Text_SetSize(tx1,20); } if sellSignal and O4<O2[1] Then { tx3 = Text_New(sDate,sTime,H,"★"); Text_SetStyle(tx3,2,1); Text_SetColor(tx3,Green); Text_SetSize(tx3,20); } 2 var : T(0),dd(0),tt(0),hh(0),ll(0); var : box(0),tx1(0),tx2(0); var1 = ma(C,5); var2 = ma(C,20); if CrossUp(var1,var2) Then { T = 1; dd = sDate; tt = sTime; hh = h; ll = l; box = Box_New(dd,tt,hh,NextBarSdate,NextBarStime,ll); Box_SetColor(box,rgb(255, 184, 102)); Box_SetFill(box,true); } Else if CrossDown(var1,var2) Then { T = -1; dd = sDate; tt = sTime; hh = h; ll = l; box = Box_New(dd,tt,hh,NextBarSdate,NextBarStime,ll); Box_SetColor(box,rgb(102, 184, 255)); Box_SetFill(box,true); } else { if T != 0 Then { if h > hh Then hh = h; if l < ll Then ll = l; Box_SetBegin(box,dd,tt,hh); Box_SetEnd(box,NextBarSdate,NextBarStime,ll); } } 즐거운 하루되세요 > 어떤하루 님이 쓴 글입니다. > 제목 : 부탁드립니다. > ★이 봉 바로 위. 아래에 표시 될 수 있도록 수정 부탁드립니다. input : length(20); input : len2(10); input : showsignals(true); input : highlighting(true); var : upper(0),lower(0); lower = lowest(L,length); upper = highest(H,length); plot1(upper, "Upper"); plot2(lower, "Lower"); var : up(0),down(0),sup(0),sdown(0); var : k1(0),k2(0),k3(0),k4(0),i1(-1),i2(-1); up=highest(high,length); down=lowest(low,length); sup=highest(high,len2); sdown=lowest(low,len2); if high >= up[1] Then i1 = 0; Else { if i1 >= 0 Then i1 = i1+1; } if Low <= down[1] Then i2 = 0; Else { if i2 >= 0 Then i2 = i2+1; } K1=iff(i1 <=i2, down , up); K2=iff(i1 <= i2,sdown,sup); K3=iff(close>K1,down,nan); K4=iff(close<K1,up,nan); plot3(K1,"Trend Line",red); plot4(K2,"Exit Line",blue); var : buySignal(False),sellSignal(False),buyExit(False),sellExit(False); var : O1(-1),O2(-1),O3(-1),O4(-1); var : E1(-1),E2(-1),E3(-1),E4(-1); var : tx1(0),tx2(0),tx3(0),tx4(0); var : tx5(0),tx6(0),tx7(0),tx8(0); buySignal=high==upper[1] or CrossUp(high,upper[1]); sellSignal = low==lower[1] or CrossUp(lower[1],low); buyExit=low==sdown[1] or CrossUp(sdown[1],low); sellExit = high==sup[1] or CrossUp(high,sup[1]); if BuySignal == true Then var1 = Index; if sellSignal == true Then var2 = Index; if buyExit == true Then var3 = Index; if sellExit == true Then var4 = Index; O1= IFf(var1 > 0,Index-var1,-1); O2= IFf(var2 > 0,Index-var2,-1); O3= IFf(var3 > 0,Index-var3,-1); O4= IFf(var4 > 0,Index-var4,-1); if BuySignal[1] == true Then var5 = Index; if sellSignal[1] == true Then var6 = Index; if buyExit[1] == true Then var7 = Index; if sellExit[1] == true Then var8 = Index; E1= IFf(var5 > 0,Index-var5,-1); E2= IFf(var6 > 0,Index-var6,-1); E3= IFf(var7 > 0,Index-var7,-1); E4= IFf(var8 > 0,Index-var8,-1); if buySignal and O3<O1[1] Then { tx1 = Text_New(sDate,sTime,down,"★"); Text_SetStyle(tx1,2,0); Text_SetColor(tx1,Red); Text_SetSize(tx1,20); } if sellSignal and O4<O2[1] Then { tx3 = Text_New(sDate,sTime,up,"★"); Text_SetStyle(tx3,2,1); Text_SetColor(tx3,Green); Text_SetSize(tx3,20); } 아래 수식은 박스에 생기는 위아래 숫자를 없애주시고 반대로 교차되는 수식도 넣어서 하늘색 박스가 생기도록 부탁드립니다 var : T(0),dd(0),tt(0),hh(0),ll(0); var : box(0),tx1(0),tx2(0); var1 = ma(C,5); var2 = ma(C,20); if CrossUp(var1,var2) Then { T = 1; dd = sDate; tt = sTime; hh = h; ll = l; box = Box_New(dd,tt,hh,NextBarSdate,NextBarStime,ll); Box_SetColor(box,rgb(255, 184, 102)); Box_SetFill(box,true); tx1 = Text_New(sDate,sTime,hh,NumToStr(hh,2)); Text_SetStyle(tx1,2,1); tx2 = Text_New(sDate,sTime,ll,NumToStr(hh,2)); Text_SetStyle(tx2,2,0); } if CrossDown(var1,var2) Then T = -1; if T == 1 Then { if h > hh Then hh = h; if l < ll Then ll = l; Box_SetBegin(box,dd,tt,hh); Box_SetEnd(box,NextBarSdate,NextBarStime,ll); Text_SetString(tx1,NumToStr(hh,2)); Text_SetLocation(tx1,sDate,sTime,hh); Text_SetString(tx2,NumToStr(ll,2)); Text_SetLocation(tx2,sDate,sTime,ll); }