커뮤니티
data2 현재가 라인
2024-01-18 11:05:08
1124
글번호 175853
input : N(60),N1(7),per(10);
var : TX1(0),TX2(0),cnt(0),box(0),box1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
var : Tcond(False,Data2),i2(0,Data2);
var : box3(0),cond(False),H2(0),L2(0);
Plot1(Data2(c));
For cnt = 0 to 49
{
TL_Delete(TL1[cnt]);
TL_Delete(TL2[cnt]);
TL_Delete(TL3[cnt]);
TL_Delete(TL4[cnt]);
TL_Delete(TL5[cnt]);
TL_Delete(TL6[cnt]);
TL_Delete(TL7[cnt]);
TL_Delete(TL8[cnt]);
TL_Delete(TL9[cnt]);
Text_Delete(TX1[cnt]);
Text_Delete(TX2[cnt]);
TL_Delete(Box[cnt]);
TL_Delete(Box1[cnt]);
}
if Data2(Bdate != Bdate[1]) Then
{
Tcond = False;
i2 = 0;
}
if Tcond == False and Data2(sTime >= 85000) Then
{
Tcond = true;
}
if Tcond == true Then
{
i2 = i2+1;
TL1 = TL_New_Self(sDate,sTime,data2(highest(H,min(N,i2))),NextBarSdate,NextBarStime,data2(highest(H,min(N,i2))));
TL2 = TL_New_Self(sDate,sTime,data2(lowest(L,min(N,i2))),NextBarSdate,NextBarStime,data2(lowest(L,min(N,i2))));
TL_SetColor(TL1,Red);
TL_SetColor(TL2,Blue);
TL_SetSize(TL1,1);
TL_SetSize(TL2,1);
TL_SetExtLeft(TL1,true);
TL_SetExtLeft(TL2,true);
TL3 = TL_New_Self(Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),-9999,Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),9999);
TL_SetColor(TL3,Pink);
TL_SetSize(TL3,5);
TL5 = TL_New(Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),-9999,Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),9999);
TL_SetColor(TL5,Pink);
TL_SetSize(TL5,5);
TL7 = TL_New_Self(sDate,sTime,data2(lowest(L*1.1,min(N,i2))),NextBarSdate,NextBarStime,data2(lowest(L*1.1,min(N,i2))));
TL_SetColor(TL7,Red);
TL_SetSize(TL7,0.5);
TL_SetExtLeft(TL7,true);
TL8 = TL_New_Self(sDate,sTime,data2(lowest(L*1.2,min(N,i2))),NextBarSdate,NextBarStime,data2(lowest(L*1.2,min(N,i2))));
TL_SetColor(TL8,Green);
TL_SetSize(TL8,0.5);
TL_SetExtLeft(TL8,true);
TL9 = TL_New_Self(sDate,sTime,data2(lowest(L*1.3,min(N,i2))),NextBarSdate,NextBarStime,data2(lowest(L*1.3,min(N,i2))));
TL_SetColor(TL9,Red);
TL_SetSize(TL9,0.5);
TL_SetExtLeft(TL9,true);
TX1 = Text_New_Self(Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),Data2(highest(H+PriceScale*1,min(N,i2))),"■");
TX2 = Text_New_Self(Data2(sDate[NthLowestBar(1,L,min(N,i2))]),Data2(stime[NthLowestBar(1,L,min(N,i2))]),Data2(Lowest(L-PriceScale*1,min(N,i2))),"■");
Text_SetStyle(TX1,2,1);
Text_SetStyle(TX2,2,0);
Text_SetColor(TX1,Blue);
Text_SetColor(TX2,Magenta);
Text_SetSize(tx1,35);
Text_SetSize(tx2,35);
box1 = Box_New(Data2(sDate[NthlowestBar(1,L,min(N,i2))+N1]),Data2(stime[NthlowestBar(1,L,min(N,i2))+N1]),9999,
Data2(sDate[NthlowestBar(1,L,min(N,i2))]),Data2(stime[NthlowestBar(1,L,min(N,i2))]),-9999);
Box_SetColor(box1,Blue);
Box_SetFill(box1,true,40);
box = Box_New_Self(Data2(sDate[NthlowestBar(1,L,min(N,i2))+N1]),Data2(stime[NthlowestBar(1,L,min(N,i2))+N1]),9999,
Data2(sDate[NthlowestBar(1,L,min(N,i2))]),Data2(stime[NthlowestBar(1,L,min(N,i2))]),-9999);
Box_SetColor(box,Blue);
Box_SetFill(box,true,40);
if data2(CrossUp(L,Lowest(L,min(N,i2))*(1+per/100))) Then
{
Box_Delete(box3);
cond = true;
H2 = Data2(H);
L2 = Data2(lowest(L,min(N,i2))*(1+per/100));
box3 = Box_New_Self(sDate[1],sTime[1],L2,Sdate,Stime,9999);
Box_SetColor(box3,Lime);
Box_SetFill(box3,true,50);
TL_Delete(TL10);
TL10=TL_New(sDate,sTime,0,sDate,sTime,999);
TL_SetColor(TL10,Lime);
TL_SetSize(TL10,3);
}
Else
{
if cond == true Then
{
if data2(H) > H2 Then
H2 =Data2(H);
Box_SetEnd(box3,sDate,sTime,9999);
if Data2(l < lowest(L,min(N,i2))*(1+per/100)) Then
Box_Delete(box3);
}
}
}
data2의 현재가 라인을 실시간으로 N봉만큼만(60봉) 좌로 수평연장.(종가 아님)
봉 완성과 관계없이 현재가의 움직임에 따라 계속 상하로 같이 움직이다가, 다음봉이 생기면 앞봉 라인 지우고 즉시 다음봉에 현재가 라인 표시. 감사합니다.
답변 1
예스스탁 예스스탁 답변
2024-01-18 15:26:18
안녕하세요
예스스탁입니다.
문의하신 내용은 가능하지 않습니다.
차트에 수평선을 그리기 위해서는 추세선 함수만 가능한데
추세선 함수는 봉완성시에만 동작해서 차트 마지막봉의 값은 그릴수 없습니다.
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : data2 현재가 라인
> input : N(60),N1(7),per(10);
var : TX1(0),TX2(0),cnt(0),box(0),box1(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0),TL9(0),TL10(0);
var : Tcond(False,Data2),i2(0,Data2);
var : box3(0),cond(False),H2(0),L2(0);
Plot1(Data2(c));
For cnt = 0 to 49
{
TL_Delete(TL1[cnt]);
TL_Delete(TL2[cnt]);
TL_Delete(TL3[cnt]);
TL_Delete(TL4[cnt]);
TL_Delete(TL5[cnt]);
TL_Delete(TL6[cnt]);
TL_Delete(TL7[cnt]);
TL_Delete(TL8[cnt]);
TL_Delete(TL9[cnt]);
Text_Delete(TX1[cnt]);
Text_Delete(TX2[cnt]);
TL_Delete(Box[cnt]);
TL_Delete(Box1[cnt]);
}
if Data2(Bdate != Bdate[1]) Then
{
Tcond = False;
i2 = 0;
}
if Tcond == False and Data2(sTime >= 85000) Then
{
Tcond = true;
}
if Tcond == true Then
{
i2 = i2+1;
TL1 = TL_New_Self(sDate,sTime,data2(highest(H,min(N,i2))),NextBarSdate,NextBarStime,data2(highest(H,min(N,i2))));
TL2 = TL_New_Self(sDate,sTime,data2(lowest(L,min(N,i2))),NextBarSdate,NextBarStime,data2(lowest(L,min(N,i2))));
TL_SetColor(TL1,Red);
TL_SetColor(TL2,Blue);
TL_SetSize(TL1,1);
TL_SetSize(TL2,1);
TL_SetExtLeft(TL1,true);
TL_SetExtLeft(TL2,true);
TL3 = TL_New_Self(Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),-9999,Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),9999);
TL_SetColor(TL3,Pink);
TL_SetSize(TL3,5);
TL5 = TL_New(Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),-9999,Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),9999);
TL_SetColor(TL5,Pink);
TL_SetSize(TL5,5);
TL7 = TL_New_Self(sDate,sTime,data2(lowest(L*1.1,min(N,i2))),NextBarSdate,NextBarStime,data2(lowest(L*1.1,min(N,i2))));
TL_SetColor(TL7,Red);
TL_SetSize(TL7,0.5);
TL_SetExtLeft(TL7,true);
TL8 = TL_New_Self(sDate,sTime,data2(lowest(L*1.2,min(N,i2))),NextBarSdate,NextBarStime,data2(lowest(L*1.2,min(N,i2))));
TL_SetColor(TL8,Green);
TL_SetSize(TL8,0.5);
TL_SetExtLeft(TL8,true);
TL9 = TL_New_Self(sDate,sTime,data2(lowest(L*1.3,min(N,i2))),NextBarSdate,NextBarStime,data2(lowest(L*1.3,min(N,i2))));
TL_SetColor(TL9,Red);
TL_SetSize(TL9,0.5);
TL_SetExtLeft(TL9,true);
TX1 = Text_New_Self(Data2(sDate[NthHighestBar(1,H,min(N,i2))]),Data2(stime[NthhighestBar(1,H,min(N,i2))]),Data2(highest(H+PriceScale*1,min(N,i2))),"■");
TX2 = Text_New_Self(Data2(sDate[NthLowestBar(1,L,min(N,i2))]),Data2(stime[NthLowestBar(1,L,min(N,i2))]),Data2(Lowest(L-PriceScale*1,min(N,i2))),"■");
Text_SetStyle(TX1,2,1);
Text_SetStyle(TX2,2,0);
Text_SetColor(TX1,Blue);
Text_SetColor(TX2,Magenta);
Text_SetSize(tx1,35);
Text_SetSize(tx2,35);
box1 = Box_New(Data2(sDate[NthlowestBar(1,L,min(N,i2))+N1]),Data2(stime[NthlowestBar(1,L,min(N,i2))+N1]),9999,
Data2(sDate[NthlowestBar(1,L,min(N,i2))]),Data2(stime[NthlowestBar(1,L,min(N,i2))]),-9999);
Box_SetColor(box1,Blue);
Box_SetFill(box1,true,40);
box = Box_New_Self(Data2(sDate[NthlowestBar(1,L,min(N,i2))+N1]),Data2(stime[NthlowestBar(1,L,min(N,i2))+N1]),9999,
Data2(sDate[NthlowestBar(1,L,min(N,i2))]),Data2(stime[NthlowestBar(1,L,min(N,i2))]),-9999);
Box_SetColor(box,Blue);
Box_SetFill(box,true,40);
if data2(CrossUp(L,Lowest(L,min(N,i2))*(1+per/100))) Then
{
Box_Delete(box3);
cond = true;
H2 = Data2(H);
L2 = Data2(lowest(L,min(N,i2))*(1+per/100));
box3 = Box_New_Self(sDate[1],sTime[1],L2,Sdate,Stime,9999);
Box_SetColor(box3,Lime);
Box_SetFill(box3,true,50);
TL_Delete(TL10);
TL10=TL_New(sDate,sTime,0,sDate,sTime,999);
TL_SetColor(TL10,Lime);
TL_SetSize(TL10,3);
}
Else
{
if cond == true Then
{
if data2(H) > H2 Then
H2 =Data2(H);
Box_SetEnd(box3,sDate,sTime,9999);
if Data2(l < lowest(L,min(N,i2))*(1+per/100)) Then
Box_Delete(box3);
}
}
}
data2의 현재가 라인을 실시간으로 N봉만큼만(60봉) 좌로 수평연장.(종가 아님)
봉 완성과 관계없이 현재가의 움직임에 따라 계속 상하로 같이 움직이다가, 다음봉이 생기면 앞봉 라인 지우고 즉시 다음봉에 현재가 라인 표시. 감사합니다.