커뮤니티
문의드립니다
2016-02-16 09:57:01
162
글번호 95400
아래 수식을 응용하여
1> 종가선차트를 만들고 싶습니다 < 종가만 연결.. 음봉시 블루 양봉시 레드>
2> 상위차트의 봉이 음봉이면 시가 양봉이면 종가를 연결한 선을 만들고 싶습니다
음봉이면 블루 양봉이면 레드 부탁합니다
위 두가지 지표 부탁드립니다
계단식으로 표현이 되면 합니다 ...
===============================
Input:분봉(60);
Var:TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0);
var : Tcond(false),T(0),S1(0),S2(0),TM(0),TF(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{
Tcond = true;
S1 = 480;//8시에 해당하는 TimeToMinutes
T = 1;
}
if date != date[1] and Bdate == Bdate[1] Then{
S2 = 1440-S1;
T = 2;
}
if T == 1 then
TM = TimeToMinutes(stime)-S1;
if T == 2 Then
TM = TimeToMinutes(stime)+S2;
TF = TM%분봉;
If TF < TF[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 TF < TF[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);
답변 1
예스스탁 예스스탁 답변
2016-02-16 10:13:31
안녕하세요
예스스탁입니다.
1.
Input:분봉(60);
Var:TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0);
var : Tcond(false),T(0),S1(0),S2(0),TM(0),TF(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{
Tcond = true;
S1 = 480;//8시에 해당하는 TimeToMinutes
T = 1;
}
if date != date[1] and Bdate == Bdate[1] Then{
S2 = 1440-S1;
T = 2;
}
if T == 1 then
TM = TimeToMinutes(stime)-S1;
if T == 2 Then
TM = TimeToMinutes(stime)+S2;
TF = TM%분봉;
If TF < TF[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 TF < TF[1] Then {
TL1 = TL_New(DD1,TT1,C[1],sDate[1],sTime[1],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,C,sDate,sTime,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.
Input:분봉(60);
Var:TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0);
var : Tcond(false),T(0),S1(0),S2(0),TM(0),TF(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{
Tcond = true;
S1 = 480;//8시에 해당하는 TimeToMinutes
T = 1;
}
if date != date[1] and Bdate == Bdate[1] Then{
S2 = 1440-S1;
T = 2;
}
if T == 1 then
TM = TimeToMinutes(stime)-S1;
if T == 2 Then
TM = TimeToMinutes(stime)+S2;
TF = TM%분봉;
If TF < TF[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 TF < TF[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);
즐거운 하루되세요
> 삼족오 님이 쓴 글입니다.
> 제목 : 문의드립니다
>
아래 수식을 응용하여
1> 종가선차트를 만들고 싶습니다 < 종가만 연결.. 음봉시 블루 양봉시 레드>
2> 상위차트의 봉이 음봉이면 시가 양봉이면 종가를 연결한 선을 만들고 싶습니다
음봉이면 블루 양봉이면 레드 부탁합니다
위 두가지 지표 부탁드립니다
계단식으로 표현이 되면 합니다 ...
===============================
Input:분봉(60);
Var:TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0);
var : Tcond(false),T(0),S1(0),S2(0),TM(0),TF(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{
Tcond = true;
S1 = 480;//8시에 해당하는 TimeToMinutes
T = 1;
}
if date != date[1] and Bdate == Bdate[1] Then{
S2 = 1440-S1;
T = 2;
}
if T == 1 then
TM = TimeToMinutes(stime)-S1;
if T == 2 Then
TM = TimeToMinutes(stime)+S2;
TF = TM%분봉;
If TF < TF[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 TF < TF[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);