커뮤니티
제일큰봉찾기
2025-08-29 12:49:11
124
글번호 193576
첨부 이미지
그림1
일전에 아래와 같이 도와 주셔서 감사드립니다.
이 상태에서 하루 중 가장 큰 5분 box의 시가와 종가에 수평선을 첨부파일과 같이 추가할 수 있음 감사 하겠습니다. 시가에 그려진 수평선은 파란색 종가는 붉은색!
안녕하세요
예스스탁입니다.
5분봉으로 음봉/양봉이 진행중인 봉에서
조건판단해 바로 색상 변경은 가능하지 않을것 같습니다.
값을 저장하면 봉색상 변경시 계산값 환원이 어려워
5분봉으로 봉완성시에 최종 진하게 표시됩니다.
input : ntime1(5);
var : SS1(0),DD1(0),TTM(0),TTF(0);
var : SM1(0),m3var(0), m3L(0), cnt(0);
Array : Mb30[100](0);
var : M3date(0),M3time(0), StrtV(0), m3UD(0), mrCl(0);
var : idx2(0), HH(0),LL(0),HTL(0),LTL(0),bb(0),box(0);
var : T(0),T1(0),T2(0),clr(0),clr1(0);
var : PLO(0),PLO1(0),PL(0);
var : NHO(0),NHO1(0),NH(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
{
T1 = T[1];
T2 = T1[1];
clr1 = clr[1];
if T1 == 1 and T1 != T2 Then
{
PLO = StrtV[1];
PLO1 = PLO[1];
if PLO <= PLO1 Then
{
PL = PLO;
}
Else
{
Box_SetFill(box,true,120);
}
}
if T1 == -1 and T1 != T2 Then
{
NHO = StrtV[1];
NHO1 = NHO[1];
if NHO >= NHO1 Then
NH = NHO;
Else
{
Box_SetFill(box,true,120);
}
}
idx2 = 0;
StrtV = O;
M3date = sdate;
M3time = stime;
HH = H;
LL = L;
HTL = TL_New(sDate,sTime,max(C,StrtV),sDate,sTime,HH);
LTL = TL_New(sDate,sTime,min(C,StrtV),sDate,sTime,LL);
box = Box_New(sDate,sTime,StrtV,NextBarSdate,NextBarStime,C);
Box_SetFill(box,true);
}
else
{
idx2 = idx2+1;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
bb = Floor(idx2/2);
TL_SetBegin(HTL,sDate[bb],sTime[bb],max(C,StrtV));
TL_SetEnd(HTL,sDate[bb],sTime[bb],HH);
TL_SetBegin(LTL,sDate[bb],sTime[bb],min(C,StrtV));
TL_SetEnd(LTL,sDate[bb],sTime[bb],LL);
Box_SetEnd(Box,sDate,sTime,C);
}
if C > StrtV Then
{
T = 1;
clr = RGB(235,000,000);
box_SetColor(box,clr);
TL_SetColor(HTL,clr);
TL_SetColor(LTL,clr);
}
Else
{
T = -1;
clr = RGB(000,000,235);
box_SetColor(box,clr);
TL_SetColor(HTL,clr);
TL_SetColor(LTL,clr);
}
}
- 1. 20250829_124402.png (0.02 MB)
답변 1
예스스탁 예스스탁 답변
2025-08-29 14:08:09
안녕하세요
예스스탁입니다.
input : ntime1(5);
var : SS1(0),DD1(0),TTM(0),TTF(0);
var : SM1(0),m3var(0), m3L(0), cnt(0);
Array : Mb30[100](0);
var : M3date(0),M3time(0), StrtV(0), m3UD(0), mrCl(0);
var : idx2(0), HH(0),LL(0),HTL(0),LTL(0),bb(0),box(0);
var : T(0),T1(0),T2(0),clr(0),clr1(0);
var : PLO(0),PLO1(0),PL(0);
var : NHO(0),NHO1(0),NH(0);
var : maxDiff(0),B(0),TL1(0),TL2(0);
if Bdate != Bdate[1] Then
{
SS1 = TimeToMinutes(0);
DD1 = sdate;
B = 0;
maxDiff = 0;
}
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
{
B = B+1;
T1 = T[1];
T2 = T1[1];
clr1 = clr[1];
if T1 == 1 and T1 != T2 Then
{
PLO = StrtV[1];
PLO1 = PLO[1];
if PLO <= PLO1 Then
{
PL = PLO;
}
Else
{
Box_SetFill(box,true,120);
}
}
if T1 == -1 and T1 != T2 Then
{
NHO = StrtV[1];
NHO1 = NHO[1];
if NHO >= NHO1 Then
NH = NHO;
Else
{
Box_SetFill(box,true,120);
}
}
idx2 = 0;
StrtV = O;
M3date = sdate;
M3time = stime;
HH = H;
LL = L;
HTL = TL_New(sDate,sTime,max(C,StrtV),sDate,sTime,HH);
LTL = TL_New(sDate,sTime,min(C,StrtV),sDate,sTime,LL);
box = Box_New(sDate,sTime,StrtV,NextBarSdate,NextBarStime,C);
Box_SetFill(box,true);
if B == 2 then
{
var1 = StrtV[1];
var2 = C[1];
maxdiff = abs(var1-var2);
TL1 = TL_New(M3date[1],M3time[1],var1,sDate,sTime,var1);
TL2 = TL_New(M3date[1],M3time[1],var2,sDate,sTime,var2);
TL_SetColor(TL1,Blue);
TL_SetColor(TL2,Red);
}
Else
{
if abs(C[1]-StrtV[1]) > maxdiff Then
{
var1 = StrtV[1];
var2 = C[1];
maxdiff = abs(var1-var2);
TL_SetBegin(TL1,M3date[1],M3time[1],var1);
TL_SetBegin(TL2,M3date[1],M3time[1],var2);
}
}
}
else
{
idx2 = idx2+1;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
bb = Floor(idx2/2);
TL_SetBegin(HTL,sDate[bb],sTime[bb],max(C,StrtV));
TL_SetEnd(HTL,sDate[bb],sTime[bb],HH);
TL_SetBegin(LTL,sDate[bb],sTime[bb],min(C,StrtV));
TL_SetEnd(LTL,sDate[bb],sTime[bb],LL);
Box_SetEnd(Box,sDate,sTime,C);
}
if C > StrtV Then
{
T = 1;
clr = RGB(235,000,000);
box_SetColor(box,clr);
TL_SetColor(HTL,clr);
TL_SetColor(LTL,clr);
}
Else
{
T = -1;
clr = RGB(000,000,235);
box_SetColor(box,clr);
TL_SetColor(HTL,clr);
TL_SetColor(LTL,clr);
}
Plot1(b);
if b >= 2 Then
{
TL_SetEnd(TL1,sDate,sTime,var1);
TL_SetEnd(TL2,sDate,sTime,var2);
}
}
즐거운 하루되세요
> 짱짱해야지 님이 쓴 글입니다.
> 제목 : 제일큰봉찾기
> 일전에 아래와 같이 도와 주셔서 감사드립니다.
이 상태에서 하루 중 가장 큰 5분 box의 시가와 종가에 수평선을 첨부파일과 같이 추가할 수 있음 감사 하겠습니다. 시가에 그려진 수평선은 파란색 종가는 붉은색!
안녕하세요
예스스탁입니다.
5분봉으로 음봉/양봉이 진행중인 봉에서
조건판단해 바로 색상 변경은 가능하지 않을것 같습니다.
값을 저장하면 봉색상 변경시 계산값 환원이 어려워
5분봉으로 봉완성시에 최종 진하게 표시됩니다.
input : ntime1(5);
var : SS1(0),DD1(0),TTM(0),TTF(0);
var : SM1(0),m3var(0), m3L(0), cnt(0);
Array : Mb30[100](0);
var : M3date(0),M3time(0), StrtV(0), m3UD(0), mrCl(0);
var : idx2(0), HH(0),LL(0),HTL(0),LTL(0),bb(0),box(0);
var : T(0),T1(0),T2(0),clr(0),clr1(0);
var : PLO(0),PLO1(0),PL(0);
var : NHO(0),NHO1(0),NH(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
{
T1 = T[1];
T2 = T1[1];
clr1 = clr[1];
if T1 == 1 and T1 != T2 Then
{
PLO = StrtV[1];
PLO1 = PLO[1];
if PLO <= PLO1 Then
{
PL = PLO;
}
Else
{
Box_SetFill(box,true,120);
}
}
if T1 == -1 and T1 != T2 Then
{
NHO = StrtV[1];
NHO1 = NHO[1];
if NHO >= NHO1 Then
NH = NHO;
Else
{
Box_SetFill(box,true,120);
}
}
idx2 = 0;
StrtV = O;
M3date = sdate;
M3time = stime;
HH = H;
LL = L;
HTL = TL_New(sDate,sTime,max(C,StrtV),sDate,sTime,HH);
LTL = TL_New(sDate,sTime,min(C,StrtV),sDate,sTime,LL);
box = Box_New(sDate,sTime,StrtV,NextBarSdate,NextBarStime,C);
Box_SetFill(box,true);
}
else
{
idx2 = idx2+1;
if H > HH Then
HH = H;
if L < LL Then
LL = L;
bb = Floor(idx2/2);
TL_SetBegin(HTL,sDate[bb],sTime[bb],max(C,StrtV));
TL_SetEnd(HTL,sDate[bb],sTime[bb],HH);
TL_SetBegin(LTL,sDate[bb],sTime[bb],min(C,StrtV));
TL_SetEnd(LTL,sDate[bb],sTime[bb],LL);
Box_SetEnd(Box,sDate,sTime,C);
}
if C > StrtV Then
{
T = 1;
clr = RGB(235,000,000);
box_SetColor(box,clr);
TL_SetColor(HTL,clr);
TL_SetColor(LTL,clr);
}
Else
{
T = -1;
clr = RGB(000,000,235);
box_SetColor(box,clr);
TL_SetColor(HTL,clr);
TL_SetColor(LTL,clr);
}
}
다음글