안녕하세요 예스스탁입니다. input : P(5),굵기(2); var : T(0),d1(0),t1(0),hh(0),ll(0); var : tl1(0),tl2(0),tl3(0),tl4(0),tl5(0),tl6(0),tl7(0); var1 = ma(c,P); if var1 > var1[1] Then T = 1; if var1 < var1[1] Then T = -1; if T == -1 and T[1] != -1 Then { d1 = sdate[1]; t1 = stime[1]; hh = var1[1]; ll = var1[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(d1,t1,hh,sdate,stime,hh); TL2 = TL_New(d1,t1,hh-(hh-LL)*0.25,sdate,stime,hh-(hh-LL)*0.25); TL3 = TL_New(d1,t1,hh-(hh-LL)*0.50,sdate,stime,hh-(hh-LL)*0.50); TL4 = TL_New(d1,t1,hh-(hh-LL)*0.75,sdate,stime,hh-(hh-LL)*0.75); TL5 = TL_New(d1,t1,ll,sdate,stime,ll); TL6 = TL_New(d1,t1,hh,d1,t1,ll); TL7 = TL_New(sdate,stime,hh,sdate,stime,ll); TL_SetExtRight(TL1,TRUE); TL_SetExtRight(TL2,TRUE); TL_SetExtRight(TL3,TRUE); TL_SetExtRight(TL4,TRUE); TL_SetExtRight(TL5,TRUE); TL_SetSize(tl1,굵기); TL_SetSize(tl2,굵기); TL_SetSize(tl3,굵기); TL_SetSize(tl4,굵기); TL_SetSize(tl5,굵기); TL_SetSize(tl6,굵기); TL_SetSize(tl7,굵기); } if T == -1 Then { if var1 > hh Then hh = var1; if var1 < ll Then ll = var1; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL1 = TL_New(d1,t1,hh,sdate,stime,hh); TL2 = TL_New(d1,t1,hh-(hh-LL)*0.25,sdate,stime,hh-(hh-LL)*0.25); TL3 = TL_New(d1,t1,hh-(hh-LL)*0.50,sdate,stime,hh-(hh-LL)*0.50); TL4 = TL_New(d1,t1,hh-(hh-LL)*0.75,sdate,stime,hh-(hh-LL)*0.75); TL5 = TL_New(d1,t1,ll,sdate,stime,ll); TL6 = TL_New(d1,t1,hh,d1,t1,ll); TL7 = TL_New(sdate,stime,hh,sdate,stime,ll); TL_SetExtRight(TL1,TRUE); TL_SetExtRight(TL2,TRUE); TL_SetExtRight(TL3,TRUE); TL_SetExtRight(TL4,TRUE); TL_SetExtRight(TL5,TRUE); TL_SetSize(tl1,굵기); TL_SetSize(tl2,굵기); TL_SetSize(tl3,굵기); TL_SetSize(tl4,굵기); TL_SetSize(tl5,굵기); TL_SetSize(tl6,굵기); TL_SetSize(tl7,굵기); } if T == 1 and T[1] != 1 Then { d1 = sdate[1]; t1 = stime[1]; hh = var1[1]; ll = var1[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(d1,t1,hh,sdate,stime,hh); TL2 = TL_New(d1,t1,hh-(hh-LL)*0.25,sdate,stime,hh-(hh-LL)*0.25); TL3 = TL_New(d1,t1,hh-(hh-LL)*0.50,sdate,stime,hh-(hh-LL)*0.50); TL4 = TL_New(d1,t1,hh-(hh-LL)*0.75,sdate,stime,hh-(hh-LL)*0.75); TL5 = TL_New(d1,t1,ll,sdate,stime,ll); TL6 = TL_New(d1,t1,hh,d1,t1,ll); TL7 = TL_New(sdate,stime,hh,sdate,stime,ll); TL_SetExtRight(TL1,TRUE); TL_SetExtRight(TL2,TRUE); TL_SetExtRight(TL3,TRUE); TL_SetExtRight(TL4,TRUE); TL_SetExtRight(TL5,TRUE); TL_SetSize(tl1,굵기); TL_SetSize(tl2,굵기); TL_SetSize(tl3,굵기); TL_SetSize(tl4,굵기); TL_SetSize(tl5,굵기); TL_SetSize(tl6,굵기); TL_SetSize(tl7,굵기); } if T == 1 Then { if var1 > hh Then hh = var1; if var1 < ll Then ll = var1; TL_Delete(tl1); TL_Delete(tl2); TL_Delete(tl3); TL_Delete(tl4); TL_Delete(tl5); TL_Delete(tl6); TL_Delete(tl7); TL1 = TL_New(d1,t1,hh,sdate,stime,hh); TL2 = TL_New(d1,t1,hh-(hh-LL)*0.25,sdate,stime,hh-(hh-LL)*0.25); TL3 = TL_New(d1,t1,hh-(hh-LL)*0.50,sdate,stime,hh-(hh-LL)*0.50); TL4 = TL_New(d1,t1,hh-(hh-LL)*0.75,sdate,stime,hh-(hh-LL)*0.75); TL5 = TL_New(d1,t1,ll,sdate,stime,ll); TL6 = TL_New(d1,t1,hh,d1,t1,ll); TL7 = TL_New(sdate,stime,hh,sdate,stime,ll); TL_SetExtRight(TL1,TRUE); TL_SetExtRight(TL2,TRUE); TL_SetExtRight(TL3,TRUE); TL_SetExtRight(TL4,TRUE); TL_SetExtRight(TL5,TRUE); TL_SetSize(tl1,굵기); TL_SetSize(tl2,굵기); TL_SetSize(tl3,굵기); TL_SetSize(tl4,굵기); TL_SetSize(tl5,굵기); TL_SetSize(tl6,굵기); TL_SetSize(tl7,굵기); } PLOT1(VAR1); 즐거운 하루되세요 > 매일수익감사 님이 쓴 글입니다. > 제목 : 5일이평선에 수평선긋기 > 무더운 날씨에 수고가 많습니다. 친철하고 빠른회신 항상 고맙게 생각하고 있습니다. 첨부파일과 같이 5일 이평선 최고점(저항선)/25%/50%/75%/ 최저점(지지선) 수평 및 수직선으로 표현하고자 합니다.(수평선 굵기 조정가능 하도록 부탁드립니다) 수고하십시요. ^_^