안녕하세요 예스스탁입니다. input : 타주기분(5),표시갯수(5); var : S1(0),D1(0),TM(0),TF(0),dd(0),tt(0); var : oo(0),hh(0),ll(0),cc(0),clr(0),ii(0); var : cnt(0); Array : box[10](0),Htl[10](0),Ltl[10](0),TL[10](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%타주기분; if Bdate != Bdate[1] or (Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or (Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or (Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then { dd = sDate; tt = sTime; oo = O; hh = H; ll = L; ii = 1; for cnt = 9 DownTo 1 { box[cnt] = box[cnt-1]; htl[cnt] = htl[cnt-1]; ltl[cnt] = ltl[cnt-1]; tl[cnt] = tl[cnt-1]; } box[0] = Box_New(dd,sTime,oo,NextBarSdate,NextBarStime,c); Box_Delete(Box[표시갯수]); htl[0] = TL_New(dd,tt,max(C,oo),sDate,sTime,hh); ltl[0] = TL_New(dd,tt,min(C,oo),sDate,sTime,ll); TL_SetSize(htl[0],2); TL_SetSize(ltl[0],2); TL_Delete(htl[표시갯수]); TL_Delete(ltl[표시갯수]); tl[0] = TL_New(dd,tt,c,NextBarSdate,NextBarStime,c); TL_SetSize(tl[0],2); TL_SetExtRight(tl[0],true); TL_SetDrawMode(tl[0],0); TL_Delete(tl[표시갯수]); } Else { ii = ii +1; if h > hh Then hh = h; if l < ll Then ll = l; var1 = Round(ii/2,1); Box_SetEnd(box[0],sDate,sTime,C); TL_SetBegin(htl[0],sDate[var1],sTime[var1],max(c,oo)); TL_SetEnd(htl[0],sDate[var1],sTime[var1],hh); TL_SetBegin(ltl[0],sDate[var1],sTime[var1],min(c,oo)); TL_SetEnd(ltl[0],sDate[var1],sTime[var1],ll); TL_SetBegin(tl[0],dd,tt,c); TL_Setend(tl[0],sdate,sTime,c); } if C > oo Then clr = Red; else if C < oo Then clr = Blue; Else clr = Green; Box_SetColor(box[0],clr); Box_SetSize(box[0],5); Box_SetFill(box[0],True,100);//내부채움 TL_SetColor(htl[0],clr); TL_SetColor(ltl[0],clr); TL_SetColor(tl[0],clr); } 즐거운 하루되세요 > 파생돌이 님이 쓴 글입니다. > 제목 : 부탁드립니다 > 수고하십니다 92323번호 재질문 입니다 5개 BOX색의 종가 수평선 수식부탁드립니다