안녕하세요 예스스탁입니다. input : per1(23.6),per2(38.2),per3(50.0),per4(61.8),per5(76.4); var : hh(0),ll(0),h1(0),l1(0),dd(0),tt(0),d1(0),t1(0); var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0); if bdate > bdate[1]-1 then { hh = h; ll = l; h1 = hh[1]; l1 = ll[1]; dd = sdate[1]; tt = stime[1]; d1 = dd[1]; t1 = tt[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,ll,sdate,stime,ll); } if h > hh Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,ll,sdate,stime,ll); } if l < ll Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,ll,sdate,stime,ll); } TL_SetExtRight(tl1,true); Tl_SetColor(tl1,BLUE); TL_SetExtRight(tl2,true); Tl_SetColor(tl2,BLUE); TL_SetExtRight(tl3,true); TL_SetExtRight(tl4,true); Tl_SetColor(tl4,WHITE); TL_SetExtRight(tl5,true); TL_SetExtRight(tl6,true); Tl_SetColor(tl6,MAGENTA); TL_SetExtRight(tl7,true); Tl_SetColor(tl7,MAGENTA); value1 = hh-(hh-ll)*(per1/100); value2 = hh-(hh-ll)*(per5/100); if crossup(c,value1) Then PlotPaintBar(H,L,"강조",RED); if CrossDown(c,value1) Then PlotPaintBar(H,L,"강조",BLUE); if crossup(c,value2) Then PlotPaintBar(H,L,"강조",RED); if CrossDown(c,value2) Then PlotPaintBar(H,L,"강조",BLUE); 즐거운 하루되세요 > 장군 님이 쓴 글입니다. > 제목 : 문의드립니다 > input : per1(23.6),per2(38.2),per3(50.0),per4(61.8),per5(76.4); var : hh(0),ll(0),h1(0),l1(0),dd(0),tt(0),d1(0),t1(0); var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0); if bdate > bdate[1]-1 then { hh = h; ll = l; h1 = hh[1]; l1 = ll[1]; dd = sdate[1]; tt = stime[1]; d1 = dd[1]; t1 = tt[1]; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,ll,sdate,stime,ll); } if h > hh Then { hh = h; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,ll,sdate,stime,ll); } if l < ll Then { ll = l; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); tl1 = TL_New(dd,tt,hh,sdate,stime,hh); tl2 = TL_New(dd,tt,hh-(hh-ll)*(per1/100),sdate,stime,hh-(hh-ll)*(per1/100)); tl3 = TL_New(dd,tt,hh-(hh-ll)*(per2/100),sdate,stime,hh-(hh-ll)*(per2/100)); tl4 = TL_New(dd,tt,hh-(hh-ll)*(per3/100),sdate,stime,hh-(hh-ll)*(per3/100)); tl5 = TL_New(dd,tt,hh-(hh-ll)*(per4/100),sdate,stime,hh-(hh-ll)*(per4/100)); tl6 = TL_New(dd,tt,hh-(hh-ll)*(per5/100),sdate,stime,hh-(hh-ll)*(per5/100)); tl7 = TL_New(dd,tt,ll,sdate,stime,ll); } TL_SetExtRight(tl1,true); Tl_SetColor(tl1,BLUE); TL_SetExtRight(tl2,true); Tl_SetColor(tl2,BLUE); TL_SetExtRight(tl3,true); TL_SetExtRight(tl4,true); Tl_SetColor(tl4,WHITE); TL_SetExtRight(tl5,true); TL_SetExtRight(tl6,true); Tl_SetColor(tl6,MAGENTA); TL_SetExtRight(tl7,true); Tl_SetColor(tl7,MAGENTA); 위수식으로 76.4프로 선에서 상승시레드색 하락시 블루색 23.6프로 선에서 상승스레드색 하락시 블루색 으로 강조식 부탁드립니다~~