커뮤니티
중심선좀 요청 드림니다.
2025-03-26 06:28:25
388
글번호 189550
항상 많은 도움에 고맙습니다.
아래 수식 에서 중심선좀 요청 드림니다.
즉 고가(HH) + 저가(LL) / 2 해서 이것도 수평선으로 나오게 부탁 드림니다.
( 장중에는 고저가 발생 에 따라서 수평 중심선도 바뀌겠지요..
##
var : HH(0),LL(0),TL1(0),TL2(0),TX1(0),TX2(0);
var : DD(0),TT(0);
if Bdate != Bdate[1] Then
{
HH = H;
LL = L;
DD = sDate;
TT = sTime;
TL1 = TL_New(DD,TT,HH,NextBarSdate,NextBarStime,HH);
TL2 = TL_New(DD,TT,LL,NextBarSdate,NextBarStime,LL);
TL_SetColor(TL1,Rgb(160,100,250));
TL_SetColor(TL2,Rgb(160,100,250));
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TX1 = Text_New(NextBarSdate,NextBarStime,HH,NumToStr(HH,1));
TX2 = Text_New(NextBarSdate,NextBarStime,LL,NumToStr(LL,1));
Text_SetStyle(TX1,2,1);
Text_SetStyle(TX2,2,0);
Text_SetSize(TX1,20);
Text_SetSize(TX2,20);
Text_SetBold(TX1,20);
Text_SetBold(TX2,20);
}
Else
{
if HH > 0 and H > HH Then
{
HH = H;
TL_SetBegin(TL1,DD,TT,HH);
}
if LL > 0 and L < LL Then
{
LL = L;
TL_SetBegin(TL2,DD,TT,LL);
}
TL_SetEnd(TL1,NextBarSdate,NextBarStime,HH);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,LL);
Text_SetString(TX1,NumToStr(HH,1));
Text_SetString(TX2,NumToStr(LL,1));
Text_SetLocation(TX1,NextBarSdate,NextBarStime,HH);
Text_SetLocation(TX2,NextBarSdate,NextBarStime,LL);
}
고맙 습니다. 수고 하십시요.
답변 1
예스스탁 예스스탁 답변
2025-03-26 10:45:48
안녕하세요
예스스탁입니다.
var : HH(0),LL(0),TL1(0),TL2(0),TX1(0),TX2(0);
var : DD(0),TT(0),MM(0),TL3(0),TX3(0);
if Bdate != Bdate[1] Then
{
HH = H;
LL = L;
MM = (HH+LL)/2;
DD = sDate;
TT = sTime;
TL1 = TL_New(DD,TT,HH,NextBarSdate,NextBarStime,HH);
TL2 = TL_New(DD,TT,LL,NextBarSdate,NextBarStime,LL);
TL3 = TL_New(DD,TT,MM,NextBarSdate,NextBarStime,MM);
TL_SetColor(TL1,Rgb(160,100,250));
TL_SetColor(TL2,Rgb(160,100,250));
TL_SetColor(TL3,Rgb(160,100,250));
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TL_SetSize(TL3,3);
TX1 = Text_New(NextBarSdate,NextBarStime,HH,NumToStr(HH,1));
TX2 = Text_New(NextBarSdate,NextBarStime,LL,NumToStr(LL,1));
TX3 = Text_New(NextBarSdate,NextBarStime,MM,NumToStr(MM,1));
Text_SetStyle(TX1,2,1);
Text_SetStyle(TX2,2,0);
Text_SetStyle(TX3,2,0);
Text_SetSize(TX1,20);
Text_SetSize(TX2,20);
Text_SetSize(TX3,20);
Text_SetBold(TX1,20);
Text_SetBold(TX2,20);
Text_SetBold(TX3,20);
}
Else
{
if HH > 0 and H > HH Then
{
HH = H;
TL_SetBegin(TL1,DD,TT,HH);
}
if LL > 0 and L < LL Then
{
LL = L;
TL_SetBegin(TL2,DD,TT,LL);
}
MM = (HH+LL)/2;
TL_SetEnd(TL1,NextBarSdate,NextBarStime,HH);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,LL);
TL_SetBegin(TL3,DD,TT,MM);
TL_SetEnd(TL3,NextBarSdate,NextBarStime,MM);
Text_SetString(TX1,NumToStr(HH,1));
Text_SetString(TX2,NumToStr(LL,1));
Text_SetString(TX3,NumToStr(MM,1));
Text_SetLocation(TX1,NextBarSdate,NextBarStime,HH);
Text_SetLocation(TX2,NextBarSdate,NextBarStime,LL);
Text_SetLocation(TX3,NextBarSdate,NextBarStime,MM);
}
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 중심선좀 요청 드림니다.
> 항상 많은 도움에 고맙습니다.
아래 수식 에서 중심선좀 요청 드림니다.
즉 고가(HH) + 저가(LL) / 2 해서 이것도 수평선으로 나오게 부탁 드림니다.
( 장중에는 고저가 발생 에 따라서 수평 중심선도 바뀌겠지요..
##
var : HH(0),LL(0),TL1(0),TL2(0),TX1(0),TX2(0);
var : DD(0),TT(0);
if Bdate != Bdate[1] Then
{
HH = H;
LL = L;
DD = sDate;
TT = sTime;
TL1 = TL_New(DD,TT,HH,NextBarSdate,NextBarStime,HH);
TL2 = TL_New(DD,TT,LL,NextBarSdate,NextBarStime,LL);
TL_SetColor(TL1,Rgb(160,100,250));
TL_SetColor(TL2,Rgb(160,100,250));
TL_SetSize(TL1,3);
TL_SetSize(TL2,3);
TX1 = Text_New(NextBarSdate,NextBarStime,HH,NumToStr(HH,1));
TX2 = Text_New(NextBarSdate,NextBarStime,LL,NumToStr(LL,1));
Text_SetStyle(TX1,2,1);
Text_SetStyle(TX2,2,0);
Text_SetSize(TX1,20);
Text_SetSize(TX2,20);
Text_SetBold(TX1,20);
Text_SetBold(TX2,20);
}
Else
{
if HH > 0 and H > HH Then
{
HH = H;
TL_SetBegin(TL1,DD,TT,HH);
}
if LL > 0 and L < LL Then
{
LL = L;
TL_SetBegin(TL2,DD,TT,LL);
}
TL_SetEnd(TL1,NextBarSdate,NextBarStime,HH);
TL_SetEnd(TL2,NextBarSdate,NextBarStime,LL);
Text_SetString(TX1,NumToStr(HH,1));
Text_SetString(TX2,NumToStr(LL,1));
Text_SetLocation(TX1,NextBarSdate,NextBarStime,HH);
Text_SetLocation(TX2,NextBarSdate,NextBarStime,LL);
}
고맙 습니다. 수고 하십시요.