안녕하세요 예스스탁입니다. 1 input : 시작일(20160901),종료일(20161231); var : D1(0),T1(0),HH(0),LL(0),RR(0),f1(0),f2(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0); var : TL7(0),TL8(0),TL9(0),TL10(0),TL11(0),Tcond(false); if Tcond == false and sdate >= 시작일 Then{ Tcond = true; D1 = sdate; T1 = stime; HH = H; LL = L; } if Tcond == true then{ if H > HH Then HH = H; if L < LL Then LL = L; RR = (HH+LL)/2; f1 = HH-LL; f2 = RR-LL; } if Tcond == true and sdate >= 종료일 Then Tcond = false; if D1 > 0 then{ TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL1 = TL_New(D1,T1,HH,sdate,stime,HH); TL2 = TL_New(D1,T1,LL,sdate,stime,LL); TL3 = TL_New(D1,T1,RR,sdate,stime,RR); TL_SetColor(TL1,RED); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,GREEN); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL4 = TL_New(D1,T1,RR-F2*(1/6),sdate,stime,RR-F2*(1/6)); TL5 = TL_New(D1,T1,RR-F2*(2/6),sdate,stime,RR-F2*(2/6)); TL6 = TL_New(D1,T1,RR-F2*(3/6),sdate,stime,RR-F2*(3/6)); TL7 = TL_New(D1,T1,RR-F2*(4/6),sdate,stime,RR-F2*(4/6)); TL8 = TL_New(D1,T1,RR-F2*(5/6),sdate,stime,RR-F2*(5/6)); TL_Delete(TL9); TL_Delete(TL10); TL_Delete(TL11); TL9 = TL_New(D1,T1,LL-f1*0.2,sdate,stime,LL-f1*0.2); TL10 = TL_New(D1,T1,LL-f1*0.3,sdate,stime,LL-f1*0.3); TL11 = TL_New(D1,T1,LL-f1*0.5,sdate,stime,LL-f1*0.5); TL_SetColor(TL9,RED); TL_SetColor(TL10,BLUE); TL_SetColor(TL11,GREEN); } 2 var : D1(0),T1(0),HH(0),LL(0),RR(0),f1(0),f2(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0); var : TL7(0),TL8(0),TL9(0),TL10(0),TL11(0); if sdate > sdate[1]+30 Then{ D1 = sdate; T1 = stime; HH = H; LL = L; } if H > HH Then HH = H; if L < LL Then LL = L; RR = (HH+LL)/2; f1 = HH-LL; f2 = RR-LL; if D1 > 0 then{ TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL1 = TL_New(D1,T1,HH,sdate,stime,HH); TL2 = TL_New(D1,T1,LL,sdate,stime,LL); TL3 = TL_New(D1,T1,RR,sdate,stime,RR); TL_SetColor(TL1,RED); TL_SetColor(TL2,BLUE); TL_SetColor(TL3,GREEN); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL4 = TL_New(D1,T1,RR-F2*(1/6),sdate,stime,RR-F2*(1/6)); TL5 = TL_New(D1,T1,RR-F2*(2/6),sdate,stime,RR-F2*(2/6)); TL6 = TL_New(D1,T1,RR-F2*(3/6),sdate,stime,RR-F2*(3/6)); TL7 = TL_New(D1,T1,RR-F2*(4/6),sdate,stime,RR-F2*(4/6)); TL8 = TL_New(D1,T1,RR-F2*(5/6),sdate,stime,RR-F2*(5/6)); TL_Delete(TL9); TL_Delete(TL10); TL_Delete(TL11); TL9 = TL_New(D1,T1,LL-f1*0.2,sdate,stime,LL-f1*0.2); TL10 = TL_New(D1,T1,LL-f1*0.3,sdate,stime,LL-f1*0.3); TL11 = TL_New(D1,T1,LL-f1*0.5,sdate,stime,LL-f1*0.5); TL_SetColor(TL9,RED); TL_SetColor(TL10,BLUE); TL_SetColor(TL11,GREEN); } 즐거운 하루되세요 > 럭키잭팟 님이 쓴 글입니다. > 제목 : 문의드립니다 > #52654 질의 답변 감사합니다 수정 부탁드릴께요 아래수식을 특정월기간 으로수정부탁드립니다 plot로 해주시면 더욱 감사합니다 예)20160901~20161231 으로 최고가= 빨간색 최저가= 파랑색 절반가액=그린색 수정부탁드립니다 -20%선 빨강-30%파랑 -50% 그린 답변주신 수식지표또한 최고가= 빨간색 최저가= 파랑색 절반가액=그린색 수정부탁드립니다 -20%선 빨강-30%파랑 -50% 그린 var : D1(0),T1(0),HH(0),LL(0),RR(0),f1(0),f2(0); var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0); var : TL7(0),TL8(0),TL9(0),TL10(0),TL11(0); if sdate > sdate[1]+30 Then{ D1 = sdate; T1 = stime; HH = H; LL = L; } if H > HH Then HH = H; if L < LL Then LL = L; RR = (HH+LL)/2; f1 = HH-LL; f2 = RR-LL; TL_Delete(TL1); TL_Delete(TL2); TL_Delete(TL3); TL1 = TL_New(D1,T1,HH,sdate,stime,HH); TL2 = TL_New(D1,T1,LL,sdate,stime,LL); TL3 = TL_New(D1,T1,RR,sdate,stime,RR); TL_Delete(TL4); TL_Delete(TL5); TL_Delete(TL6); TL_Delete(TL7); TL_Delete(TL8); TL4 = TL_New(D1,T1,RR-F2*(1/6),sdate,stime,RR-F2*(1/6)); TL5 = TL_New(D1,T1,RR-F2*(2/6),sdate,stime,RR-F2*(2/6)); TL6 = TL_New(D1,T1,RR-F2*(3/6),sdate,stime,RR-F2*(3/6)); TL7 = TL_New(D1,T1,RR-F2*(4/6),sdate,stime,RR-F2*(4/6)); TL8 = TL_New(D1,T1,RR-F2*(5/6),sdate,stime,RR-F2*(5/6)); TL_Delete(TL9); TL_Delete(TL10); TL_Delete(TL11); TL9 = TL_New(D1,T1,LL-f1*0.2,sdate,stime,LL-f1*0.2); TL10 = TL_New(D1,T1,LL-f1*0.3,sdate,stime,LL-f1*0.3); TL11 = TL_New(D1,T1,LL-f1*0.5,sdate,stime,LL-f1*0.5);