안녕하세요 예스스탁입니다. 추세선의 고점과 저점을 비교하는 봉의 갯수가 작으면 좀더 단기라고 할 수 있습니다. left/right 외부변수값이 좌/우측 봉 갯수이므로 수치를 줄이시기 바랍니다. 즐거운 하루되세요 > 오이도인 님이 쓴 글입니다. > 제목 : 지표식 문의 > 답변주신대로 수식지왕님 작성 추세선을 확인했는데..[아래 내용] 일봉상에서 단기 추세선이더라구요.. 요걸 초단기로 바구려면 어떻게 해야 하는지 도움 부탁드립니다. 수고하세요..즐거운 주말 보내시고요.. ##=======수식지왕 작성 자동 추세선 input:left(5),right(5),x(0.005); var:j(0),예비고(0),예비저(0),예비고bar(0),예비저bar(0),미완성(0),미완성bar(0),고점표시(0),저점표시(0), 예비고추세기울기(0),예비저추세기울기(0),예비고추세선(0),예비저추세선(0), 고추세기울기(0),저추세기울기(0),고추세선(0),저추세선(0); array:고[10](0),저[10](0),고bar[10](0),저bar[10](0); #================================================# # 변곡점 계산 #================================================# if highest(h[1],left) <= h then { 예비고 = h; 예비고bar = 0; } else 예비고bar = 예비고bar + 1; if lowest(l[1],left) >= l then { 예비저 = l; 예비저bar = 0; } else 예비저bar = 예비저bar + 1; 고점표시 = (o[right] + c[right]) / 2; 저점표시 = (o[right] + c[right]) / 2; for j = 1 to 9 { 고bar[j] = 고bar[j] + 1; 저bar[j] = 저bar[j] + 1; } if 예비고bar == right and highest(h,right) <= h[right] then { for j = 9 downto 2 { 고[j] = 고[j-1]; 고bar[j] = 고bar[j-1]; } 고점표시 = 예비고 + x; 고[1] = 예비고; 고bar[1] = 예비고bar; if 저bar[1] > 고bar[2] then { for j = 9 downto 2 { 저[j] = 저[j-1]; 저bar[j] = 저bar[j-1]; } 미완성 = 0; for j = 고bar[1] + 1 to 고bar[2] - 1 { if 미완성 == 0 or 미완성 > l[j] then { 미완성 = l[j]; 미완성bar = j; } } 저[1] = 미완성; 저bar[1] = 미완성bar; } } if 예비저bar == right and lowest(l,right) >= l[right] then { for j = 9 downto 2 { 저[j] = 저[j-1]; 저bar[j] = 저bar[j-1]; } 저점표시 = 예비저 - x; 저[1] = 예비저; 저bar[1] = 예비저bar; if 고bar[1] > 저bar[2] then { for j = 9 downto 2 { 고[j] = 고[j-1]; 고bar[j] = 고bar[j-1]; } 미완성 = 0; for j = 저bar[1] + 1 to 저bar[2] - 1 { if 미완성 < h[j] then { 미완성 = h[j]; 미완성bar = j; } } 고[1] = 미완성; 고bar[1] = 미완성bar; } } #=============================================# # 자동추세선 계산 #=============================================# 예비고추세선 = 0; 예비저추세선 = 0; for j = 1 to 9 { if 예비고 < 고[j] then { 예비고추세기울기 = (예비고-고[j])/(고bar[j]-예비고bar); 예비고추세선 = 예비고추세기울기 * 고bar[j] + 고[j]; j = 9; } } for j = 1 to 9 { if 저[j] < 예비저 and 저[j] > 0 then { 예비저추세기울기 = (예비저-저[j])/(저bar[j]-예비저bar); 예비저추세선 = 예비저추세기울기 * 저bar[j] + 저[j]; j = 9; } } 고추세선 = 0; 저추세선 = 0; for j = 2 to 9 { if 고[1] < 고[j] then { 고추세기울기 = (고[1]-고[j])/(고bar[j]-고bar[1]); 고추세선 = 고추세기울기 * 고bar[j] + 고[j]; j = 9; } } for j = 2 to 9 { if 저[j] < 저[1] and 저[j] > 0 then { 저추세기울기 = (저[1]-저[j])/(저bar[j]-저bar[1]); 저추세선 = 저추세기울기 * 저bar[j] + 저[j]; j = 9; } } #=====================================================# # 지표출력 #=====================================================# //Y축표시 : 가격 if 고점표시 > h[right] then plot1(고점표시,"전고점",red); //점그래프,수평이동 right만큼 if 저점표시 < l[right] then plot2(저점표시,"전저점",blue); //굵기 5단계 if 예비고추세선>0 then plot3(예비고추세선,"고추세선",red); //점그래프,굵기 3단계 if 예비저추세선>0 then plot4(예비저추세선,"저추세선",blue); if 고추세선>0 then plot5(고추세선,"고추세선",red); //점그래프,굵기 4단계 if 저추세선>0 then plot6(저추세선,"저추세선",blue);