커뮤니티
30분봉 BOX의 시간 불일치
2025-03-01 14:07:19
392
글번호 188693
첨부 이미지
그림1
수고하십니다!
1. 위 그림 파일(5분봉차트)에서 보시는 것 같이 30분Box와 선으로 그린 30분 사각형(선사작형)에서 Box는 끝나는 시간이 5분 늦게 끝나고, 선사각형은 9시 이후 부터 5분 늦게 선이 그려집니다.
2. 8시 45분에서 9시까지 Box와 선사각형 각 1개 그리고 9시 이후부터는 30분 단위로 Box와 선사각형을 30분 단위로 정확한 시간에 일치시키고 싶습니다.
감사합니다.
// 30분 Box
input : ntime1(30),PP(5);
var : SS1(0),DD1(0),TTM(0),TTF(0);
var : SM1(0),box(0), m3var(0), Bx3Higt(0), m3L(0), cnt(0);
Array : Mb30[100](0);
if Bdate != Bdate[1] Then{
SS1 = TimeToMinutes(0);
DD1 = sdate;
}
if DD1 > 0 then{
if sdate == DD1 Then
TTM = TimeToMinutes(stime)-SS1;
Else
TTM = TimeToMinutes(stime)+1440-SS1;
TTF = TTM%ntime1;
if Bdate != Bdate[1] or sTime == 90000 or // 90000
(Bdate == Bdate[1] && ntime1 > 1 && TTF < TTF[1]) or
(Bdate == Bdate[1] && ntime1 > 1 && TTM >= TTM[1]+ntime1) or
(Bdate == Bdate[1] && ntime1 == 1 && TTM > TTM[1]) Then
{
m3L = 1;
for cnt = 99 downto 1{
Mb30[cnt] = Mb30[cnt-1];
}
m3var = O;
box = box_new(sDate,sTime,m3var,NextBarSdate,NextBarStime,C);
}
else m3L = 0;
Mb30[0] = C;
Box_SetEnd(box,NextBarSdate,NextBarStime,C);
if Mb30[0] > m3var Then{
Box_SetColor(box,red );
Bx3Higt = 1;}
Else{
Box_SetColor(box,Blue);
Bx3Higt = -1;
}
Box_SetFill(box,true, 10);
}
// 30봉 선 그리기
var : TL11(0),TL12(0),TL13(0),TL14(0),idx2(-1);
var : M3date(0), M3time(0), StrtV(0), m3UD(0), mrCl(0);
if m3L == 1 Then{
idx2 = 0;
StrtV = O; //O;
M3date = sdate;
M3time = stime;
}
else{
idx2 = idx2+1;
if idx2 > 0 then{
if idx2 == 1 then{
TL11 = TL_New(sdate[1],stime[1],StrtV, sdate, stime, StrtV);
TL12 = TL_New(M3date, M3time, O, sdate, stime, C);
TL13 = TL_New(M3date, M3time, StrtV, M3date,M3time,C);
TL14 = TL_New(sdate, stime, StrtV, sdate, stime, C);
}
else {
TL_SetEnd(TL11,sdate,stime,StrtV);
TL_SetBegin(TL12,M3date, M3time,C);
TL_SetEnd( TL12,sdate,stime,C);
TL_SetBegin(TL13,M3date,M3time,StrtV);
TL_SetEnd( TL13,M3date,M3time,C);
TL_SetBegin(TL14,sdate,stime,StrtV);
TL_SetEnd( TL14,sdate,stime,C);
}
if C > StrtV Then{
m3UD = 1;
TL_SetColor(TL11,RGB(235,000,000));
TL_SetColor(TL12,RGB(235,000,000));
TL_SetColor(TL13,RGB(235,000,000));
TL_SetColor(TL14,RGB(235,000,000));
TL_SetSize(TL11,0); TL_SetSize(TL12,0); TL_SetSize(TL13,0); TL_SetSize(TL14,0);
}
else {
m3UD = 0;
TL_SetColor(TL11,RGB(000,000,235));
TL_SetColor(TL12,RGB(000,000,235));
TL_SetColor(TL13,RGB(000,000,235));
TL_SetColor(TL14,RGB(000,000,235));
TL_SetSize(TL11,0); TL_SetSize(TL12,0); TL_SetSize(TL13,0); TL_SetSize(TL14,0);
}
}
}
- 1. 189538_30분봉.png (0.00 MB)
답변 1
예스스탁 예스스탁 답변
2025-03-04 13:55:53
안녕하세요
예스스탁입니다.
박스/추세선/텍스트 함수는
모두 봉완성을 기준으로 그려지게 됩니다.
현재 봉왕성시 다음보의 날짜와 시간으로 그려지는데
완성봉의 시간으로 변경해 드립니다.
// 30분 Box
input : ntime1(30),PP(5);
var : SS1(0),DD1(0),TTM(0),TTF(0);
var : SM1(0),box(0), m3var(0), Bx3Higt(0), m3L(0), cnt(0);
Array : Mb30[100](0);
if Bdate != Bdate[1] Then{
SS1 = TimeToMinutes(0);
DD1 = sdate;
}
if DD1 > 0 then{
if sdate == DD1 Then
TTM = TimeToMinutes(stime)-SS1;
Else
TTM = TimeToMinutes(stime)+1440-SS1;
TTF = TTM%ntime1;
if Bdate != Bdate[1] or sTime == 90000 or // 90000
(Bdate == Bdate[1] && ntime1 > 1 && TTF < TTF[1]) or
(Bdate == Bdate[1] && ntime1 > 1 && TTM >= TTM[1]+ntime1) or
(Bdate == Bdate[1] && ntime1 == 1 && TTM > TTM[1]) Then
{
m3L = 1;
for cnt = 99 downto 1{
Mb30[cnt] = Mb30[cnt-1];
}
m3var = O;
box = box_new(sDate,sTime,m3var,NextBarSdate,NextBarStime,C);
}
else m3L = 0;
Mb30[0] = C;
Box_SetEnd(box,sDate,Stime,C);
if Mb30[0] > m3var Then{
Box_SetColor(box,red );
Bx3Higt = 1;}
Else{
Box_SetColor(box,Blue);
Bx3Higt = -1;
}
Box_SetFill(box,true, 10);
}
// 30봉 선 그리기
var : TL11(0),TL12(0),TL13(0),TL14(0),idx2(-1);
var : M3date(0), M3time(0), StrtV(0), m3UD(0), mrCl(0);
if m3L == 1 Then{
idx2 = 0;
StrtV = O; //O;
M3date = sdate;
M3time = stime;
}
else{
idx2 = idx2+1;
if idx2 > 0 then{
if idx2 == 1 then{
TL11 = TL_New(sdate[1],stime[1],StrtV, sdate, stime, StrtV);
TL12 = TL_New(M3date, M3time, O, sdate, stime, C);
TL13 = TL_New(M3date, M3time, StrtV, M3date,M3time,C);
TL14 = TL_New(sdate, stime, StrtV, sdate, stime, C);
}
else {
TL_SetEnd(TL11,sdate,stime,StrtV);
TL_SetBegin(TL12,M3date, M3time,C);
TL_SetEnd( TL12,sdate,stime,C);
TL_SetBegin(TL13,M3date,M3time,StrtV);
TL_SetEnd( TL13,M3date,M3time,C);
TL_SetBegin(TL14,sdate,stime,StrtV);
TL_SetEnd( TL14,sdate,stime,C);
}
if C > StrtV Then{
m3UD = 1;
TL_SetColor(TL11,RGB(235,000,000));
TL_SetColor(TL12,RGB(235,000,000));
TL_SetColor(TL13,RGB(235,000,000));
TL_SetColor(TL14,RGB(235,000,000));
TL_SetSize(TL11,0); TL_SetSize(TL12,0); TL_SetSize(TL13,0); TL_SetSize(TL14,0);
}
else {
m3UD = 0;
TL_SetColor(TL11,RGB(000,000,235));
TL_SetColor(TL12,RGB(000,000,235));
TL_SetColor(TL13,RGB(000,000,235));
TL_SetColor(TL14,RGB(000,000,235));
TL_SetSize(TL11,0); TL_SetSize(TL12,0); TL_SetSize(TL13,0); TL_SetSize(TL14,0);
}
}
}
즐거운 하루되세요
> 짱짱해야지 님이 쓴 글입니다.
> 제목 : 30분봉 BOX의 시간 불일치
> 수고하십니다!
1. 위 그림 파일(5분봉차트)에서 보시는 것 같이 30분Box와 선으로 그린 30분 사각형(선사작형)에서 Box는 끝나는 시간이 5분 늦게 끝나고, 선사각형은 9시 이후 부터 5분 늦게 선이 그려집니다.
2. 8시 45분에서 9시까지 Box와 선사각형 각 1개 그리고 9시 이후부터는 30분 단위로 Box와 선사각형을 30분 단위로 정확한 시간에 일치시키고 싶습니다.
감사합니다.
// 30분 Box
input : ntime1(30),PP(5);
var : SS1(0),DD1(0),TTM(0),TTF(0);
var : SM1(0),box(0), m3var(0), Bx3Higt(0), m3L(0), cnt(0);
Array : Mb30[100](0);
if Bdate != Bdate[1] Then{
SS1 = TimeToMinutes(0);
DD1 = sdate;
}
if DD1 > 0 then{
if sdate == DD1 Then
TTM = TimeToMinutes(stime)-SS1;
Else
TTM = TimeToMinutes(stime)+1440-SS1;
TTF = TTM%ntime1;
if Bdate != Bdate[1] or sTime == 90000 or // 90000
(Bdate == Bdate[1] && ntime1 > 1 && TTF < TTF[1]) or
(Bdate == Bdate[1] && ntime1 > 1 && TTM >= TTM[1]+ntime1) or
(Bdate == Bdate[1] && ntime1 == 1 && TTM > TTM[1]) Then
{
m3L = 1;
for cnt = 99 downto 1{
Mb30[cnt] = Mb30[cnt-1];
}
m3var = O;
box = box_new(sDate,sTime,m3var,NextBarSdate,NextBarStime,C);
}
else m3L = 0;
Mb30[0] = C;
Box_SetEnd(box,NextBarSdate,NextBarStime,C);
if Mb30[0] > m3var Then{
Box_SetColor(box,red );
Bx3Higt = 1;}
Else{
Box_SetColor(box,Blue);
Bx3Higt = -1;
}
Box_SetFill(box,true, 10);
}
// 30봉 선 그리기
var : TL11(0),TL12(0),TL13(0),TL14(0),idx2(-1);
var : M3date(0), M3time(0), StrtV(0), m3UD(0), mrCl(0);
if m3L == 1 Then{
idx2 = 0;
StrtV = O; //O;
M3date = sdate;
M3time = stime;
}
else{
idx2 = idx2+1;
if idx2 > 0 then{
if idx2 == 1 then{
TL11 = TL_New(sdate[1],stime[1],StrtV, sdate, stime, StrtV);
TL12 = TL_New(M3date, M3time, O, sdate, stime, C);
TL13 = TL_New(M3date, M3time, StrtV, M3date,M3time,C);
TL14 = TL_New(sdate, stime, StrtV, sdate, stime, C);
}
else {
TL_SetEnd(TL11,sdate,stime,StrtV);
TL_SetBegin(TL12,M3date, M3time,C);
TL_SetEnd( TL12,sdate,stime,C);
TL_SetBegin(TL13,M3date,M3time,StrtV);
TL_SetEnd( TL13,M3date,M3time,C);
TL_SetBegin(TL14,sdate,stime,StrtV);
TL_SetEnd( TL14,sdate,stime,C);
}
if C > StrtV Then{
m3UD = 1;
TL_SetColor(TL11,RGB(235,000,000));
TL_SetColor(TL12,RGB(235,000,000));
TL_SetColor(TL13,RGB(235,000,000));
TL_SetColor(TL14,RGB(235,000,000));
TL_SetSize(TL11,0); TL_SetSize(TL12,0); TL_SetSize(TL13,0); TL_SetSize(TL14,0);
}
else {
m3UD = 0;
TL_SetColor(TL11,RGB(000,000,235));
TL_SetColor(TL12,RGB(000,000,235));
TL_SetColor(TL13,RGB(000,000,235));
TL_SetColor(TL14,RGB(000,000,235));
TL_SetSize(TL11,0); TL_SetSize(TL12,0); TL_SetSize(TL13,0); TL_SetSize(TL14,0);
}
}
}
다음글
이전글