예스스탁
예스스탁 답변
2024-11-26 10:35:31
안녕하세요
예스스탁입니다.
타주기에서 동일 최고가나 최저가가 발생하면
수평으로 그려야 하므로 plot으로는 가능하지 않아
추세선으로 그려지게 작성해 드립니다.
input : ntime(5);
var : T1(0),S1(0),D1(0),TM(0),TF(0);
var : hh(0),ll(0),hh1(0),ll1(0);
var : dd(0),tt(0),dd1(0),tt1(0);
var : x(0),x1(0),y(0),y1(0),tl1(0),tl2(0);
if Bdate != bdate[1] Then
{
T1 = Floor(Stime/10000)*10000;
S1 = TimeToMinutes(T1);
D1 = NextBarSdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(sTime)-S1;
Else
TM = TimeToMinutes(sTime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
hh = H;
ll = L;
hh1 = hh[1];
ll1 = ll[1];
dd = sdate;
tt = stime;
dd1 = dd[1];
tt1 = tt[1];
x = 0;
x1 = x[1];
Condition1 = False;
y = 0;
y1 = y[1];
Condition2 = False;
}
Else
{
if h > hh Then
hh = h;
if l < ll Then
ll = L;
}
if hh == hh1 Then
x = 1;
Else
x = 0;
if ll == ll1 Then
y = 1;
Else
y = 0;
if x1 == 0 Then
{
if x == 1 Then
{
if Condition1 == False Then
{
Condition1 = true;
tl1 = tl_new(dd1,tt1,hh1,sDate,sTime,hh);
TL_SetColor(tl1,Red);
}
if Condition1 == true Then
TL_SetEnd(tl1,sDate,sTime,hh);
}
Else
{
if Condition1 == true Then
TL_Delete(tl1);
}
}
Else
{
if x == 1 Then
{
Condition1 = true;
var1 = TL_GetEndDate(tl1);
var2 = TL_GetEndTime(tl1);
var3 = TL_GetEndVal(tl1);
TL_SetEnd(tl1,sDate,sTime,hh);
}
Else
{
if Condition1 == true Then
TL_SetEnd(tl1,var1,var2,var3);
}
}
if y1 == 0 Then
{
if y == 1 Then
{
if Condition2 == False Then
{
Condition2 = true;
tl2 = tl_new(dd1,tt1,ll1,sDate,sTime,ll);
TL_SetColor(tl2,Blue);
}
if Condition2 == true Then
TL_SetEnd(tl2,sDate,sTime,ll);
}
Else
{
if Condition2 == true Then
TL_Delete(tl2);
}
}
Else
{
if y == 1 Then
{
Condition2 = true;
var4 = TL_GetEndDate(tl2);
var5 = TL_GetEndTime(tl2);
var6 = TL_GetEndVal(tl2);
TL_SetEnd(tl2,sDate,sTime,ll);
}
Else
{
if Condition2 == true Then
TL_SetEnd(tl2,var4,var5,var6);
}
}
}
즐거운 하루되세요
> 졸던 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
>
수고 많으십니다.
첨부된 그림의 화살표 부분과 같이 분봉 차트 기준으로
동일한 고가와 저가 발생시 표시되도록 하고 싶습니다.
프로그램 수정 요청 드립니다.
=========================================================
input : ntime(5);
var : T1(0),S1(0),D1(0),TM(0),TF(0);
var:TextID(0);
if sdate != sdate[1] Then
{
T1 = Floor(sTime/10000)*10000;
S1 = TimeToMinutes(T1);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
Var1 = DayHigh[0];
Var2 = dayClose[0];
var3 = High ;
Var4 = Low ;
Var5 = Close ;
If Var1==Var3 and var5 < var3 Then
{
Var5=Var1;
}
If Var2==Var4 and var5 > var4 Then
{
Var6=Var2;
}
}
Plot1(Var5,"동일고가");
Plot2(Var6,"동일저가");
=========================================================
이상
답변 감사 합니다.
제가 말씀 드린것은 당일의 고가 저가 입니다.
그림에서와 같이 현시점에서 그날의 고가가 5분봉 기준으로
동일가격이 발생할 때 표시 되는 것입니다.
덧붙여 추세선은 선의 종류나 색상등을 선택 할수 없어
"plot" 명령을 사용 한것 입니다. ; 다른 명령어는 쓸줄도 몰라서 ^^;;
수고 스러우시겠지만 재차 검토 바랍니다.
이상
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 문의 드립니다.
> 안녕하세요
예스스탁입니다.
타주기에서 동일 최고가나 최저가가 발생하면
수평으로 그려야 하므로 plot으로는 가능하지 않아
추세선으로 그려지게 작성해 드립니다.
input : ntime(5);
var : T1(0),S1(0),D1(0),TM(0),TF(0);
var : hh(0),ll(0),hh1(0),ll1(0);
var : dd(0),tt(0),dd1(0),tt1(0);
var : x(0),x1(0),y(0),y1(0),tl1(0),tl2(0);
if Bdate != bdate[1] Then
{
T1 = Floor(Stime/10000)*10000;
S1 = TimeToMinutes(T1);
D1 = NextBarSdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(sTime)-S1;
Else
TM = TimeToMinutes(sTime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
hh = H;
ll = L;
hh1 = hh[1];
ll1 = ll[1];
dd = sdate;
tt = stime;
dd1 = dd[1];
tt1 = tt[1];
x = 0;
x1 = x[1];
Condition1 = False;
y = 0;
y1 = y[1];
Condition2 = False;
}
Else
{
if h > hh Then
hh = h;
if l < ll Then
ll = L;
}
if hh == hh1 Then
x = 1;
Else
x = 0;
if ll == ll1 Then
y = 1;
Else
y = 0;
if x1 == 0 Then
{
if x == 1 Then
{
if Condition1 == False Then
{
Condition1 = true;
tl1 = tl_new(dd1,tt1,hh1,sDate,sTime,hh);
TL_SetColor(tl1,Red);
}
if Condition1 == true Then
TL_SetEnd(tl1,sDate,sTime,hh);
}
Else
{
if Condition1 == true Then
TL_Delete(tl1);
}
}
Else
{
if x == 1 Then
{
Condition1 = true;
var1 = TL_GetEndDate(tl1);
var2 = TL_GetEndTime(tl1);
var3 = TL_GetEndVal(tl1);
TL_SetEnd(tl1,sDate,sTime,hh);
}
Else
{
if Condition1 == true Then
TL_SetEnd(tl1,var1,var2,var3);
}
}
if y1 == 0 Then
{
if y == 1 Then
{
if Condition2 == False Then
{
Condition2 = true;
tl2 = tl_new(dd1,tt1,ll1,sDate,sTime,ll);
TL_SetColor(tl2,Blue);
}
if Condition2 == true Then
TL_SetEnd(tl2,sDate,sTime,ll);
}
Else
{
if Condition2 == true Then
TL_Delete(tl2);
}
}
Else
{
if y == 1 Then
{
Condition2 = true;
var4 = TL_GetEndDate(tl2);
var5 = TL_GetEndTime(tl2);
var6 = TL_GetEndVal(tl2);
TL_SetEnd(tl2,sDate,sTime,ll);
}
Else
{
if Condition2 == true Then
TL_SetEnd(tl2,var4,var5,var6);
}
}
}
즐거운 하루되세요
> 졸던 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
>
수고 많으십니다.
첨부된 그림의 화살표 부분과 같이 분봉 차트 기준으로
동일한 고가와 저가 발생시 표시되도록 하고 싶습니다.
프로그램 수정 요청 드립니다.
=========================================================
input : ntime(5);
var : T1(0),S1(0),D1(0),TM(0),TF(0);
var:TextID(0);
if sdate != sdate[1] Then
{
T1 = Floor(sTime/10000)*10000;
S1 = TimeToMinutes(T1);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
Var1 = DayHigh[0];
Var2 = dayClose[0];
var3 = High ;
Var4 = Low ;
Var5 = Close ;
If Var1==Var3 and var5 < var3 Then
{
Var5=Var1;
}
If Var2==Var4 and var5 > var4 Then
{
Var6=Var2;
}
}
Plot1(Var5,"동일고가");
Plot2(Var6,"동일저가");
=========================================================
이상
예스스탁
예스스탁 답변
2024-11-26 11:47:14
안녕하세요
예스스탁입니다.
아래 내용 참고하시기 바랍니다.
1번식은
당일고가와 동일한 고가가 연속 2봉이상 발생하거나
당일저가와 동일한 저가가 연속 2봉이상 발생하면
수평으로 다음 조건 발생시까지 그리게 됩니다.
만약 고가/저가 수평선 유지 중 당일고가가 갱신되거나 당일저가가 갱신되면
수평선을 더이상 그리지 않고자 하시면 2번식을 사용하시면 됩니다.
1
var : dh(0),dl(0),tl1(0),tl2(0);
if Bdate != Bdate[1] Then
{
dh = h;
dl = l;
Condition1 = False;
Condition2 = False;
var1 = 0;
var2 = 0;
}
Else
{
if h > dh Then
{
dh = h;
Condition1 = False;
}
if l < dl Then
{
dl = l;
Condition2 = false;
}
if Condition1 == False and h == dh and h[1] == dh Then
{
Condition1 = true;
var1 = dh;
tl1 = TL_New(sDate[1],stime[1],var1,sDate,sTime,var1);
TL_SetColor(tl1,Red);
TL_SetSize(tl1,1);
}
if var1 > 0 Then
TL_SetEnd(tl1,sDate,sTime,var1);
if Condition2 == False and l == dl and l[1] == dl Then
{
Condition2 = true;
var2 = dl;
tl2 = TL_New(sDate[1],stime[1],var2,sDate,sTime,var2);
TL_SetColor(tl2,Blue);
TL_SetSize(tl2,1);
}
if var2 > 0 Then
TL_SetEnd(tl2,sDate,sTime,var2);
}
2
var : dh(0),dl(0),tl1(0),tl2(0);
if Bdate != Bdate[1] Then
{
dh = h;
dl = l;
Condition1 = False;
Condition2 = False;
var1 = 0;
var2 = 0;
}
Else
{
if h > dh Then
{
dh = h;
Condition1 = False;
var1 = 0;
}
if l < dl Then
{
dl = l;
Condition2 = false;
var2 = 0;
}
if Condition1 == False and h == dh and h[1] == dh Then
{
Condition1 = true;
var1 = dh;
tl1 = TL_New(sDate[1],stime[1],var1,sDate,sTime,var1);
TL_SetColor(tl1,Red);
TL_SetSize(tl1,1);
}
if var1 > 0 Then
TL_SetEnd(tl1,sDate,sTime,var1);
if Condition2 == False and l == dl and l[1] == dl Then
{
Condition2 = true;
var2 = dl;
tl2 = TL_New(sDate[1],stime[1],var2,sDate,sTime,var2);
TL_SetColor(tl2,Blue);
TL_SetSize(tl2,1);
}
if var2 > 0 Then
TL_SetEnd(tl2,sDate,sTime,var2);
}
즐거운 하루되세요
> 졸던 님이 쓴 글입니다.
> 제목 : Re : Re : 문의 드립니다.
>
답변 감사 합니다.
제가 말씀 드린것은 당일의 고가 저가 입니다.
그림에서와 같이 현시점에서 그날의 고가가 5분봉 기준으로
동일가격이 발생할 때 표시 되는 것입니다.
덧붙여 추세선은 선의 종류나 색상등을 선택 할수 없어
"plot" 명령을 사용 한것 입니다. ; 다른 명령어는 쓸줄도 몰라서 ^^;;
수고 스러우시겠지만 재차 검토 바랍니다.
이상
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 문의 드립니다.
> 안녕하세요
예스스탁입니다.
타주기에서 동일 최고가나 최저가가 발생하면
수평으로 그려야 하므로 plot으로는 가능하지 않아
추세선으로 그려지게 작성해 드립니다.
input : ntime(5);
var : T1(0),S1(0),D1(0),TM(0),TF(0);
var : hh(0),ll(0),hh1(0),ll1(0);
var : dd(0),tt(0),dd1(0),tt1(0);
var : x(0),x1(0),y(0),y1(0),tl1(0),tl2(0);
if Bdate != bdate[1] Then
{
T1 = Floor(Stime/10000)*10000;
S1 = TimeToMinutes(T1);
D1 = NextBarSdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(sTime)-S1;
Else
TM = TimeToMinutes(sTime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
hh = H;
ll = L;
hh1 = hh[1];
ll1 = ll[1];
dd = sdate;
tt = stime;
dd1 = dd[1];
tt1 = tt[1];
x = 0;
x1 = x[1];
Condition1 = False;
y = 0;
y1 = y[1];
Condition2 = False;
}
Else
{
if h > hh Then
hh = h;
if l < ll Then
ll = L;
}
if hh == hh1 Then
x = 1;
Else
x = 0;
if ll == ll1 Then
y = 1;
Else
y = 0;
if x1 == 0 Then
{
if x == 1 Then
{
if Condition1 == False Then
{
Condition1 = true;
tl1 = tl_new(dd1,tt1,hh1,sDate,sTime,hh);
TL_SetColor(tl1,Red);
}
if Condition1 == true Then
TL_SetEnd(tl1,sDate,sTime,hh);
}
Else
{
if Condition1 == true Then
TL_Delete(tl1);
}
}
Else
{
if x == 1 Then
{
Condition1 = true;
var1 = TL_GetEndDate(tl1);
var2 = TL_GetEndTime(tl1);
var3 = TL_GetEndVal(tl1);
TL_SetEnd(tl1,sDate,sTime,hh);
}
Else
{
if Condition1 == true Then
TL_SetEnd(tl1,var1,var2,var3);
}
}
if y1 == 0 Then
{
if y == 1 Then
{
if Condition2 == False Then
{
Condition2 = true;
tl2 = tl_new(dd1,tt1,ll1,sDate,sTime,ll);
TL_SetColor(tl2,Blue);
}
if Condition2 == true Then
TL_SetEnd(tl2,sDate,sTime,ll);
}
Else
{
if Condition2 == true Then
TL_Delete(tl2);
}
}
Else
{
if y == 1 Then
{
Condition2 = true;
var4 = TL_GetEndDate(tl2);
var5 = TL_GetEndTime(tl2);
var6 = TL_GetEndVal(tl2);
TL_SetEnd(tl2,sDate,sTime,ll);
}
Else
{
if Condition2 == true Then
TL_SetEnd(tl2,var4,var5,var6);
}
}
}
즐거운 하루되세요
> 졸던 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
>
수고 많으십니다.
첨부된 그림의 화살표 부분과 같이 분봉 차트 기준으로
동일한 고가와 저가 발생시 표시되도록 하고 싶습니다.
프로그램 수정 요청 드립니다.
=========================================================
input : ntime(5);
var : T1(0),S1(0),D1(0),TM(0),TF(0);
var:TextID(0);
if sdate != sdate[1] Then
{
T1 = Floor(sTime/10000)*10000;
S1 = TimeToMinutes(T1);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
Var1 = DayHigh[0];
Var2 = dayClose[0];
var3 = High ;
Var4 = Low ;
Var5 = Close ;
If Var1==Var3 and var5 < var3 Then
{
Var5=Var1;
}
If Var2==Var4 and var5 > var4 Then
{
Var6=Var2;
}
}
Plot1(Var5,"동일고가");
Plot2(Var6,"동일저가");
=========================================================
이상
성실하신 답변 진심 감사 합니다.
보내주신 내용은 연속적으로 나타나는 봉에 대해서는
표시 되는데, 그림과 같이 시간차가 있는 봉에서는 표시가
안되고 있습니다.
다신 한번 검토 부탁 드립니다
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : Re : Re : 문의 드립니다.
>
안녕하세요
예스스탁입니다.
아래 내용 참고하시기 바랍니다.
1번식은
당일고가와 동일한 고가가 연속 2봉이상 발생하거나
당일저가와 동일한 저가가 연속 2봉이상 발생하면
수평으로 다음 조건 발생시까지 그리게 됩니다.
만약 고가/저가 수평선 유지 중 당일고가가 갱신되거나 당일저가가 갱신되면
수평선을 더이상 그리지 않고자 하시면 2번식을 사용하시면 됩니다.
1
var : dh(0),dl(0),tl1(0),tl2(0);
if Bdate != Bdate[1] Then
{
dh = h;
dl = l;
Condition1 = False;
Condition2 = False;
var1 = 0;
var2 = 0;
}
Else
{
if h > dh Then
{
dh = h;
Condition1 = False;
}
if l < dl Then
{
dl = l;
Condition2 = false;
}
if Condition1 == False and h == dh and h[1] == dh Then
{
Condition1 = true;
var1 = dh;
tl1 = TL_New(sDate[1],stime[1],var1,sDate,sTime,var1);
TL_SetColor(tl1,Red);
TL_SetSize(tl1,1);
}
if var1 > 0 Then
TL_SetEnd(tl1,sDate,sTime,var1);
if Condition2 == False and l == dl and l[1] == dl Then
{
Condition2 = true;
var2 = dl;
tl2 = TL_New(sDate[1],stime[1],var2,sDate,sTime,var2);
TL_SetColor(tl2,Blue);
TL_SetSize(tl2,1);
}
if var2 > 0 Then
TL_SetEnd(tl2,sDate,sTime,var2);
}
2
var : dh(0),dl(0),tl1(0),tl2(0);
if Bdate != Bdate[1] Then
{
dh = h;
dl = l;
Condition1 = False;
Condition2 = False;
var1 = 0;
var2 = 0;
}
Else
{
if h > dh Then
{
dh = h;
Condition1 = False;
var1 = 0;
}
if l < dl Then
{
dl = l;
Condition2 = false;
var2 = 0;
}
if Condition1 == False and h == dh and h[1] == dh Then
{
Condition1 = true;
var1 = dh;
tl1 = TL_New(sDate[1],stime[1],var1,sDate,sTime,var1);
TL_SetColor(tl1,Red);
TL_SetSize(tl1,1);
}
if var1 > 0 Then
TL_SetEnd(tl1,sDate,sTime,var1);
if Condition2 == False and l == dl and l[1] == dl Then
{
Condition2 = true;
var2 = dl;
tl2 = TL_New(sDate[1],stime[1],var2,sDate,sTime,var2);
TL_SetColor(tl2,Blue);
TL_SetSize(tl2,1);
}
if var2 > 0 Then
TL_SetEnd(tl2,sDate,sTime,var2);
}
즐거운 하루되세요
> 졸던 님이 쓴 글입니다.
> 제목 : Re : Re : 문의 드립니다.
>
답변 감사 합니다.
제가 말씀 드린것은 당일의 고가 저가 입니다.
그림에서와 같이 현시점에서 그날의 고가가 5분봉 기준으로
동일가격이 발생할 때 표시 되는 것입니다.
덧붙여 추세선은 선의 종류나 색상등을 선택 할수 없어
"plot" 명령을 사용 한것 입니다. ; 다른 명령어는 쓸줄도 몰라서 ^^;;
수고 스러우시겠지만 재차 검토 바랍니다.
이상
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 문의 드립니다.
> 안녕하세요
예스스탁입니다.
타주기에서 동일 최고가나 최저가가 발생하면
수평으로 그려야 하므로 plot으로는 가능하지 않아
추세선으로 그려지게 작성해 드립니다.
input : ntime(5);
var : T1(0),S1(0),D1(0),TM(0),TF(0);
var : hh(0),ll(0),hh1(0),ll1(0);
var : dd(0),tt(0),dd1(0),tt1(0);
var : x(0),x1(0),y(0),y1(0),tl1(0),tl2(0);
if Bdate != bdate[1] Then
{
T1 = Floor(Stime/10000)*10000;
S1 = TimeToMinutes(T1);
D1 = NextBarSdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(sTime)-S1;
Else
TM = TimeToMinutes(sTime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
{
hh = H;
ll = L;
hh1 = hh[1];
ll1 = ll[1];
dd = sdate;
tt = stime;
dd1 = dd[1];
tt1 = tt[1];
x = 0;
x1 = x[1];
Condition1 = False;
y = 0;
y1 = y[1];
Condition2 = False;
}
Else
{
if h > hh Then
hh = h;
if l < ll Then
ll = L;
}
if hh == hh1 Then
x = 1;
Else
x = 0;
if ll == ll1 Then
y = 1;
Else
y = 0;
if x1 == 0 Then
{
if x == 1 Then
{
if Condition1 == False Then
{
Condition1 = true;
tl1 = tl_new(dd1,tt1,hh1,sDate,sTime,hh);
TL_SetColor(tl1,Red);
}
if Condition1 == true Then
TL_SetEnd(tl1,sDate,sTime,hh);
}
Else
{
if Condition1 == true Then
TL_Delete(tl1);
}
}
Else
{
if x == 1 Then
{
Condition1 = true;
var1 = TL_GetEndDate(tl1);
var2 = TL_GetEndTime(tl1);
var3 = TL_GetEndVal(tl1);
TL_SetEnd(tl1,sDate,sTime,hh);
}
Else
{
if Condition1 == true Then
TL_SetEnd(tl1,var1,var2,var3);
}
}
if y1 == 0 Then
{
if y == 1 Then
{
if Condition2 == False Then
{
Condition2 = true;
tl2 = tl_new(dd1,tt1,ll1,sDate,sTime,ll);
TL_SetColor(tl2,Blue);
}
if Condition2 == true Then
TL_SetEnd(tl2,sDate,sTime,ll);
}
Else
{
if Condition2 == true Then
TL_Delete(tl2);
}
}
Else
{
if y == 1 Then
{
Condition2 = true;
var4 = TL_GetEndDate(tl2);
var5 = TL_GetEndTime(tl2);
var6 = TL_GetEndVal(tl2);
TL_SetEnd(tl2,sDate,sTime,ll);
}
Else
{
if Condition2 == true Then
TL_SetEnd(tl2,var4,var5,var6);
}
}
}
즐거운 하루되세요
> 졸던 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
>
수고 많으십니다.
첨부된 그림의 화살표 부분과 같이 분봉 차트 기준으로
동일한 고가와 저가 발생시 표시되도록 하고 싶습니다.
프로그램 수정 요청 드립니다.
=========================================================
input : ntime(5);
var : T1(0),S1(0),D1(0),TM(0),TF(0);
var:TextID(0);
if sdate != sdate[1] Then
{
T1 = Floor(sTime/10000)*10000;
S1 = TimeToMinutes(T1);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%ntime;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or
(Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then
Var1 = DayHigh[0];
Var2 = dayClose[0];
var3 = High ;
Var4 = Low ;
Var5 = Close ;
If Var1==Var3 and var5 < var3 Then
{
Var5=Var1;
}
If Var2==Var4 and var5 > var4 Then
{
Var6=Var2;
}
}
Plot1(Var5,"동일고가");
Plot2(Var6,"동일저가");
=========================================================
이상