커뮤니티
60038 참고하여 재질문드립니다.
2018-11-12 16:49:51
224
글번호 123587
바로 전에 올린 지그재그 지표는 저역시 실력이 일천하여 변환하기가 쉽지않습니다. 조금 더 비슷하지만, 로직을 확 다이어트한 개념인데요.
수식지왕님께서 제공해주셨습니다.
함수는 따로 셋팅하지않아도되네요..
#==========================================#
# 지 표 명 : 고저라인 지그재그 파동선
# 버 전 : 1.2
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
# 업데이트 : 2017-03-10
#==========================================#
Input:length(10),종가사용여부(1),파동선두께(2),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,RED);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,BLUE);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
}
최종꼭지점 = "저점";
}
////////////////////////////////
일단 저도 개발은 해보는데 영 쉽지는 않네요. 가능하시다면 위 로직으로 부탁드리겠습니다. 감사합니다.
추세선은 지워주셔도 무방하며, 위 수식만 응용해보려고하네요.
답변 1
예스스탁 예스스탁 답변
2018-11-13 16:37:05
안녕하세요
예스스탁입니다.
아래 내용 참고하셔서 이후 내용은 수정보완해 사용하시기 바랍니다.
input : P1(5),P2(10),P3(20),P4(50),P5(100);
var : count1(0),sumV1(0), sumV2(0), sumV3(0), sumV4(0), sumV5(0);
array : 이평[5](0),이평_txt[5](0),이평명[5]("");
var : upcross1(0),upcross2(0),upcross3(0),upcross4(0),upcross5(0);
var : dncross1(0),dncross2(0),dncross3(0),dncross4(0),dncross5(0);
var : uptx1(0),uptx2(0),uptx3(0),uptx4(0),uptx5(0);
var : dntx1(0),dntx2(0),dntx3(0),dntx4(0),dntx5(0);
if Bdate != Bdate[1] Then
{
upcross1 = 0;
upcross2 = 0;
upcross3 = 0;
upcross4 = 0;
upcross5 = 0;
dncross1 = 0;
dncross2 = 0;
dncross3 = 0;
dncross4 = 0;
dncross5 = 0;
}
sumV1 = 0;
sumV2 = 0;
sumV3 = 0;
sumV4 = 0;
sumV5 = 0;
for count1 = 0 to P5
{
if count1 < P1 Then
sumV1 = sumV1+DayClose(count1);
if count1 < P2 Then
sumV2 = sumV2+DayClose(count1);
if count1 < P3 Then
sumV3 = sumV3+DayClose(count1);
if count1 < P4 Then
sumV4 = sumV4+DayClose(count1);
if count1 < P5 Then
sumV5 = sumV5+DayClose(count1);
}
이평[1] = sumV1/P1;
이평[2] = sumV2/P2;
이평[3] = sumV3/P3;
이평[4] = sumV4/P4;
이평[5] = sumV5/P5;
이평명[1] = numtostr(P1,0);
이평명[2] = numtostr(P2,0);
이평명[3] = numtostr(P3,0);
이평명[4] = numtostr(P4,0);
이평명[5] = numtostr(P5,0);
Input:length(10),종가사용여부(1),파동선두께(2),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,RED);
if 저[1,1] < 이평[1][index-저[1,2]] and
고[2,1] > 이평[1][index-고[2,2]] and
저[2,1] < 이평[1][index-저[2,2]] and
bdate == bdate[index-저[2,2]] Then
{
upcross1 = upcross1+1;
uptx1 = text_new(고[2,3],고[2,4],고[2,1]+PriceScale*1,NumToStr(upcross1,0));
Text_SetStyle(uptx1,2,1);
text_setcolor(uptx1,BLUE);
}
if 저[1,1] < 이평[2][index-저[1,2]] and
고[2,1] > 이평[2][index-고[2,2]] and
저[2,1] < 이평[2][index-저[2,2]] and
bdate == bdate[index-저[2,2]] Then
{
upcross2 = upcross2+1;
uptx2 = text_new(고[2,3],고[2,4],고[2,1]+PriceScale*2,NumToStr(upcross2,0));
Text_SetStyle(uptx2,2,1);
text_setcolor(uptx2,BLUE);
}
if 저[1,1] < 이평[3][index-저[1,2]] and
고[2,1] > 이평[3][index-고[2,2]] and
저[2,1] < 이평[3][index-저[2,2]] and
bdate == bdate[index-저[2,2]] Then
{
upcross3 = upcross3+1;
uptx3 = text_new(고[2,3],고[2,4],고[2,1]+PriceScale*3,NumToStr(upcross3,0));
Text_SetStyle(uptx3,2,1);
text_setcolor(uptx3,BLUE);
}
if 저[1,1] < 이평[4][index-저[1,2]] and
고[2,1] > 이평[4][index-고[2,2]] and
저[2,1] < 이평[4][index-저[2,2]] and
bdate == bdate[index-저[2,2]] Then
{
upcross4 = upcross4+1;
uptx4 = text_new(고[2,3],고[2,4],고[2,1]+PriceScale*4,NumToStr(upcross4,0));
Text_SetStyle(uptx4,2,1);
text_setcolor(uptx4,BLUE);
}
if 저[1,1] < 이평[5][index-저[1,2]] and
고[2,1] > 이평[5][index-고[2,2]] and
저[2,1] < 이평[5][index-저[2,2]] and
bdate == bdate[index-저[2,2]] Then
{
upcross5 = upcross5+1;
uptx5 = text_new(고[2,3],고[2,4],고[2,1]+PriceScale*5,NumToStr(upcross5,0));
Text_SetStyle(uptx5,2,1);
text_setcolor(uptx5,BLUE);
}
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,BLUE);
if 고[1,1] > 이평[1][index-고[1,2]] and
저[2,1] < 이평[1][index-저[2,2]] and
고[2,1] > 이평[1][index-고[2,2]] and
bdate == bdate[index-고[2,2]] Then
{
dncross1 = dncross1+1;
dntx1 = text_new(저[2,3],저[2,4],저[2,1]-PriceScale*1,NumToStr(dncross1,0));
Text_SetStyle(dntx1,2,0);
text_setcolor(dntx1,red);
}
if 고[1,1] > 이평[2][index-고[1,2]] and
저[2,1] < 이평[2][index-저[2,2]] and
고[2,1] > 이평[2][index-고[2,2]] and
bdate == bdate[index-고[2,2]] Then
{
dncross2 = dncross2+1;
dntx2 = text_new(저[2,3],저[2,4],저[2,1]-PriceScale*2,NumToStr(dncross2,0));
Text_SetStyle(dntx2,2,0);
text_setcolor(dntx2,red);
}
if 고[1,1] > 이평[3][index-고[1,2]] and
저[2,1] < 이평[3][index-저[2,2]] and
고[2,1] > 이평[3][index-고[2,2]] and
bdate == bdate[index-고[2,2]] Then
{
dncross3 = dncross3+1;
dntx3 = text_new(저[2,3],저[2,4],저[2,1]-PriceScale*3,NumToStr(dncross3,0));
Text_SetStyle(dntx3,2,0);
text_setcolor(dntx3,red);
}
if 고[1,1] > 이평[4][index-고[1,2]] and
저[2,1] < 이평[4][index-저[2,2]] and
고[2,1] > 이평[4][index-고[2,2]] and
bdate == bdate[index-고[2,2]] Then
{
dncross4 = dncross4+1;
dntx4 = text_new(저[2,3],저[2,4],저[2,1]-PriceScale*4,NumToStr(dncross4,0));
Text_SetStyle(dntx4,2,0);
text_setcolor(dntx4,red);
}
if 고[1,1] > 이평[5][index-고[1,2]] and
저[2,1] < 이평[5][index-저[2,2]] and
고[2,1] > 이평[5][index-고[2,2]] and
bdate == bdate[index-고[2,2]] Then
{
dncross5 = dncross5+1;
dntx5 = text_new(저[2,3],저[2,4],저[2,1]-PriceScale*5,NumToStr(dncross5,0));
Text_SetStyle(dntx5,2,0);
text_setcolor(dntx5,red);
}
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
}
최종꼭지점 = "저점";
}
plot2(이평[1]);
plot3(이평[2]);
plot4(이평[3]);
plot5(이평[4]);
plot6(이평[5]);
즐거운 하루되세요
> stockric 님이 쓴 글입니다.
> 제목 : 60038 참고하여 재질문드립니다.
> 바로 전에 올린 지그재그 지표는 저역시 실력이 일천하여 변환하기가 쉽지않습니다. 조금 더 비슷하지만, 로직을 확 다이어트한 개념인데요.
수식지왕님께서 제공해주셨습니다.
함수는 따로 셋팅하지않아도되네요..
#==========================================#
# 지 표 명 : 고저라인 지그재그 파동선
# 버 전 : 1.2
# 작 성 자 : 수식지왕
# 블 로 그 : http://yahoosir.blog.me
# 업데이트 : 2017-03-10
#==========================================#
Input:length(10),종가사용여부(1),파동선두께(2),수치표시(1);
Var:j(0),jj(0),HH(0),LL(0),최종고가(0),최종저가(0),최종꼭지점(""),처리구분(""),
TL1(0),Text1(0);
Array:고[10,4](0),저[10,4](0); // 1:가격,2:Index,3:sDate,4:sTime
#==========================================#
HH = IFF(종가사용여부==1,C,H);
LL = IFF(종가사용여부==1,C,L);
If Index == 0 Then
{
고[1,1] = HH;
저[1,1] = LL;
}
Condition1 = Highest(HH,length) == HH and 최종고가 <> HH;
Condition2 = Lowest (LL,length) == LL and 최종저가 <> LL;
처리구분 = "";
If Condition1 and Condition2 Then // 기간고점과 기간저점 동시 발생
{
If 최종꼭지점 == "저점" Then
{
If 저[1,1] > LL Then 처리구분 = "저점처리";
Else 처리구분 = "고점처리";
}
Else If 최종꼭지점 == "고점" Then
{
If 고[1,1] < HH Then 처리구분 = "고점처리";
Else 처리구분 = "저점처리";
}
}
Else If Condition1 Then 처리구분 = "고점처리";
Else If Condition2 Then 처리구분 = "저점처리";
#==========================================#
If 처리구분 == "고점처리" Then
{
최종고가 = HH; // 신규고점을 체크하기 위해 저장
If 최종꼭지점 == "저점" Then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
고[j,jj] = 고[j-1,jj];
}
}
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL1 = TL_New(저[1,3],저[1,4],저[1,1],고[1,3],고[1,4],고[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(고[1,3],고[1,4],고[1,1],NumToStr(고[1,1],2));
Text_SetStyle(Text1, 2, 1);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,RED);
}
Else If 고[1,1] < HH Then // 1번 고점보다 높은 고가 출현
{
고[1,1] = HH;
고[1,2] = Index;
고[1,3] = sDate;
고[1,4] = sTime;
TL_SetEnd(TL1,고[1,3],고[1,4],고[1,1]);
// 시작점은 변동없고 끝점의 위치가 현재 봉으로 연장된 것임
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,고[1,3],고[1,4],고[1,1]);
Text_SetString(Text1,NumToStr(고[1,1],2));
}
}
최종꼭지점 = "고점";
}
#==========================================#
If 처리구분 == "저점처리" Then
{
최종저가 = LL;
If 최종꼭지점 == "고점" then
{
For j = 10 DownTo 2
{
For jj = 1 To 4
{
저[j,jj] = 저[j-1,jj];
}
}
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL1 = TL_New(고[1,3],고[1,4],고[1,1],저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text1 = Text_New(저[1,3],저[1,4],저[1,1],NumToStr(저[1,1],2));
Text_SetStyle(Text1, 2, 0);
}
TL_SetSize(TL1,파동선두께);
TL_SetColor(TL1,BLUE);
}
Else If 저[1,1] > LL then
{
저[1,1] = LL;
저[1,2] = Index;
저[1,3] = sDate;
저[1,4] = sTime;
TL_SetEnd(TL1,저[1,3],저[1,4],저[1,1]);
If 수치표시 == 1 Then
{
Text_SetLocation(Text1,저[1,3],저[1,4],저[1,1]);
Text_SetString(Text1,NumToStr(저[1,1],2));
}
}
최종꼭지점 = "저점";
}
////////////////////////////////
일단 저도 개발은 해보는데 영 쉽지는 않네요. 가능하시다면 위 로직으로 부탁드리겠습니다. 감사합니다.
추세선은 지워주셔도 무방하며, 위 수식만 응용해보려고하네요.
다음글
이전글