커뮤니티
추세선 고저라인2
2023-03-10 12:16:41
1233
글번호 167051
input : Period(200),선두께(1);
Var:상승색(Red), 하락색(Blue);
Var:j(0),T(0);
Var: date11(0),date12(0),time11(0),time12(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
var : tl(0),tl1(0),tl2(0),tl3(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Plot1(0);
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
if crossup(c,highest(H,Period)[1]) Then
T = 1;
if CrossDown(c,Lowest(L,Period)[1]) Then
T = -1;
If T == -1 Then
{
If T[1] != -1 Then
{
For j = 18 DownTo 0
{
LoVal[j+1] = LoVal[j];
LoBar[j+1] = LoBar[j];
}
LoVal[0] = L;
LoBar[0] = 0;
date11 = date[HiBar[0]];
time11 = stime[HiBar[0]];
Value11 = HiVal[0];
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
TL_SetEnd(TL2, date11, time11, Loval[1]);
TL_SetextRight(TL2,False);
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date22 = date[0];
time22 = stime[0];
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
For j = 18 DownTo 0
{
HiVal[j+1] = HiVal[j];
HiBar[j+1] = HiBar[j];
}
HiVal[0] = H;
HiBar[0] = 0;
date11 = date[LoBar[0]];
time11 = stime[LoBar[0]];
Value11 = LoVal[0];
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
TL_SetEnd(TL3, date11, time11, Hival[1]);
TL_SetExtRight(TL3,False);
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date32 = date[0];
time32 = stime[0];
}
}
var : hh(0),ll(0);
var : a1(0),a2(0);
var : b1(0),b2(0);
if Bdate != Bdate[1] Then
{
hh = 0;
ll = 0;
}
if T == 1 and date32 == sDate Then
{
if T == 1 and T[1] != 1 Then
{
a1 = tl3[1];
a2 = TL_GetEndVal(a1);
TL_SetEnd(a1,sDate,sTime,a2);
hh = value12;
TL3 = tl_new(date32,time32,value12,NextBarSdate,NextBarStime,value12);
TL_SetExtRight(TL3,true);
TL_SetColor(TL3,Magenta);
TL_SetSize(TL3,선두께);
}
if T == T[1] and (hh == 0 or (hh > 0 and value12 > hh)) Then
{
TL_SetEnd(a1,sDate,sTime,a2);
hh = value12;
TL_SetBegin(TL3, date32, time32, Value12);
TL_SetEnd(TL3, NextBarSdate, NextBarStime, Value12);
TL_SetExtRight(TL3,true);
TL_SetColor(TL3,Magenta);
TL_SetSize(TL3,선두께);
}
}
if T == -1 and date22 == sDate Then
{
if T == -1 and T[1] != -1 Then
{
b1 = tl2[1];
b2 = TL_GetEndVal(b1);
TL_SetEnd(b1,sDate,sTime,b2);
ll = value12;
TL2 = tl_new(date22,time22,value12,NextBarSdate,NextBarStime,value12);
TL_SetExtRight(TL2,true);
TL_SetColor(TL2,Blue);
TL_SetSize(TL2,선두께);
}
if T == T[1] and (ll == 0 or (ll > 0 and value12 < ll)) Then
{
TL_SetEnd(b1,sDate,sTime,b2);
ll = value12;
TL_SetBegin(TL2, date22, time22, Value12);
TL_SetEnd(TL2, NextBarSdate, NextBarStime, Value12);
TL_SetExtRight(TL2,true);
TL_SetColor(TL2,Blue);
TL_SetSize(TL2,선두께);
}
}
고가 라인 +0.3p, 저가 라인 -0.3p 지점에 색,굵기 따로 설정 가능하게 똑 같은 고,저가 라인 한번 더 표시.
감사합니다.
답변 1
예스스탁 예스스탁 답변
2023-03-13 14:21:32
안녕하세요
예스스탁입니다.
input : Period(200),선두께(1);
Var:상승색(Red), 하락색(Blue);
Var:j(0),T(0);
Var: date11(0),date12(0),time11(0),time12(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
var : tl(0),tl1(0),tl2(0),tl3(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
var : tl21(0),b11(0),b21(0);
var : tl31(0),a11(0),a21(0);
#Plot1(0);
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
if crossup(c,highest(H,Period)[1]) Then
T = 1;
if CrossDown(c,Lowest(L,Period)[1]) Then
T = -1;
If T == -1 Then
{
If T[1] != -1 Then
{
For j = 18 DownTo 0
{
LoVal[j+1] = LoVal[j];
LoBar[j+1] = LoBar[j];
}
LoVal[0] = L;
LoBar[0] = 0;
date11 = date[HiBar[0]];
time11 = stime[HiBar[0]];
Value11 = HiVal[0];
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
TL_SetEnd(TL2, date11, time11, Loval[1]);
TL_SetextRight(TL2,False);
TL_SetEnd(TL21, date11, time11, Loval[1]-0.3);
TL_SetextRight(TL21,False);
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date22 = date[0];
time22 = stime[0];
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
For j = 18 DownTo 0
{
HiVal[j+1] = HiVal[j];
HiBar[j+1] = HiBar[j];
}
HiVal[0] = H;
HiBar[0] = 0;
date11 = date[LoBar[0]];
time11 = stime[LoBar[0]];
Value11 = LoVal[0];
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
TL_SetEnd(TL3, date11, time11, Hival[1]);
TL_SetExtRight(TL3,False);
TL_SetEnd(TL31, date11, time11, Hival[1]+0.3);
TL_SetExtRight(TL31,False);
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date32 = date[0];
time32 = stime[0];
}
}
var : hh(0),ll(0);
var : a1(0),a2(0);
var : b1(0),b2(0);
if Bdate != Bdate[1] Then
{
hh = 0;
ll = 0;
}
if T == 1 and date32 == sDate Then
{
if T == 1 and T[1] != 1 Then
{
a1 = tl3[1];
a2 = TL_GetEndVal(a1);
TL_SetEnd(a1,sDate,sTime,a2);
a11 = tl31[1];
a21 = TL_GetEndVal(a11);
TL_SetEnd(a11,sDate,sTime,a21);
hh = value12;
TL3 = tl_new(date32,time32,value12,NextBarSdate,NextBarStime,value12);
TL_SetExtRight(TL3,true);
TL_SetColor(TL3,Magenta);
TL_SetSize(TL3,선두께);
TL31 = tl_new(date32,time32,value12+0.3,NextBarSdate,NextBarStime,value12+0.3);
TL_SetExtRight(TL31,true);
TL_SetColor(TL31,Red);
TL_SetSize(TL31,선두께);
}
if T == T[1] and (hh == 0 or (hh > 0 and value12 > hh)) Then
{
TL_SetEnd(a1,sDate,sTime,a2);
TL_SetEnd(a11,sDate,sTime,a21);
hh = value12;
TL_SetBegin(TL3, date32, time32, Value12);
TL_SetEnd(TL3, NextBarSdate, NextBarStime, Value12);
TL_SetBegin(TL31, date32, time32, Value12+0.3);
TL_SetEnd(TL31, NextBarSdate, NextBarStime, Value12+0.3);
}
}
if T == -1 and date22 == sDate Then
{
if T == -1 and T[1] != -1 Then
{
b1 = tl2[1];
b2 = TL_GetEndVal(b1);
b11 = tl21[1];
b21 = TL_GetEndVal(b11);
TL_SetEnd(b1,sDate,sTime,b2);
TL_SetEnd(b11,sDate,sTime,b21);
ll = value12;
TL2 = tl_new(date22,time22,value12,NextBarSdate,NextBarStime,value12);
TL_SetExtRight(TL2,true);
TL_SetColor(TL2,Blue);
TL_SetSize(TL2,선두께);
TL21 = tl_new(date22,time22,value12-0.3,NextBarSdate,NextBarStime,value12-0.3);
TL_SetExtRight(TL21,true);
TL_SetColor(TL21,Cyan);
TL_SetSize(TL21,선두께);
}
if T == T[1] and (ll == 0 or (ll > 0 and value12 < ll)) Then
{
TL_SetEnd(b1,sDate,sTime,b2);
TL_SetEnd(b11,sDate,sTime,b21);
ll = value12;
TL_SetBegin(TL2, date22, time22, Value12);
TL_SetEnd(TL2, NextBarSdate, NextBarStime, Value12);
TL_SetBegin(TL21, date22, time22, Value12-0.3);
TL_SetEnd(TL21, NextBarSdate, NextBarStime, Value12-0.3);
}
}
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 추세선 고저라인2
> input : Period(200),선두께(1);
Var:상승색(Red), 하락색(Blue);
Var:j(0),T(0);
Var: date11(0),date12(0),time11(0),time12(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
var : tl(0),tl1(0),tl2(0),tl3(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Plot1(0);
For j = 0 To 19
{
HiBar[j] = HiBar[j] + 1;
LoBar[j] = LoBar[j] + 1;
}
if crossup(c,highest(H,Period)[1]) Then
T = 1;
if CrossDown(c,Lowest(L,Period)[1]) Then
T = -1;
If T == -1 Then
{
If T[1] != -1 Then
{
For j = 18 DownTo 0
{
LoVal[j+1] = LoVal[j];
LoBar[j+1] = LoBar[j];
}
LoVal[0] = L;
LoBar[0] = 0;
date11 = date[HiBar[0]];
time11 = stime[HiBar[0]];
Value11 = HiVal[0];
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date21 = date[HiBar[0]];
time21 = stime[HiBar[0]];
date22 = date[0];
time22 = stime[0];
TL_SetEnd(TL2, date11, time11, Loval[1]);
TL_SetextRight(TL2,False);
}
If LoVal[0] > L Then
{
LoVal[0] = L;
LoBar[0] = 0;
date12 = date[LoBar[0]];
time12 = stime[LoBar[0]];
Value12 = LoVal[0];
date22 = date[0];
time22 = stime[0];
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
For j = 18 DownTo 0
{
HiVal[j+1] = HiVal[j];
HiBar[j+1] = HiBar[j];
}
HiVal[0] = H;
HiBar[0] = 0;
date11 = date[LoBar[0]];
time11 = stime[LoBar[0]];
Value11 = LoVal[0];
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date31 = date[LoBar[0]];
time31 = stime[LoBar[0]];
date32 = date[0];
time32 = stime[0];
TL_SetEnd(TL3, date11, time11, Hival[1]);
TL_SetExtRight(TL3,False);
}
If HiVal[0] < H Then
{
HiVal[0] = H;
HiBar[0] = 0;
date12 = date[HiBar[0]];
time12 = stime[HiBar[0]];
Value12 = HiVal[0];
date32 = date[0];
time32 = stime[0];
}
}
var : hh(0),ll(0);
var : a1(0),a2(0);
var : b1(0),b2(0);
if Bdate != Bdate[1] Then
{
hh = 0;
ll = 0;
}
if T == 1 and date32 == sDate Then
{
if T == 1 and T[1] != 1 Then
{
a1 = tl3[1];
a2 = TL_GetEndVal(a1);
TL_SetEnd(a1,sDate,sTime,a2);
hh = value12;
TL3 = tl_new(date32,time32,value12,NextBarSdate,NextBarStime,value12);
TL_SetExtRight(TL3,true);
TL_SetColor(TL3,Magenta);
TL_SetSize(TL3,선두께);
}
if T == T[1] and (hh == 0 or (hh > 0 and value12 > hh)) Then
{
TL_SetEnd(a1,sDate,sTime,a2);
hh = value12;
TL_SetBegin(TL3, date32, time32, Value12);
TL_SetEnd(TL3, NextBarSdate, NextBarStime, Value12);
TL_SetExtRight(TL3,true);
TL_SetColor(TL3,Magenta);
TL_SetSize(TL3,선두께);
}
}
if T == -1 and date22 == sDate Then
{
if T == -1 and T[1] != -1 Then
{
b1 = tl2[1];
b2 = TL_GetEndVal(b1);
TL_SetEnd(b1,sDate,sTime,b2);
ll = value12;
TL2 = tl_new(date22,time22,value12,NextBarSdate,NextBarStime,value12);
TL_SetExtRight(TL2,true);
TL_SetColor(TL2,Blue);
TL_SetSize(TL2,선두께);
}
if T == T[1] and (ll == 0 or (ll > 0 and value12 < ll)) Then
{
TL_SetEnd(b1,sDate,sTime,b2);
ll = value12;
TL_SetBegin(TL2, date22, time22, Value12);
TL_SetEnd(TL2, NextBarSdate, NextBarStime, Value12);
TL_SetExtRight(TL2,true);
TL_SetColor(TL2,Blue);
TL_SetSize(TL2,선두께);
}
}
고가 라인 +0.3p, 저가 라인 -0.3p 지점에 색,굵기 따로 설정 가능하게 똑 같은 고,저가 라인 한번 더 표시.
감사합니다.