안녕하세요 예스스탁입니다. input:단위호가(5),P(0); Input : Length(5); Var : Counter(0),Sum1(0),CSum1(0),WMH(0),Sum2(0),CSum2(0),WML(0); var:j(0),벽돌크기(0),방향(0),상승(1),하락(-1); var:저항기울기(0),저항길이(0),저항절편(0),저항선(0), 지지기울기(0),지지길이(0),지지절편(0),지지선(0),cnt1(0),cnt2(0); array:고[61](0),저[61](0); if index == 0 then { 벽돌크기 = PriceScale * 단위호가; 고[0] = C; 저[0] = C; } if 방향 == 0 then { if 저[0] - 벽돌크기 >= C then { 저[0] = 저[0] - int((저[0]-C)/벽돌크기)*벽돌크기; 방향 = 하락; } else if 고[0] + 벽돌크기 <= C then { 고[0] = 고[0] + int((C-고[0])/벽돌크기)*벽돌크기; 방향 = 상승; } } else if 방향 == 하락 then { if 저[0] - 벽돌크기 >= C then 저[0] = 저[0] - int((저[0]-C)/벽돌크기)*벽돌크기; if 저[0] + 2*벽돌크기 <= C then { for j = 60 downto 0 { 고[j+1] = 고[j]; } 방향 = 상승; 고[0] = 저[0] + int((C-저[0])/벽돌크기)*벽돌크기; } } else if 방향 == 상승 then { if 고[0] + 벽돌크기 <= C then 고[0] = 고[0] + int((C-고[0])/벽돌크기)*벽돌크기; if 고[0] - 2*벽돌크기 >= C then { for j = 60 downto 0 { 저[j+1] = 저[j]; } 방향 = 하락; 저[0] = 고[0] - int((고[0]-C)/벽돌크기)*벽돌크기; } } if 방향[1]==하락 and 방향==상승 then{ plot1(저[0],"렌코차트",Blue); //선그래프 } if 방향[1]==상승 and 방향==하락 then{ plot1(고[0],"렌코차트",RED); //선그래프 } if 방향==상승 then { 저항기울기 = (고[1]-고[2])/(고[2]+고[1]-2*(저[1]+벽돌크기)); 저항절편 = 고[1]; 저항길이 = 고[1]+고[0]-2*(저[0]+벽돌크기); 지지기울기 = (저[0]-저[1])/(2*(고[1]-벽돌크기)-저[1]-저[0]); 지지절편 = 저[0]; 지지길이 = (고[0]-벽돌크기)-저[0]; } if 방향==하락 then { 저항기울기 = (고[0]-고[1])/(고[1]+고[0]-2*(저[1]+벽돌크기)); 저항절편 = 고[0]; 저항길이 = 고[0]-(저[0]+벽돌크기); 지지기울기 = (저[1]-저[2])/(2*(고[1]-벽돌크기)-저[2]-저[1]); 지지절편 = 저[1]; 지지길이 = 2*(고[0]-벽돌크기)-저[0]-저[1]; } 저항선 = 저항기울기 * 저항길이 + 저항절편; 지지선 = 지지기울기 * 지지길이 + 지지절편; if 저항선 > 0 then plot2(저항선,"저항선",BLUE); //점그래프 if 지지선 > 0 then plot3(지지선,"지지선",RED); //점그래프 Sum1 = 0; Sum2 = 0; CSum1 = 0; For counter = 0 To Length - 1 Begin Sum1 = Sum1 + 고[counter] * (Length - counter); Sum2 = Sum2 + 저[counter] * (Length - counter); CSum1 = CSum1 + Length - counter; End; If CSum1 > 0 Then{ WMH = Sum1 / CSum1; WML = Sum2 / Csum1; } Else{ WMH = 0; WML = 0; } plot11(WMH); plot22(WML); 즐거운 하루되세요 > 고릴라 님이 쓴 글입니다. > 제목 : 지표식 문의 드립니다. > 안녕하세요 관리자님... 아래 렌코지표식에서 지난고점의 변곡점값을 평균한 저항가중이평선을 만들고자 합니다.물론 지난저점의 변곡점값을 평균한 지지가중이평선 포함입니다. 아니면 단순이평선만이라도 부탁합니다. 감사합니다. input:단위호가(5); var:j(0),벽돌크기(0),방향(0),상승(1),하락(-1); var:저항기울기(0),저항길이(0),저항절편(0),저항선(0), 지지기울기(0),지지길이(0),지지절편(0),지지선(0); array:고[10](0),저[10](0); if index == 0 then { 벽돌크기 = PriceScale * 단위호가; 고[0] = C; 저[0] = C; } if 방향 == 0 then { if 저[0] - 벽돌크기 >= C then { 저[0] = 저[0] - int((저[0]-C)/벽돌크기)*벽돌크기; 방향 = 하락; } else if 고[0] + 벽돌크기 <= C then { 고[0] = 고[0] + int((C-고[0])/벽돌크기)*벽돌크기; 방향 = 상승; } } else if 방향 == 하락 then { if 저[0] - 벽돌크기 >= C then 저[0] = 저[0] - int((저[0]-C)/벽돌크기)*벽돌크기; if 저[0] + 2*벽돌크기 <= C then { for j = 8 downto 0 { 고[j+1] = 고[j]; } 방향 = 상승; 고[0] = 저[0] + int((C-저[0])/벽돌크기)*벽돌크기; } } else if 방향 == 상승 then { if 고[0] + 벽돌크기 <= C then 고[0] = 고[0] + int((C-고[0])/벽돌크기)*벽돌크기; if 고[0] - 2*벽돌크기 >= C then { for j = 8 downto 0 { 저[j+1] = 저[j]; } 방향 = 하락; 저[0] = 고[0] - int((고[0]-C)/벽돌크기)*벽돌크기; } } if 방향[1]==하락 and 방향==상승 then plot1(저[0],"렌코차트",Blue); //선그래프 if 방향[1]==상승 and 방향==하락 then plot1(고[0],"렌코차트",RED); //선그래프 if 방향==상승 then { 저항기울기 = (고[1]-고[2])/(고[2]+고[1]-2*(저[1]+벽돌크기)); 저항절편 = 고[1]; 저항길이 = 고[1]+고[0]-2*(저[0]+벽돌크기); 지지기울기 = (저[0]-저[1])/(2*(고[1]-벽돌크기)-저[1]-저[0]); 지지절편 = 저[0]; 지지길이 = (고[0]-벽돌크기)-저[0]; } if 방향==하락 then { 저항기울기 = (고[0]-고[1])/(고[1]+고[0]-2*(저[1]+벽돌크기)); 저항절편 = 고[0]; 저항길이 = 고[0]-(저[0]+벽돌크기); 지지기울기 = (저[1]-저[2])/(2*(고[1]-벽돌크기)-저[2]-저[1]); 지지절편 = 저[1]; 지지길이 = 2*(고[0]-벽돌크기)-저[0]-저[1]; } 저항선 = 저항기울기 * 저항길이 + 저항절편; 지지선 = 지지기울기 * 지지길이 + 지지절편; if 저항선 > 0 then plot2(저항선,"저항선",BLUE); //점그래프 if 지지선 > 0 then plot3(지지선,"지지선",RED); //점그래프