커뮤니티
46315번 추가 문의드립니다.
2016-02-04 14:49:51
104
글번호 95184
먼저 답변감사드립니다.. 추가로 문의 드립니다.
일봉을 30분봉에 월봉을 일봉에 표현할수 있게 해주세요.
부탁드립니다..
답변 1
예스스탁 예스스탁 답변
2016-02-04 14:59:45
안녕하세요
예스스탁입니다.
1.일봉을 분봉에
Var:TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0);
var : OO(0),HH(0),LL(0),DD(0),TT(0);
var : OO1(0),HH1(0),LL1(0),DD1(0),TT1(0);
If Bdate != Bdate[1] Then {
OO = O;
HH = H;
LL = L;
DD = sdate;
TT = stime;
OO1 = OO[1];
HH1 = HH[1];
LL1 = LL[1];
DD1 = DD[1];
TT1 = TT[1];
}
Else {
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
If Bdate != Bdate[1] Then {
TL1 = TL_New(DD1,TT1,max(OO1,C[1]),sDate[1],sTime[1],max(OO1,C[1]));
TL2 = TL_New(DD1,TT1,min(OO1,C[1]),sDate[1],sTime[1],min(OO1,C[1]));
TL3 = TL_New(DD1,TT1,min(OO1,C[1]),DD1,TT1,max(OO1,C[1]));
TL4 = TL_New(sDate[1],sTime[1],min(OO1,C[1]),sDate[1],sTime[1],max(OO1,C[1]));
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
If OO1 <= C[1] Then {
TL_SetColor(TL1,RED);
TL_SetColor(TL2,RED);
TL_SetColor(TL3,GRAY);
TL_SetColor(TL4,GRAY);
}
Else {
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,GRAY);
TL_SetColor(TL4,GRAY);
}
}
Else {
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL5 = TL_New(DD,TT,max(OO,C),sDate,sTime,max(OO,C));
TL6 = TL_New(DD,TT,min(OO,C),sDate,sTime,min(OO,C));
TL7 = TL_New(DD,TT,min(OO,C),DD,TT,max(OO,C));
TL8 = TL_New(sDate,sTime,min(OO,C),Date,sTime,max(OO,C));
If OO <= C Then {
TL_SetColor(TL5,RED);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,GRAY);
TL_SetColor(TL8,GRAY);
}
Else {
TL_SetColor(TL5,BLUE);
TL_SetColor(TL6,BLUE);
TL_SetColor(TL7,GRAY);
TL_SetColor(TL8,GRAY);
}
}
TL_SetSize(TL1,1);
TL_SetSize(TL2,1);
TL_SetSize(TL3,0);
TL_SetSize(TL4,0);
TL_SetSize(TL5,1);
TL_SetSize(TL6,1);
TL_SetSize(TL7,0);
TL_SetSize(TL8,0);
TL_SetStyle(TL3,3);
TL_SetStyle(TL4,3);
TL_SetStyle(TL7,3);
TL_SetStyle(TL8,3);
2. 월봉을 일봉에
Var:TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0);
var : OO(0),HH(0),LL(0),DD(0),TT(0);
var : OO1(0),HH1(0),LL1(0),DD1(0),TT1(0);
If Bdate > Bdate[1]+30 Then {
OO = O;
HH = H;
LL = L;
DD = sdate;
TT = stime;
OO1 = OO[1];
HH1 = HH[1];
LL1 = LL[1];
DD1 = DD[1];
TT1 = TT[1];
}
Else {
if H > HH Then
HH = H;
if L < LL Then
LL = L;
}
If Bdate > Bdate[1]+30 Then {
TL1 = TL_New(DD1,TT1,max(OO1,C[1]),sDate[1],sTime[1],max(OO1,C[1]));
TL2 = TL_New(DD1,TT1,min(OO1,C[1]),sDate[1],sTime[1],min(OO1,C[1]));
TL3 = TL_New(DD1,TT1,min(OO1,C[1]),DD1,TT1,max(OO1,C[1]));
TL4 = TL_New(sDate[1],sTime[1],min(OO1,C[1]),sDate[1],sTime[1],max(OO1,C[1]));
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
If OO1 <= C[1] Then {
TL_SetColor(TL1,RED);
TL_SetColor(TL2,RED);
TL_SetColor(TL3,GRAY);
TL_SetColor(TL4,GRAY);
}
Else {
TL_SetColor(TL1,BLUE);
TL_SetColor(TL2,BLUE);
TL_SetColor(TL3,GRAY);
TL_SetColor(TL4,GRAY);
}
}
Else {
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL5 = TL_New(DD,TT,max(OO,C),sDate,sTime,max(OO,C));
TL6 = TL_New(DD,TT,min(OO,C),sDate,sTime,min(OO,C));
TL7 = TL_New(DD,TT,min(OO,C),DD,TT,max(OO,C));
TL8 = TL_New(sDate,sTime,min(OO,C),Date,sTime,max(OO,C));
If OO <= C Then {
TL_SetColor(TL5,RED);
TL_SetColor(TL6,RED);
TL_SetColor(TL7,GRAY);
TL_SetColor(TL8,GRAY);
}
Else {
TL_SetColor(TL5,BLUE);
TL_SetColor(TL6,BLUE);
TL_SetColor(TL7,GRAY);
TL_SetColor(TL8,GRAY);
}
}
TL_SetSize(TL1,1);
TL_SetSize(TL2,1);
TL_SetSize(TL3,0);
TL_SetSize(TL4,0);
TL_SetSize(TL5,1);
TL_SetSize(TL6,1);
TL_SetSize(TL7,0);
TL_SetSize(TL8,0);
TL_SetStyle(TL3,3);
TL_SetStyle(TL4,3);
TL_SetStyle(TL7,3);
TL_SetStyle(TL8,3);
즐거운 하루되세요
> 쿠베라 님이 쓴 글입니다.
> 제목 : 46315번 추가 문의드립니다.
> 먼저 답변감사드립니다.. 추가로 문의 드립니다.
일봉을 30분봉에 월봉을 일봉에 표현할수 있게 해주세요.
부탁드립니다..