커뮤니티
추세선 쓰리바닥 저가라인
2023-02-08 22:21:37
913
글번호 166100
input : Period(35),pt(0.25);
Var:j(0),T(0),box(0),txx(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(value12);
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
Condition1 = False;
if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then
{
Condition1 = true;
txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]-PriceScale*0,"●");
Text_SetColor(txx,Cyan);
Text_SetSize(txx,20);
Text_SetStyle(txx,2,2);
box = Box_New(sdate[LObar[2]],sTime[LObar[2]],Hival[0],NextBarSdate,NextBarStime,Loval[0]);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,35);
}
}
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 Condition1 == true Then
Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]);
}
if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then
{
Condition1 = False;
Text_Delete(txx);
Box_Delete(box);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
text_Delete(txx);
Box_Delete(box);
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
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];
}
}
직전 두 저점의 차이가 0.25p 이내일 때 하락 추세선이 생기면 동그라미와 박스가 동시에 생겼다 쓰리바닥 조건이 끝나면 삭제하는 수식인데,
여기에 추가로 직전저점과 전전저점 둘중에 낮은 저점을 기준으로, 저가 수평 라인을 일자그래프로 동그라미 생길 때 동시에 표시했다가 삭제될 때 동시에 삭제. 저가라인은 직전저점이 더 낮다해도 시작점은 전전저점부터 굵기 색상 변경 가능하게 일자그래프 표시. 감사합니다.
답변 3
예스스탁 예스스탁 답변
2023-02-09 11:19:44
안녕하세요
예스스탁입니다.
input : Period(35),pt(0.25);
Var:j(0),T(0),box(0),txx(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(value12);
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
Condition1 = False;
if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then
{
Condition1 = true;
txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]-PriceScale*0,"●");
Text_SetColor(txx,Cyan);
Text_SetSize(txx,20);
Text_SetStyle(txx,2,2);
box = Box_New(sdate[LObar[2]],sTime[LObar[2]],Hival[0],NextBarSdate,NextBarStime,Loval[0]);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,35);
if LoVal[1] < LoVal[2] Then
TL = TL_New(sDate[Index-Lobar[1]],sTime[Index-Lobar[1]],Loval[1],NextBarSdate,NextBarStime,Loval[1]);
Else
TL = TL_New(sDate[Index-Lobar[2]],sTime[Index-Lobar[2]],Loval[2],NextBarSdate,NextBarStime,Loval[2]);
}
}
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 Condition1 == true Then
Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]);
}
if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then
{
Condition1 = False;
Text_Delete(txx);
Box_Delete(box);
tl_Delete(tl);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
text_Delete(txx);
Box_Delete(box);
TL_Delete(tl);
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
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];
}
}
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 추세선 쓰리바닥 저가라인
> input : Period(35),pt(0.25);
Var:j(0),T(0),box(0),txx(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(value12);
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
Condition1 = False;
if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then
{
Condition1 = true;
txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]-PriceScale*0,"●");
Text_SetColor(txx,Cyan);
Text_SetSize(txx,20);
Text_SetStyle(txx,2,2);
box = Box_New(sdate[LObar[2]],sTime[LObar[2]],Hival[0],NextBarSdate,NextBarStime,Loval[0]);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,35);
}
}
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 Condition1 == true Then
Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]);
}
if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then
{
Condition1 = False;
Text_Delete(txx);
Box_Delete(box);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
text_Delete(txx);
Box_Delete(box);
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
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];
}
}
직전 두 저점의 차이가 0.25p 이내일 때 하락 추세선이 생기면 동그라미와 박스가 동시에 생겼다 쓰리바닥 조건이 끝나면 삭제하는 수식인데,
여기에 추가로 직전저점과 전전저점 둘중에 낮은 저점을 기준으로, 저가 수평 라인을 일자그래프로 동그라미 생길 때 동시에 표시했다가 삭제될 때 동시에 삭제. 저가라인은 직전저점이 더 낮다해도 시작점은 전전저점부터 굵기 색상 변경 가능하게 일자그래프 표시. 감사합니다.
고성
2023-02-09 14:48:38
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 추세선 쓰리바닥 저가라인
>
안녕하세요
예스스탁입니다.
input : Period(35),pt(0.25);
Var:j(0),T(0),box(0),txx(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(value12);
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
Condition1 = False;
if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then
{
Condition1 = true;
txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]-PriceScale*0,"●");
Text_SetColor(txx,Cyan);
Text_SetSize(txx,20);
Text_SetStyle(txx,2,2);
box = Box_New(sdate[LObar[2]],sTime[LObar[2]],Hival[0],NextBarSdate,NextBarStime,Loval[0]);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,35);
if LoVal[1] < LoVal[2] Then
TL = TL_New(sDate[Index-Lobar[1]],sTime[Index-Lobar[1]],Loval[1],NextBarSdate,NextBarStime,Loval[1]);
Else
TL = TL_New(sDate[Index-Lobar[2]],sTime[Index-Lobar[2]],Loval[2],NextBarSdate,NextBarStime,Loval[2]);
}
}
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 Condition1 == true Then
Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]);
}
if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then
{
Condition1 = False;
Text_Delete(txx);
Box_Delete(box);
tl_Delete(tl);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
text_Delete(txx);
Box_Delete(box);
TL_Delete(tl);
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
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];
}
}
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 추세선 쓰리바닥 저가라인
> input : Period(35),pt(0.25);
Var:j(0),T(0),box(0),txx(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(value12);
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
Condition1 = False;
if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then
{
Condition1 = true;
txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]-PriceScale*0,"●");
Text_SetColor(txx,Cyan);
Text_SetSize(txx,20);
Text_SetStyle(txx,2,2);
box = Box_New(sdate[LObar[2]],sTime[LObar[2]],Hival[0],NextBarSdate,NextBarStime,Loval[0]);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,35);
}
}
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 Condition1 == true Then
Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]);
}
if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then
{
Condition1 = False;
Text_Delete(txx);
Box_Delete(box);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
text_Delete(txx);
Box_Delete(box);
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
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];
}
}
직전 두 저점의 차이가 0.25p 이내일 때 하락 추세선이 생기면 동그라미와 박스가 동시에 생겼다 쓰리바닥 조건이 끝나면 삭제하는 수식인데,
여기에 추가로 직전저점과 전전저점 둘중에 낮은 저점을 기준으로, 저가 수평 라인을 일자그래프로 동그라미 생길 때 동시에 표시했다가 삭제될 때 동시에 삭제. 저가라인은 직전저점이 더 낮다해도 시작점은 전전저점부터 굵기 색상 변경 가능하게 일자그래프 표시. 감사합니다.
재문의
저가라인을 현재 박스 시작점과 같이 전전저점에서 시작하고, 저점은 둘중 낮은 저점을 기준으로하여 좌측은 지우고 우측으로만 연장으로 수정. 라인 위치는 정상. 감사합니다.
예스스탁 예스스탁 답변
2023-02-09 16:57:34
안녕하세요
예스스탁입니다.
input : Period(35),pt(0.25);
Var:j(0),T(0),box(0),txx(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),d1(0),t1(0),l1(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(value12);
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
Condition1 = False;
if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then
{
Condition1 = true;
txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]-PriceScale*0,"●");
Text_SetColor(txx,Cyan);
Text_SetSize(txx,20);
Text_SetStyle(txx,2,2);
box = Box_New(sdate[LObar[2]],sTime[LObar[2]],Hival[0],NextBarSdate,NextBarStime,Loval[0]);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,35);
if LoVal[1] < LoVal[2] Then
{
D1 = sdate[Lobar[1]];
T1 = sTime[Lobar[1]];
L1 = Loval[1];
}
Else
{
D1 = sdate[Lobar[2]];
T1 = sTime[Lobar[2]];
L1 = Loval[2];
}
TL = TL_New(D1,T1,L1,NextBarSdate,NextBarStime,L1);
TL_SetColor(tl1,Green);
TL_SetSize(tl1,1);
}
}
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 Condition1 == true Then
{
Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]);
TL_SetEnd(tl,NextBarSdate,NextBarStime,L1);
}
}
if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then
{
Condition1 = False;
Text_Delete(txx);
Box_Delete(box);
tl_Delete(tl);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
text_Delete(txx);
Box_Delete(box);
TL_Delete(tl);
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
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];
}
}
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : Re : Re : 추세선 쓰리바닥 저가라인
>
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 추세선 쓰리바닥 저가라인
>
안녕하세요
예스스탁입니다.
input : Period(35),pt(0.25);
Var:j(0),T(0),box(0),txx(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(value12);
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
Condition1 = False;
if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then
{
Condition1 = true;
txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]-PriceScale*0,"●");
Text_SetColor(txx,Cyan);
Text_SetSize(txx,20);
Text_SetStyle(txx,2,2);
box = Box_New(sdate[LObar[2]],sTime[LObar[2]],Hival[0],NextBarSdate,NextBarStime,Loval[0]);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,35);
if LoVal[1] < LoVal[2] Then
TL = TL_New(sDate[Index-Lobar[1]],sTime[Index-Lobar[1]],Loval[1],NextBarSdate,NextBarStime,Loval[1]);
Else
TL = TL_New(sDate[Index-Lobar[2]],sTime[Index-Lobar[2]],Loval[2],NextBarSdate,NextBarStime,Loval[2]);
}
}
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 Condition1 == true Then
Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]);
}
if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then
{
Condition1 = False;
Text_Delete(txx);
Box_Delete(box);
tl_Delete(tl);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
text_Delete(txx);
Box_Delete(box);
TL_Delete(tl);
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
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];
}
}
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 추세선 쓰리바닥 저가라인
> input : Period(35),pt(0.25);
Var:j(0),T(0),box(0),txx(0);
Var: date11(0),date12(0),time11(0),time12(0),TL1(0),TL(0),
date21(0),date22(0),time21(0),time22(0),
date31(0),date32(0),time31(0),time32(0),tx(0),tx1(0),tl4(0);
Array:HiVal[20](0),LoVal[20](0),HiBar[20](0),LoBar[20](0);
Array:r[7](0),fr[7](0),TL2[7](0),TL3[7](0),TX2[7](0),TX3[7](0);
Plot1(value12);
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];
for j = 0 to 6
{
fr[j] = LoVal[1] + ((HiVal[0] - LoVal[1]) * r[j]);
}
Condition1 = False;
if max(LoVal[1],LoVal[2]) <= min(LoVal[1],LoVal[2])+pt Then
{
Condition1 = true;
txx = Text_New(sdate[HiBar[0]],sTime[HiBar[0]],Hival[0]-PriceScale*0,"●");
Text_SetColor(txx,Cyan);
Text_SetSize(txx,20);
Text_SetStyle(txx,2,2);
box = Box_New(sdate[LObar[2]],sTime[LObar[2]],Hival[0],NextBarSdate,NextBarStime,Loval[0]);
Box_SetColor(box,Magenta);
Box_SetFill(box,true,35);
}
}
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 Condition1 == true Then
Box_SetEnd(box,NextBarSdate,NextBarStime,Loval[0]);
}
if Condition1 == true and LoVal[0] < max(LoVal[1],LoVal[2])-pt Then
{
Condition1 = False;
Text_Delete(txx);
Box_Delete(box);
}
}
If T == 1 Then
{
If T[1] != 1 Then
{
text_Delete(txx);
Box_Delete(box);
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];
for j = 0 to 5
{
fr[j] = LoVal[0] + ((HiVal[1] - LoVal[0]) * r[j]);
}
}
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];
}
}
직전 두 저점의 차이가 0.25p 이내일 때 하락 추세선이 생기면 동그라미와 박스가 동시에 생겼다 쓰리바닥 조건이 끝나면 삭제하는 수식인데,
여기에 추가로 직전저점과 전전저점 둘중에 낮은 저점을 기준으로, 저가 수평 라인을 일자그래프로 동그라미 생길 때 동시에 표시했다가 삭제될 때 동시에 삭제. 저가라인은 직전저점이 더 낮다해도 시작점은 전전저점부터 굵기 색상 변경 가능하게 일자그래프 표시. 감사합니다.
재문의
저가라인을 현재 박스 시작점과 같이 전전저점에서 시작하고, 저점은 둘중 낮은 저점을 기준으로하여 좌측은 지우고 우측으로만 연장으로 수정. 라인 위치는 정상. 감사합니다.