커뮤니티
고가, 저가라인
2017-05-31 15:28:53
123
글번호 110005
안녕하세요?
해외선물 60분봉으로
1. 당일 고가, 저가
2. 주간 고가, 저가
3. 월간 고가, 저가
를 표시하고자 합니다.
그런데 금일 고가, 저가는 금일자 봉에 표시되고 전일 고가 저가는 전일자 봉에 그려지게 하고자합니다.
주간, 월간 모두 동일한 방식입니다.
답변 1
예스스탁 예스스탁 답변
2017-06-01 11:08:37
안녕하세요
예스스탁입니다.
var : DHH(0),DLL(0),DHD(0),DLD(0),DHT(0),DLT(0),Dtx1(0),Dtx2(0),Dtx11(0),Dtx22(0);
var : WHH(0),WLL(0),WHD(0),WLD(0),WHT(0),WLT(0),Wtx1(0),Wtx2(0),Wtx11(0),Wtx22(0);
var : MHH(0),MLL(0),MHD(0),MLD(0),MHT(0),MLT(0),Mtx1(0),Mtx2(0),Mtx11(0),Mtx22(0);
if Bdate != Bdate[1] Then{
DHH = H;
DHD = sdate;
DHT = stime;
DLL = L;
DLD = sdate;
DLT = stime;
Dtx1 = Text_New(DHD,DHT,DHH,NumToStr(DHH,2));
Text_SetStyle(Dtx1,2,2);
Dtx2 = Text_New(DLD,DLT,DLL,NumToStr(DLL,2));
Text_SetStyle(Dtx2,2,2);
Dtx11 = Text_New(DHD[1],DHT[1],DHH[1],"일고가"+NumToStr(DHH[1],2));
Text_SetStyle(Dtx11,2,2);
Dtx22 = Text_New(DLD[1],DLT[1],DLL[1],"일저가"+NumToStr(DLL[1],2));
Text_SetStyle(Dtx22,2,2);
}
if H > DHH Then{
DHH = H;
DHD = sdate;
DHT = stime;
Text_Delete(Dtx1);
Dtx1 = Text_New(DHD,DHT,DHH,"일고가"+NumToStr(DHH,2));
Text_SetStyle(Dtx1,2,2);
}
if L < DLL Then{
DLL = L;
DLD = sdate;
DLT = stime;
Text_Delete(Dtx2);
Dtx2 = Text_New(DLD,DLT,DLL,"일저가"+NumToStr(DLL,2));
Text_SetStyle(Dtx2,2,2);
}
if DayOfWeek(Bdate) < DayOfWeek(Bdate[1]) Then{
WHH = H;
WHD = sdate;
WHT = stime;
WLL = L;
WLD = sdate;
WLT = stime;
Wtx1 = Text_New(WHD,WHT,WHH+PriceScale*1,NumToStr(WHH,2));
Text_SetStyle(Wtx1,2,2);
Wtx2 = Text_New(WLD,WLT,WLL-PriceScale*1,NumToStr(WLL,2));
Text_SetStyle(Wtx2,2,2);
Wtx11 = Text_New(WHD[1],WHT[1],WHH[1]+PriceScale*1,"주고가"+NumToStr(WHH[1],2));
Text_SetStyle(Wtx11,2,2);
Wtx22 = Text_New(WLD[1],WLT[1],WLL[1]-PriceScale*1,"주저가"+NumToStr(WLL[1],2));
Text_SetStyle(Wtx22,2,2);
}
if H > WHH Then{
WHH = H;
WHD = sdate;
WHT = stime;
Text_Delete(Wtx1);
Wtx1 = Text_New(WHD,WHT,WHH+PriceScale*1,"주고가"+NumToStr(WHH,2));
Text_SetStyle(Wtx1,2,2);
}
if L < WLL Then{
WLL = L;
WLD = sdate;
WLT = stime;
Text_Delete(Wtx2);
Wtx2 = Text_New(WLD,WLT,WLL-PriceScale*1,"주저가"+NumToStr(WLL,2));
Text_SetStyle(Wtx2,2,2);
}
if Bdate > Bdate[1]+30 Then{
MHH = H;
MHD = sdate;
MHT = stime;
MLL = L;
MLD = sdate;
MLT = stime;
Mtx1 = Text_New(MHD,MHT,MHH+PriceScale*2,NumToStr(MHH,2));
Text_SetStyle(Mtx1,2,2);
Mtx2 = Text_New(MLD,MLT,MLL-PriceScale*2,NumToStr(MLL,2));
Text_SetStyle(Mtx2,2,2);
Mtx11 = Text_New(MHD[1],MHT[1],MHH[1]+PriceScale*2,"월고가"+NumToStr(MHH[1],2));
Text_SetStyle(Mtx11,2,2);
Mtx22 = Text_New(MLD[1],MLT[1],MLL[1]-PriceScale*2,"월저가"+NumToStr(MLL[1],2));
Text_SetStyle(Mtx22,2,2);
}
if H > MHH Then{
MHH = H;
MHD = sdate;
MHT = stime;
Text_Delete(Mtx1);
Mtx1 = Text_New(MHD,MHT,MHH+PriceScale*2,"월고가"+NumToStr(MHH,2));
Text_SetStyle(Mtx1,2,2);
}
if L < MLL Then{
MLL = L;
MLD = sdate;
MLT = stime;
Text_Delete(Mtx2);
Mtx2 = Text_New(MLD,MLT,MLL-PriceScale*2,"월저가"+NumToStr(MLL,2));
Text_SetStyle(Mtx2,2,2);
}
즐거운 하루되세요
> 통큰베팅 님이 쓴 글입니다.
> 제목 : 고가, 저가라인
> 안녕하세요?
해외선물 60분봉으로
1. 당일 고가, 저가
2. 주간 고가, 저가
3. 월간 고가, 저가
를 표시하고자 합니다.
그런데 금일 고가, 저가는 금일자 봉에 표시되고 전일 고가 저가는 전일자 봉에 그려지게 하고자합니다.
주간, 월간 모두 동일한 방식입니다.