안녕하세요 예스스탁입니다. Input:상승전환가격(5),하락전환가격(5); Var:jj(0),꺾은선(0),방향(0),상승(100),하락(-100), 기준고(0),기준저(0),기준고Bar(0),기준저Bar(0); Array:고점[20](0),저점[20](0),고Bar[20](0),저Bar[20](0); #==========================================# # 전고점,전저점 index 증가 #==========================================# For jj = 1 To 19 { 고Bar[jj] = 고Bar[jj] + 1; 저Bar[jj] = 저Bar[jj] + 1; } #==========================================# # 최근 고,저 갱신 #==========================================# If 기준고 <= C || 기준고 == 0 || IsNaN(기준고) == True Then { 기준고 = C; 기준고Bar = 0; } Else 기준고Bar = 기준고Bar + 1; If 기준저 >= C || 기준저 == 0 || IsNaN(기준저) == True Then { 기준저 = C; 기준저Bar = 0; } Else 기준저Bar = 기준저Bar + 1; #==========================================# # 추세방향 결정 #==========================================# If 기준저[1] + 상승전환가격 > C[1] && 기준저[1] + 상승전환가격 <= C Then 방향 = 상승; If 기준고[1] - 하락전환가격 < C[1] && 기준고[1] - 하락전환가격 >= C Then 방향 = 하락; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향[1] == 하락 && 방향 == 상승 Then { For jj = 18 DownTo 1 { 저점[jj+1] = 저점[jj]; 저Bar[jj+1] = 저Bar[jj]; } 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; 기준고 = C; 기준고Bar = 0; } Else If 방향[1] == 상승 && 방향 == 하락 Then { For jj = 18 DownTo 1 { 고점[jj+1] = 고점[jj]; 고Bar[jj+1] = 고Bar[jj]; } 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; 기준저 = C; 기준저Bar = 0; } Else If 방향[1] == 하락 && 방향 == 하락 Then { If 기준고[1] - 하락전환가격 <= C[1] && 기준고[1] - 하락전환가격 > C && 고점[1] < 기준고 Then { 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; } } Else If 방향[1] == 상승 && 방향 == 상승 Then { If 기준저[1] + 상승전환가격 >= C[1] && 기준저[1] + 상승전환가격 < C && 저점[1] > 기준저 Then { 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; } } #==========================================# # 지표식 출력 #==========================================# If 꺾은선[1] != 꺾은선 Then{ var1 = 꺾은선; var2 = var1[1]; Plot1(꺾은선); } Else If LastBarOnChart == 1 Then{ plot1(Iff(방향 == 상승,기준고,기준저)); if 방향 == 상승 Then{ var1 = 기준고; var2 = 꺾은선; } if 방향 != 상승 Then{ var1 = 기준저; var2 = 꺾은선; } } plot2(var1); plot3(var2); plot4((var1+var2)/2); plot5((var1+((var1+var2)/2))/2); plot6((var2+((var1+var2)/2))/2); 즐거운 하루되세요 > 비월검파 님이 쓴 글입니다. > 제목 : 안녕하세요~ > 안녕 하세요~ 휴일 잘 보내셨는지요? 오늘도 우둔한 관계로 질문 한가지만 요청 좀 올리겠습니다. 아래 식에서 지그재그 각 파동의 고점 저점 의 사등분선 좀 부탁 올립니다. Input:상승전환가격(5),하락전환가격(5); Var:jj(0),꺾은선(0),방향(0),상승(100),하락(-100), 기준고(0),기준저(0),기준고Bar(0),기준저Bar(0); Array:고점[20](0),저점[20](0),고Bar[20](0),저Bar[20](0); #==========================================# # 전고점,전저점 index 증가 #==========================================# For jj = 1 To 19 { 고Bar[jj] = 고Bar[jj] + 1; 저Bar[jj] = 저Bar[jj] + 1; } #==========================================# # 최근 고,저 갱신 #==========================================# If 기준고 <= C || 기준고 == 0 || IsNaN(기준고) == True Then { 기준고 = C; 기준고Bar = 0; } Else 기준고Bar = 기준고Bar + 1; If 기준저 >= C || 기준저 == 0 || IsNaN(기준저) == True Then { 기준저 = C; 기준저Bar = 0; } Else 기준저Bar = 기준저Bar + 1; #==========================================# # 추세방향 결정 #==========================================# If 기준저[1] + 상승전환가격 > C[1] && 기준저[1] + 상승전환가격 <= C Then 방향 = 상승; If 기준고[1] - 하락전환가격 < C[1] && 기준고[1] - 하락전환가격 >= C Then 방향 = 하락; #==========================================# # 추세변화에 따른 변곡점 처리 #==========================================# If 방향[1] == 하락 && 방향 == 상승 Then { For jj = 18 DownTo 1 { 저점[jj+1] = 저점[jj]; 저Bar[jj+1] = 저Bar[jj]; } 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; 기준고 = C; 기준고Bar = 0; } Else If 방향[1] == 상승 && 방향 == 하락 Then { For jj = 18 DownTo 1 { 고점[jj+1] = 고점[jj]; 고Bar[jj+1] = 고Bar[jj]; } 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; 기준저 = C; 기준저Bar = 0; } Else If 방향[1] == 하락 && 방향 == 하락 Then { If 기준고[1] - 하락전환가격 <= C[1] && 기준고[1] - 하락전환가격 > C && 고점[1] < 기준고 Then { 고점[1] = 기준고; 고Bar[1] = 기준고Bar; 꺾은선 = 기준고; 기준고 = C; 기준고Bar = 0; } } Else If 방향[1] == 상승 && 방향 == 상승 Then { If 기준저[1] + 상승전환가격 >= C[1] && 기준저[1] + 상승전환가격 < C && 저점[1] > 기준저 Then { 저점[1] = 기준저; 저Bar[1] = 기준저Bar; 꺾은선 = 기준저; 기준저 = C; 기준저Bar = 0; } } #==========================================# # 지표식 출력 #==========================================# If 꺾은선[1] != 꺾은선 Then Plot1(꺾은선); Else If LastBarOnChart == 1 Then plot1(Iff(방향 == 상승,기준고,기준저)); 감사합니다. ----꾸 뻑------