커뮤니티
문의드립니다
2023-01-16 09:32:36
353
글번호 165432
input : 타주기분(5);
var : S1(0),D1(0),TM(0),TF(0),box(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%타주기분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or
(Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then
{
oo = O;
hh = H;
ll = L;
box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c);
TL1 = TL_New(sDate,sTime,max(C,oo),sDate,sTime,hh);
TL2 = TL_New(sDate,sTime,min(C,oo),sDate,sTime,ll);
ii = 1;
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,0);
Box_SetEnd(box,sDate,sTime,C);
TL_SetBegin(TL1,sDate[var1],sTime[var1],max(c,oo));
TL_SetEnd(TL1,sDate[var1],sTime[var1],hh);
TL_SetBegin(TL2,sDate[var1],sTime[var1],min(c,oo));
TL_SetEnd(TL2,sDate[var1],sTime[var1],ll);
}
if C > oo Then
clr = Red;
else if C < oo Then
clr = Blue;
Else
clr = Green;
Box_SetColor(box,clr);
Box_SetSize(box,1);
#Box_SetFill(box,true);//내부채움
TL_SetColor(tl1,clr);
TL_SetColor(tl2,clr);
TL_SetSize(TL1,1);
TL_SetSize(TL2,1);
}
위 수식을 1분봉에 표현하면 전일 차트에는 수식이 표현 되지 않습니다..
수정 부탁드리구요
1> 혹시 내부에 색상을 추가 할수가 있을까요??
없다면 .. 어쩔수 없구요 ^^;;
2> 위 수식을 월 주 일 360분에 표현하게 변경 부탁드립니다
예스차트는 년봉을 지원하지 않는데.. 혹시 년봉을 월봉에 표현 가능할까요?
3> 박스형태에서 좌측 우측 윗꼬리 아랫꼬리를 점선으로 표현하게 변경 부탁드립니다
4> 표현되는 지표가 봉!! 뒷편으로 그려지게 할수는 없는지 궁금합니다..
안되면 어쩔수 없구요 ^^;;;;
답변 1
예스스탁 예스스탁 답변
2023-01-16 09:57:30
안녕하세요.
예스스탁 입니다.
제공해 드린 수식에서 내부 채움 변경 등은 랭귀지 매뉴얼을 참고하시면 쉽게 바꿔보실 수 있습니다. 매뉴얼의 TL_SetStyle, Box_SetStyle 함수를 살펴주세요.
아래 수식의 주석(#)으로 작성 드린 부분 설명을 보시면 채움의 투명도 값 등을 변경하실 수 있습니다.
1. 내부 색상 추가 + 3. 꼬리 점선 표현 + 4. 기본 봉 후면 표현
input : 타주기분(5);
var : S1(0),D1(0),TM(0),TF(0),box(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%타주기분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or
(Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then
{
oo = O;
hh = H;
ll = L;
box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c);
TL1 = TL_New(sDate,sTime,max(C,oo),sDate,sTime,hh);
TL2 = TL_New(sDate,sTime,min(C,oo),sDate,sTime,ll);
ii = 1;
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,1);
Box_SetEnd(box,sDate,sTime,C);
TL_SetBegin(TL1,sDate[var1],sTime[var1],max(c,oo));
TL_SetEnd(TL1,sDate[var1],sTime[var1],hh);
TL_SetBegin(TL2,sDate[var1],sTime[var1],min(c,oo));
TL_SetEnd(TL2,sDate[var1],sTime[var1],ll);
}
if C > oo Then
clr = Red;
else if C < oo Then
clr = Blue;
Else
clr = Green;
Box_SetColor(box,clr);
Box_SetSize(box,1);
Box_SetFill(box,true,120,True); #박스채움 투명도 설정 0(투명) ~ 255(불투명), 마지막 True 봉 뒤 배치
TL_SetStyle(TL1,3); # 윗꼬리 아랫꼬리 점선처리
TL_SetStyle(TL2,3); # 윗꼬리 아랫꼬리 점선처리
TL_SetColor(tl1,clr);
TL_SetColor(tl2,clr);
}
2. 월봉에서 년봉 구현 수식
input : 타주기분(5);
var : S1(0),D1(0),TM(0),TF(0),box(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0);
var : YY(0);
YY = Floor(Bdate/10000);
if YY != YY[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
oo = O;
hh = H;
ll = L;
box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c);
TL1 = TL_New(sDate,sTime,max(C,oo),sDate,sTime,hh);
TL2 = TL_New(sDate,sTime,min(C,oo),sDate,sTime,ll);
ii = 1;
}
if D1 > 0 then
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,1);
Box_SetEnd(box,sDate,sTime,C);
TL_SetBegin(TL1,sDate[var1],sTime[var1],max(c,oo));
TL_SetEnd(TL1,sDate[var1],sTime[var1],hh);
TL_SetBegin(TL2,sDate[var1],sTime[var1],min(c,oo));
TL_SetEnd(TL2,sDate[var1],sTime[var1],ll);
if C > oo Then
clr = Red;
else if C < oo Then
clr = Blue;
Else
clr = Green;
Box_SetColor(box,clr);
Box_SetSize(box,1);
Box_SetFill(box,true,120,True); #박스채움 투명도 설정 0(투명) ~ 255(불투명), 마지막 True 봉 뒤 배치
TL_SetStyle(TL1,3); # 윗꼬리 아랫꼬리 점선처리
TL_SetStyle(TL2,3); # 윗꼬리 아랫꼬리 점선처리
TL_SetColor(tl1,clr);
TL_SetColor(tl2,clr);
}
3. 360분봉 표현 방법
- [1]번 수식에서 입력 변수에 360을 입력하시면 됩니다.
즐거운 하루 보내세요.
> 삼족오 님이 쓴 글입니다.
> 제목 : 문의드립니다
> input : 타주기분(5);
var : S1(0),D1(0),TM(0),TF(0),box(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%타주기분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or
(Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then
{
oo = O;
hh = H;
ll = L;
box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c);
TL1 = TL_New(sDate,sTime,max(C,oo),sDate,sTime,hh);
TL2 = TL_New(sDate,sTime,min(C,oo),sDate,sTime,ll);
ii = 1;
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,0);
Box_SetEnd(box,sDate,sTime,C);
TL_SetBegin(TL1,sDate[var1],sTime[var1],max(c,oo));
TL_SetEnd(TL1,sDate[var1],sTime[var1],hh);
TL_SetBegin(TL2,sDate[var1],sTime[var1],min(c,oo));
TL_SetEnd(TL2,sDate[var1],sTime[var1],ll);
}
if C > oo Then
clr = Red;
else if C < oo Then
clr = Blue;
Else
clr = Green;
Box_SetColor(box,clr);
Box_SetSize(box,1);
#Box_SetFill(box,true);//내부채움
TL_SetColor(tl1,clr);
TL_SetColor(tl2,clr);
TL_SetSize(TL1,1);
TL_SetSize(TL2,1);
}
위 수식을 1분봉에 표현하면 전일 차트에는 수식이 표현 되지 않습니다..
수정 부탁드리구요
1> 혹시 내부에 색상을 추가 할수가 있을까요??
없다면 .. 어쩔수 없구요 ^^;;
2> 위 수식을 월 주 일 360분에 표현하게 변경 부탁드립니다
예스차트는 년봉을 지원하지 않는데.. 혹시 년봉을 월봉에 표현 가능할까요?
3> 박스형태에서 좌측 우측 윗꼬리 아랫꼬리를 점선으로 표현하게 변경 부탁드립니다
4> 표현되는 지표가 봉!! 뒷편으로 그려지게 할수는 없는지 궁금합니다..
안되면 어쩔수 없구요 ^^;;;;