안녕하세요 예스스탁입니다. 현재구간이 도지이면 직전구간 양봉이나 음봉크기 그대로 그리게 수정해 드립니다. input : N(15),상(1),하(1); var : S1(0),D1(0),TF(0),box(0),idx(0),T(0),T1(0),T2(0),tx(0); var : oo(0),hh(0),ll(0),clr(0),ii(0),TL(0); var : bc(0),bch(0),txx(0),dd(0),tt(0),oo1(0),cc1(0),clr1(0); Plot1(c); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; idx = 0; } Else idx = idx+1; if D1 > 0 then { TF = idx%N; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then { oo = O; hh = H; ll = L; dd = sdate; tt = sTime; box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c); ii = 1; if oo[1] != c[1] Then { oo1 = oo[1]; cc1 = c[1]; clr1 = clr[1]; } var1 = sDate[1]; var2 = stime[1]; var11 = var1[1]; var21 = Var2[1]; if C[1] > OO[1] Then T = 1; if C[1] < OO[1] Then { T = -1; bc = C[1]; bch = DayHigh(0)[1]; } if T != T[1] Then { Text_Delete(tx); if T == 1 Then { TL_Delete(TL); TL= TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL,Gold); TL_SetSize(TL,3); tx = Text_New(sDate[1],sTime[1],OO[1]-PriceScale*1.5,"●"); Text_SetStyle(tx,2,2); Text_SetColor(tx,Magenta); Text_SetSize(tx,22); } if T == -1 Then { tx = Text_New(sDate[1],sTime[1],OO[1]+PriceScale*1.3,"●"); Text_SetStyle(tx,2,2); Text_SetColor(tx,Green); Text_SetSize(tx,22); } if T == 1 Then { value1 = bc; Value2 = value1[1]; Value3 = bch; if value1 <= Value2+PriceScale*상 and value1 >= Value2-PriceScale*하 and value1 <= Value3-0.7 Then { Text_Delete(txx); txx = Text_New(sDate[1],sTime[1],OO[1]-PriceScale*1.5,"●"); Text_SetStyle(txx,2,2); Text_SetColor(txx,Cyan); Text_SetSize(txx,30); } } } } Else { ii = ii +1; if h > hh Then hh = h; if l < ll Then ll = l; if C > oo Then clr = Red; else if C < oo Then clr = Blue; Else clr = Green; if C != OO Then { Box_SetBegin(box,dd,tt,oo); Box_SetEnd(box,NextBarSdate,NextBarStime,C); Box_SetColor(box,clr); } Else { Box_SetBegin(box,dd,tt,oo1); Box_SetEnd(box,NextBarSdate,NextBarStime,CC1); Box_SetColor(box,clr1); } Box_SetSize(box,1); Box_SetFill(box,true,20); } } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 타주기 시종 선그래프 > input : N(15),상(1),하(1); var : S1(0),D1(0),TF(0),box(0),idx(0),T(0),T1(0),T2(0),tx(0); var : oo(0),hh(0),ll(0),clr(0),ii(0),TL(0); var : bc(0),bch(0),txx(0); Plot1(c); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; idx = 0; } Else idx = idx+1; if D1 > 0 then { TF = idx%N; if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then { oo = O; hh = H; ll = L; box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c); ii = 1; var1 = sDate[1]; var2 = stime[1]; var11 = var1[1]; var21 = Var2[1]; if C[1] > OO[1] Then T = 1; if C[1] < OO[1] Then { T = -1; bc = C[1]; bch = DayHigh(0)[1]; } if T != T[1] Then { Text_Delete(tx); if T == 1 Then { TL_Delete(TL); TL= TL_New(sDate,sTime,0,sDate,sTime,99999); TL_SetColor(TL,Gold); TL_SetSize(TL,3); tx = Text_New(sDate[1],sTime[1],OO[1]-PriceScale*1.5,"●"); Text_SetStyle(tx,2,2); Text_SetColor(tx,Magenta); Text_SetSize(tx,22); } if T == -1 Then { tx = Text_New(sDate[1],sTime[1],OO[1]+PriceScale*1.3,"●"); Text_SetStyle(tx,2,2); Text_SetColor(tx,Green); Text_SetSize(tx,22); } if T == 1 Then { value1 = bc; Value2 = value1[1]; Value3 = bch; if value1 <= Value2+PriceScale*상 and value1 >= Value2-PriceScale*하 and value1 <= Value3-0.7 Then { Text_Delete(txx); txx = Text_New(sDate[1],sTime[1],OO[1]-PriceScale*1.5,"●"); Text_SetStyle(txx,2,2); Text_SetColor(txx,Cyan); Text_SetSize(txx,30); } } } } Else { ii = ii +1; if h > hh Then hh = h; if l < ll Then ll = l; Box_SetEnd(box,sDate,sTime,C); } if C > oo Then clr = Red; else if C < oo Then clr = Blue; Else clr = Green; Box_SetColor(box,clr); Box_SetSize(box,1); Box_SetFill(box,true,255); } 꼬리를 삭제하고 시가와 종가만(몸통) 박스로 표현한 타주기 수식입니다. 박스 대신, 꼬리를 삭제한 시가와 종가를, 각기 상하 몸통 크기만큼 수직으로 하나씩 잇는 계단형 (꺽은)선그래프로 변경. 하락 시작점에서 끝 지점까지 사선으로 연결이 아니고, 박스형 선그래프입니다. 하락색은 수직으로 blue, 하락 중 도지는 수평으로 blue. 상승색은 수직으로 red, 상승 중 도지는 수평으로 red. 감사합니다.