안녕하세요 예스스탁입니다. input : per1(23.6),per2(50.0),per3(76.4); var : hh(0),ll(0),dd(0),tt(0); var : tl1(0),tl2(0),tl3(0); if bdate > bdate[1] then { hh = h; ll = l; dd = sdate[1]; tt = stime[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if h > hh and hh > 0 Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if l < ll and ll > 0 Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } TL_SetColor(TL1,CYAN); TL_SetSize(TL1,1); TL_SetExtRight(TL1,true); TL_SetColor(TL2,WHITE); TL_SetSize(TL2,1); TL_SetExtRight(TL2,true); TL_SetColor(TL3,RED); TL_SetSize(TL3,1); TL_SetExtRight(TL3,true); value1 = hh-(hh-ll)*(per1/100); value2 = hh-(hh-ll)*(per3/100); if crossup(c,value1) Then PlotPaintBar(H,L,"강조",MAGENTA); if CrossDown(c,value1) Then PlotPaintBar(H,L,"강조",BLUE); if c > value2 Then PlotPaintBar(H,L,"강조",MAGENTA); if c < value2 Then PlotPaintBar(H,L,"강조",BLUE); 즐거운 하루되세요 > 유선 님이 쓴 글입니다. > 제목 : 문의드립니다 > input : per1(23.6),per2(50.0),per3(76.4); var : hh(0),ll(0),dd(0),tt(0); var : tl1(0),tl2(0),tl3(0); if bdate > bdate[1] then { hh = h; ll = l; dd = sdate[1]; tt = stime[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if h > hh and hh > 0 Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } if l < ll and ll > 0 Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); tl1 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); } TL_SetColor(TL1,CYAN); TL_SetSize(TL1,1); TL_SetExtRight(TL1,true); TL_SetColor(TL2,WHITE); TL_SetSize(TL2,1); TL_SetExtRight(TL2,true); TL_SetColor(TL3,RED); TL_SetSize(TL3,1); TL_SetExtRight(TL3,true); value1 = hh-(hh-ll)*(per1/100); value2 = hh-(hh-ll)*(per3/100); if crossup(c,value1) Then PlotPaintBar(H,L,"강조",MAGENTA); if CrossDown(c,value1) Then PlotPaintBar(H,L,"강조",BLUE); if crossup(c,value2) Then PlotPaintBar(H,L,"강조",MAGENTA); if CrossDown(c,value2) Then PlotPaintBar(H,L,"강조",BLUE); 위수식에서 강조식이 크로스되는 부분만나오는데 50프로상승돌파시 봉마다 레드섹이다나오게 ,반대로 50프로 하락시블루색이다나오게,~~~~미리감사드립니다