커뮤니티
문의 드립니다.
2016-06-13 11:34:18
147
글번호 98984
아래 지표는 파동선 지표입니다.
파동선이 하방 확정되면 매수신호가,
파동선이 상방 확정되면 매도신호가 나오도록 씨스템 신호 부탁드리고요.
파동선 하방 확정후 매수신호시 파동선 저가를 이탈하면 손절,
파동선 상방 확정후 매도신호시 파동선 고가를 돌파시 손절 나오도록 부탁드립니다.
적용 시간은 09:00~14:50까지로 해주시구요
Input:atrLength(14),multi(3),선굵기(2);
Var:j(0),dayATR(0),sum(0),upTr(100),dnTr(-100),trnd(0),
date11(0),date12(0),time11(0),time12(0),TL1(0),
date21(0),date22(0),time21(0),time22(0),TL2(0),
date31(0),date32(0),time31(0),time32(0),TL3(0),tx(0);
Array:hiVal[10](0),loVal[10](0),hiBar[10](0),loBar[10](0);
//hiVal[1]은 전고점, hiVal[2]는 전전고점, hiVal[3]은 전전전고점
//hiVal[0]은 변곡점 이후 현재봉까지의 고점. 현재 고점은 진행중이므로 계속 바뀐다.
//loVal[0]은 반대 개념
sum = 0;
for j = 1 to atrLength {
sum = sum + Max(C[j+1],H[j]) - Min(C[j+1],L[j]);
}
dayATR = sum/atrLength; //일봉기준으로 ATR 산출
for j = 1 to 9 { //전고,전저점을 9개까지 보관
loBar[j] = loBar[j] + 1; //전저점의 위치. 현재 봉으로부터 떨어져 있는 거리
hiBar[j] = hiBar[j] + 1; //전고점의 위치
}
if hiVal[0] <= H or hiVal[0] == 0 then { //전고,전저점 이후 현재까지의 고점
hiVal[0] = H; //0을 체크한 이유는 초기에 값이 없는 구간이 생기기 때문
hiBar[0] = 0; //현재 고점의 위치가 0이란 것은 현재봉의 고가가 구간 고점이라는 의미
}
else {
hiBar[0] = hiBar[0] + 1; //현재 고점의 위치
}
if loVal[0] >= L or loVal[0] == 0 then { //전고,전저점 이후 현재까지 저점
loVal[0] = L;
loBar[0] = 0;
}
else {
loBar[0] = loBar[0] + 1; //현재 구간 저점의 위치
}
if trnd != dnTr && hiVal[0] > H && hiVal[0] - (dayATR * multi) > L then trnd = dnTr;
//저가가 고가 대비 변동률보다 밑으로 떨어지면 하락추세로 설정
//단, 현재봉의 고가가 변곡점 이후 최고가이면 상승 추세가 진행중이라고 본다.
//그래서 현재봉의 고가가 hiVal[0]보다 작다는 조건이 추가되었다.
else if trnd != upTr && loVal[0] < L && loVal[0] + (dayATR * multi) < H then trnd = upTr;
//고가가 저가 대비 변동률보다 높으면 상승추세로 설정
if trnd[1] == upTr and trnd == dnTr then { //상승추세였다가 하락추세로 바뀌었다면
for j = 8 downto 1 { //새로운 전고점이 생기는 것이므로
hiVal[j+1] = hiVal[j]; //전고점을 하나씩 뒤로 보낸다.
hiBar[j+1] = hiBar[j]; //전고점은 전전고점이 되고, 전전고점은 전전전고점이 된다.
}
hiVal[1] = hiVal[0]; //새로운 전고점에 현재 고점을 대입
hiBar[1] = hiBar[0];
hiVal[0] = H; //전고점이 확정되었으므로 전고점 이후 최고가는 현재봉의 고가
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전고점이 새로 생긴 것이니까 전저점에서 전고점까지 추세선을 긋는다.
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
//TL_New는 신규 추세선을 그려주는 함수
}
if trnd[1] == dnTr and trnd == dnTr and //추세는 하락 상태에서 바뀌지 않았는데
hiVal[1] < hiVal[0] then { //전고점보다 더 높은 고점이 출현했다면
if loVal[1] <= loVal[0] then { //전저점은 갱신되지 않았다면
hiVal[1] = hiVal[0]; //전고점을 현재의 고점으로 바꿔준다.
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전고점이 추가된 게 아니고 바뀐 것이므로 종료일,종료시간,종료가격만 바꿔준다.
date12 = date[hiBar[1]]; //추세선 종료일
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
//TL_SetEnd는 기존추세선의 종료지점을 변경해주는 추세선 함수이다.
//TL_Delete 함수를 써서 직전의 추세선을 지우고 다시 TL_New로 추세선을 추가해도 된다.
}
else { //전저점도 갱신되었다면
for j = 8 downto 1 { //전고점, 전저점을 새로이 추기
hiVal[j+1] = hiVal[j]; //전고점을 하나씩 뒤로 보낸다.
hiBar[j+1] = hiBar[j]; //전고점은 전전고점이 되고, 전전고점은 전전전고점이 된다.
loVal[j+1] = loVal[j]; //전저점을 하나씩 뒤로 보낸다.
loBar[j+1] = loBar[j]; //전저점은 전전저점이 되고, 전전저점은 전전전저점이 된다.
}
hiVal[1] = hiVal[0]; //새로운 전고점에 현재 고점을 대입
hiBar[1] = hiBar[0];
loVal[1] = loVal[0]; //새로운 전저점에 현재 저점을 대입
loBar[1] = loBar[0];
hiVal[0] = H; //전고점 이후 최고가는 현재봉의 고가
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전저,전고점이 새로 생긴 것이니까 전전고점에서 전저점까지
//그리고 전저점에서 전고점까지 추세선 2개를 생성한다.
date11 = date[hiBar[2]]; //추세선 시작일. 전전고점의 날짜
time11 = stime[hiBar[2]]; //추세선 시작시간
Value11 = hiVal[2]; //추세선 시작가격
date12 = date[loBar[1]]; //추세선 종료일. 전저점의 날짜
time12 = stime[loBar[1]]; //추세선 종료시간
Value12 = loVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetSize(TL1,2);
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
}
if trnd[1] == dnTr and trnd == upTr then { //추세가 하락에서 상승으로 바뀌었을 경우
for j = 8 downto 1 {
//이전저점은 전전저점으로, 전전저점은 전전전저점으로 번호를 부여
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[hiBar[1]]; //전저점이 새로이 생긴 것이므로 시작점은 전고점이 된다.
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
if trnd[1] == upTr and trnd == upTr and //추세는 상승을 유지하고 있는데
loVal[1] > loVal[0] then { //전저점보다 낮은 저가가 출현했다면
if hiVal[1] >= hiVal[0] then { //고점 갱신이 되지 않았다면
loVal[1] = loVal[0]; //직전의 전저점만 바꿔준다.
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
}
else { //고점도 이전고점보다 높다면
for j = 8 downto 1 { //전고점,전저점을 새로이 생성
hiVal[j+1] = hiVal[j];
hiBar[j+1] = hiBar[j];
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[loBar[2]]; //시작점이 전전저점
time11 = stime[loBar[2]];
Value11 = loVal[2];
date12 = date[hiBar[1]]; //종료는 전고점
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetSize(TL1,2);
date11 = date[hiBar[1]]; //2번째 시작은 전고점이 된다.
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]]; //2번째 종료는 전저점
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
}
if trnd == upTr and loVal[2] > loVal[1] then
TL_SetColor(TL1,LYELLOW);
else if trnd == dnTr and hiVal[2] < hiVal[1] then
TL_SetColor(TL1,MAGENTA);
else
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,선굵기);
if var1 <= 0 and Trnd == uptr and Trnd != Trnd[1] Then{
var1 = 1;
value1 = loval[1];
tx = Text_New(sdate[lobar[1]],stime[lobar[1]],value1-PriceScale," "+NumToStr(loval[1],2));
Text_SetStyle(value1,2,2);
}
if var1 >= 0 and Trnd == dntr and Trnd != Trnd[1] then{
var1 = -1;
value1 = hival[1];
tx = Text_New(sdate[hibar[1]],stime[hibar[1]],value1+PriceScale," "+NumToStr(hival[1],2));
Text_SetStyle(value1,2,2);
}
if var1 == 1 Then
plot1(value1);
if var1 == -1 then
plot1(value1);
답변 1
예스스탁 예스스탁 답변
2016-06-13 17:02:54
안녕하세요
예스스탁입니다.
Input:atrLength(14),multi(3),선굵기(2);
Var:j(0),dayATR(0),sum(0),upTr(100),dnTr(-100),trnd(0),
date11(0),date12(0),time11(0),time12(0),TL1(0),
date21(0),date22(0),time21(0),time22(0),TL2(0),
date31(0),date32(0),time31(0),time32(0),TL3(0),tx(0);
Array:hiVal[10](0),loVal[10](0),hiBar[10](0),loBar[10](0);
//hiVal[1]은 전고점, hiVal[2]는 전전고점, hiVal[3]은 전전전고점
//hiVal[0]은 변곡점 이후 현재봉까지의 고점. 현재 고점은 진행중이므로 계속 바뀐다.
//loVal[0]은 반대 개념
sum = 0;
for j = 1 to atrLength {
sum = sum + Max(C[j+1],H[j]) - Min(C[j+1],L[j]);
}
dayATR = sum/atrLength; //일봉기준으로 ATR 산출
for j = 1 to 9 { //전고,전저점을 9개까지 보관
loBar[j] = loBar[j] + 1; //전저점의 위치. 현재 봉으로부터 떨어져 있는 거리
hiBar[j] = hiBar[j] + 1; //전고점의 위치
}
if hiVal[0] <= H or hiVal[0] == 0 then { //전고,전저점 이후 현재까지의 고점
hiVal[0] = H; //0을 체크한 이유는 초기에 값이 없는 구간이 생기기 때문
hiBar[0] = 0; //현재 고점의 위치가 0이란 것은 현재봉의 고가가 구간 고점이라는 의미
}
else {
hiBar[0] = hiBar[0] + 1; //현재 고점의 위치
}
if loVal[0] >= L or loVal[0] == 0 then { //전고,전저점 이후 현재까지 저점
loVal[0] = L;
loBar[0] = 0;
}
else {
loBar[0] = loBar[0] + 1; //현재 구간 저점의 위치
}
if trnd != dnTr && hiVal[0] > H && hiVal[0] - (dayATR * multi) > L then trnd = dnTr;
//저가가 고가 대비 변동률보다 밑으로 떨어지면 하락추세로 설정
//단, 현재봉의 고가가 변곡점 이후 최고가이면 상승 추세가 진행중이라고 본다.
//그래서 현재봉의 고가가 hiVal[0]보다 작다는 조건이 추가되었다.
else if trnd != upTr && loVal[0] < L && loVal[0] + (dayATR * multi) < H then trnd = upTr;
//고가가 저가 대비 변동률보다 높으면 상승추세로 설정
if trnd[1] == upTr and trnd == dnTr then { //상승추세였다가 하락추세로 바뀌었다면
for j = 8 downto 1 { //새로운 전고점이 생기는 것이므로
hiVal[j+1] = hiVal[j]; //전고점을 하나씩 뒤로 보낸다.
hiBar[j+1] = hiBar[j]; //전고점은 전전고점이 되고, 전전고점은 전전전고점이 된다.
}
hiVal[1] = hiVal[0]; //새로운 전고점에 현재 고점을 대입
hiBar[1] = hiBar[0];
hiVal[0] = H; //전고점이 확정되었으므로 전고점 이후 최고가는 현재봉의 고가
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전고점이 새로 생긴 것이니까 전저점에서 전고점까지 추세선을 긋는다.
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
//TL_New는 신규 추세선을 그려주는 함수
}
if trnd[1] == dnTr and trnd == dnTr and //추세는 하락 상태에서 바뀌지 않았는데
hiVal[1] < hiVal[0] then { //전고점보다 더 높은 고점이 출현했다면
if loVal[1] <= loVal[0] then { //전저점은 갱신되지 않았다면
hiVal[1] = hiVal[0]; //전고점을 현재의 고점으로 바꿔준다.
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전고점이 추가된 게 아니고 바뀐 것이므로 종료일,종료시간,종료가격만 바꿔준다.
date12 = date[hiBar[1]]; //추세선 종료일
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
//TL_SetEnd는 기존추세선의 종료지점을 변경해주는 추세선 함수이다.
//TL_Delete 함수를 써서 직전의 추세선을 지우고 다시 TL_New로 추세선을 추가해도 된다.
}
else { //전저점도 갱신되었다면
for j = 8 downto 1 { //전고점, 전저점을 새로이 추기
hiVal[j+1] = hiVal[j]; //전고점을 하나씩 뒤로 보낸다.
hiBar[j+1] = hiBar[j]; //전고점은 전전고점이 되고, 전전고점은 전전전고점이 된다.
loVal[j+1] = loVal[j]; //전저점을 하나씩 뒤로 보낸다.
loBar[j+1] = loBar[j]; //전저점은 전전저점이 되고, 전전저점은 전전전저점이 된다.
}
hiVal[1] = hiVal[0]; //새로운 전고점에 현재 고점을 대입
hiBar[1] = hiBar[0];
loVal[1] = loVal[0]; //새로운 전저점에 현재 저점을 대입
loBar[1] = loBar[0];
hiVal[0] = H; //전고점 이후 최고가는 현재봉의 고가
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전저,전고점이 새로 생긴 것이니까 전전고점에서 전저점까지
//그리고 전저점에서 전고점까지 추세선 2개를 생성한다.
date11 = date[hiBar[2]]; //추세선 시작일. 전전고점의 날짜
time11 = stime[hiBar[2]]; //추세선 시작시간
Value11 = hiVal[2]; //추세선 시작가격
date12 = date[loBar[1]]; //추세선 종료일. 전저점의 날짜
time12 = stime[loBar[1]]; //추세선 종료시간
Value12 = loVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetSize(TL1,2);
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
}
if trnd[1] == dnTr and trnd == upTr then { //추세가 하락에서 상승으로 바뀌었을 경우
for j = 8 downto 1 {
//이전저점은 전전저점으로, 전전저점은 전전전저점으로 번호를 부여
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[hiBar[1]]; //전저점이 새로이 생긴 것이므로 시작점은 전고점이 된다.
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
if trnd[1] == upTr and trnd == upTr and //추세는 상승을 유지하고 있는데
loVal[1] > loVal[0] then { //전저점보다 낮은 저가가 출현했다면
if hiVal[1] >= hiVal[0] then { //고점 갱신이 되지 않았다면
loVal[1] = loVal[0]; //직전의 전저점만 바꿔준다.
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
}
else { //고점도 이전고점보다 높다면
for j = 8 downto 1 { //전고점,전저점을 새로이 생성
hiVal[j+1] = hiVal[j];
hiBar[j+1] = hiBar[j];
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[loBar[2]]; //시작점이 전전저점
time11 = stime[loBar[2]];
Value11 = loVal[2];
date12 = date[hiBar[1]]; //종료는 전고점
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetSize(TL1,2);
date11 = date[hiBar[1]]; //2번째 시작은 전고점이 된다.
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]]; //2번째 종료는 전저점
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
}
if trnd == upTr and loVal[2] > loVal[1] then
TL_SetColor(TL1,LYELLOW);
else if trnd == dnTr and hiVal[2] < hiVal[1] then
TL_SetColor(TL1,MAGENTA);
else
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,선굵기);
if var1 <= 0 and Trnd == uptr and Trnd != Trnd[1] Then{
var1 = 1;
value1 = loval[1];
buy();
tx = Text_New(sdate[lobar[1]],stime[lobar[1]],value1-PriceScale," "+NumToStr(loval[1],2));
Text_SetStyle(value1,2,2);
}
if var1 >= 0 and Trnd == dntr and Trnd != Trnd[1] then{
var1 = -1;
value1 = hival[1];
sell();
tx = Text_New(sdate[hibar[1]],stime[hibar[1]],value1+PriceScale," "+NumToStr(hival[1],2));
Text_SetStyle(value1,2,2);
}
if MarketPosition == 1 Then
ExitLong("bx",AtStop,value1[BarsSinceEntry]);
if MarketPosition == -1 Then
ExitShort("sx",AtStop,value1[BarsSinceEntry]);
즐거운 하루되세요
> 도신님 님이 쓴 글입니다.
> 제목 : 문의 드립니다.
> 아래 지표는 파동선 지표입니다.
파동선이 하방 확정되면 매수신호가,
파동선이 상방 확정되면 매도신호가 나오도록 씨스템 신호 부탁드리고요.
파동선 하방 확정후 매수신호시 파동선 저가를 이탈하면 손절,
파동선 상방 확정후 매도신호시 파동선 고가를 돌파시 손절 나오도록 부탁드립니다.
적용 시간은 09:00~14:50까지로 해주시구요
Input:atrLength(14),multi(3),선굵기(2);
Var:j(0),dayATR(0),sum(0),upTr(100),dnTr(-100),trnd(0),
date11(0),date12(0),time11(0),time12(0),TL1(0),
date21(0),date22(0),time21(0),time22(0),TL2(0),
date31(0),date32(0),time31(0),time32(0),TL3(0),tx(0);
Array:hiVal[10](0),loVal[10](0),hiBar[10](0),loBar[10](0);
//hiVal[1]은 전고점, hiVal[2]는 전전고점, hiVal[3]은 전전전고점
//hiVal[0]은 변곡점 이후 현재봉까지의 고점. 현재 고점은 진행중이므로 계속 바뀐다.
//loVal[0]은 반대 개념
sum = 0;
for j = 1 to atrLength {
sum = sum + Max(C[j+1],H[j]) - Min(C[j+1],L[j]);
}
dayATR = sum/atrLength; //일봉기준으로 ATR 산출
for j = 1 to 9 { //전고,전저점을 9개까지 보관
loBar[j] = loBar[j] + 1; //전저점의 위치. 현재 봉으로부터 떨어져 있는 거리
hiBar[j] = hiBar[j] + 1; //전고점의 위치
}
if hiVal[0] <= H or hiVal[0] == 0 then { //전고,전저점 이후 현재까지의 고점
hiVal[0] = H; //0을 체크한 이유는 초기에 값이 없는 구간이 생기기 때문
hiBar[0] = 0; //현재 고점의 위치가 0이란 것은 현재봉의 고가가 구간 고점이라는 의미
}
else {
hiBar[0] = hiBar[0] + 1; //현재 고점의 위치
}
if loVal[0] >= L or loVal[0] == 0 then { //전고,전저점 이후 현재까지 저점
loVal[0] = L;
loBar[0] = 0;
}
else {
loBar[0] = loBar[0] + 1; //현재 구간 저점의 위치
}
if trnd != dnTr && hiVal[0] > H && hiVal[0] - (dayATR * multi) > L then trnd = dnTr;
//저가가 고가 대비 변동률보다 밑으로 떨어지면 하락추세로 설정
//단, 현재봉의 고가가 변곡점 이후 최고가이면 상승 추세가 진행중이라고 본다.
//그래서 현재봉의 고가가 hiVal[0]보다 작다는 조건이 추가되었다.
else if trnd != upTr && loVal[0] < L && loVal[0] + (dayATR * multi) < H then trnd = upTr;
//고가가 저가 대비 변동률보다 높으면 상승추세로 설정
if trnd[1] == upTr and trnd == dnTr then { //상승추세였다가 하락추세로 바뀌었다면
for j = 8 downto 1 { //새로운 전고점이 생기는 것이므로
hiVal[j+1] = hiVal[j]; //전고점을 하나씩 뒤로 보낸다.
hiBar[j+1] = hiBar[j]; //전고점은 전전고점이 되고, 전전고점은 전전전고점이 된다.
}
hiVal[1] = hiVal[0]; //새로운 전고점에 현재 고점을 대입
hiBar[1] = hiBar[0];
hiVal[0] = H; //전고점이 확정되었으므로 전고점 이후 최고가는 현재봉의 고가
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전고점이 새로 생긴 것이니까 전저점에서 전고점까지 추세선을 긋는다.
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
//TL_New는 신규 추세선을 그려주는 함수
}
if trnd[1] == dnTr and trnd == dnTr and //추세는 하락 상태에서 바뀌지 않았는데
hiVal[1] < hiVal[0] then { //전고점보다 더 높은 고점이 출현했다면
if loVal[1] <= loVal[0] then { //전저점은 갱신되지 않았다면
hiVal[1] = hiVal[0]; //전고점을 현재의 고점으로 바꿔준다.
hiBar[1] = hiBar[0];
hiVal[0] = H;
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전고점이 추가된 게 아니고 바뀐 것이므로 종료일,종료시간,종료가격만 바꿔준다.
date12 = date[hiBar[1]]; //추세선 종료일
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
//TL_SetEnd는 기존추세선의 종료지점을 변경해주는 추세선 함수이다.
//TL_Delete 함수를 써서 직전의 추세선을 지우고 다시 TL_New로 추세선을 추가해도 된다.
}
else { //전저점도 갱신되었다면
for j = 8 downto 1 { //전고점, 전저점을 새로이 추기
hiVal[j+1] = hiVal[j]; //전고점을 하나씩 뒤로 보낸다.
hiBar[j+1] = hiBar[j]; //전고점은 전전고점이 되고, 전전고점은 전전전고점이 된다.
loVal[j+1] = loVal[j]; //전저점을 하나씩 뒤로 보낸다.
loBar[j+1] = loBar[j]; //전저점은 전전저점이 되고, 전전저점은 전전전저점이 된다.
}
hiVal[1] = hiVal[0]; //새로운 전고점에 현재 고점을 대입
hiBar[1] = hiBar[0];
loVal[1] = loVal[0]; //새로운 전저점에 현재 저점을 대입
loBar[1] = loBar[0];
hiVal[0] = H; //전고점 이후 최고가는 현재봉의 고가
hiBar[0] = 0;
loVal[0] = L;
loBar[0] = 0;
//전저,전고점이 새로 생긴 것이니까 전전고점에서 전저점까지
//그리고 전저점에서 전고점까지 추세선 2개를 생성한다.
date11 = date[hiBar[2]]; //추세선 시작일. 전전고점의 날짜
time11 = stime[hiBar[2]]; //추세선 시작시간
Value11 = hiVal[2]; //추세선 시작가격
date12 = date[loBar[1]]; //추세선 종료일. 전저점의 날짜
time12 = stime[loBar[1]]; //추세선 종료시간
Value12 = loVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetSize(TL1,2);
date11 = date[loBar[1]]; //추세선 시작일. 전저점의 날짜
time11 = stime[loBar[1]]; //추세선 시작시간
Value11 = loVal[1]; //추세선 시작가격
date12 = date[hiBar[1]]; //추세선 종료일. 전고점의 날짜
time12 = stime[hiBar[1]]; //추세선 종료시간
Value12 = hiVal[1]; //추세선 종료가격
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
}
if trnd[1] == dnTr and trnd == upTr then { //추세가 하락에서 상승으로 바뀌었을 경우
for j = 8 downto 1 {
//이전저점은 전전저점으로, 전전저점은 전전전저점으로 번호를 부여
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[hiBar[1]]; //전저점이 새로이 생긴 것이므로 시작점은 전고점이 된다.
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
if trnd[1] == upTr and trnd == upTr and //추세는 상승을 유지하고 있는데
loVal[1] > loVal[0] then { //전저점보다 낮은 저가가 출현했다면
if hiVal[1] >= hiVal[0] then { //고점 갱신이 되지 않았다면
loVal[1] = loVal[0]; //직전의 전저점만 바꿔준다.
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date12 = date[loBar[1]];
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL_SetEnd(TL1, date12,time12,Value12);
}
else { //고점도 이전고점보다 높다면
for j = 8 downto 1 { //전고점,전저점을 새로이 생성
hiVal[j+1] = hiVal[j];
hiBar[j+1] = hiBar[j];
loVal[j+1] = loVal[j];
loBar[j+1] = loBar[j];
}
hiVal[1] = hiVal[0];
hiBar[1] = hiBar[0];
loVal[1] = loVal[0];
loBar[1] = loBar[0];
loVal[0] = L;
loBar[0] = 0;
hiVal[0] = H;
hiBar[0] = 0;
date11 = date[loBar[2]]; //시작점이 전전저점
time11 = stime[loBar[2]];
Value11 = loVal[2];
date12 = date[hiBar[1]]; //종료는 전고점
time12 = stime[hiBar[1]];
Value12 = hiVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
TL_SetSize(TL1,2);
date11 = date[hiBar[1]]; //2번째 시작은 전고점이 된다.
time11 = stime[hiBar[1]];
Value11 = hiVal[1];
date12 = date[loBar[1]]; //2번째 종료는 전저점
time12 = stime[loBar[1]];
Value12 = loVal[1];
TL1 = TL_New(date11,time11,Value11,date12,time12,Value12);
}
}
if trnd == upTr and loVal[2] > loVal[1] then
TL_SetColor(TL1,LYELLOW);
else if trnd == dnTr and hiVal[2] < hiVal[1] then
TL_SetColor(TL1,MAGENTA);
else
TL_SetColor(TL1,CYAN);
TL_SetSize(TL1,선굵기);
if var1 <= 0 and Trnd == uptr and Trnd != Trnd[1] Then{
var1 = 1;
value1 = loval[1];
tx = Text_New(sdate[lobar[1]],stime[lobar[1]],value1-PriceScale," "+NumToStr(loval[1],2));
Text_SetStyle(value1,2,2);
}
if var1 >= 0 and Trnd == dntr and Trnd != Trnd[1] then{
var1 = -1;
value1 = hival[1];
tx = Text_New(sdate[hibar[1]],stime[hibar[1]],value1+PriceScale," "+NumToStr(hival[1],2));
Text_SetStyle(value1,2,2);
}
if var1 == 1 Then
plot1(value1);
if var1 == -1 then
plot1(value1);
다음글
이전글