안녕하세요 예스스탁입니다. Input:최소변동(4),비율여부(1); //1:비율,그외:상수값 input:,단기(5),중기(20),장기(60); Var:j(0),최소변동폭(0),벽돌개수(0),방향(0),상승(100),하락(-100); var : sum(0),단기이평(0),중기이평(0),단기가중이평(0),중기가중이평(0); var : CSum(0), 장기이평(0), 장기가중이평(0); Array:고[10](0),저[10](0),고Bar[10](0),저Bar[10](0),렌코[500](0); #==========================================# # 초기 처리 #==========================================# If Index == 0 Then { 고[0] = C; 고Bar[0] = 0; 저[0] = C; 저Bar[0] = 0; 렌코[0] = C; If 비율여부 == 1 Then 최소변동폭 = int(((C * 최소변동/100)+5)/10)*10; //10원단위로 맞춤 Else 최소변동폭 = 최소변동; } #==========================================# # 렌코 계산 #==========================================# If 방향 == 0 Then { If 저[0] - 최소변동폭 >= C Then { 벽돌개수 = Int(Round((저[0]-C)/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수; 저Bar[j] = 저Bar[j] + 벽돌개수; } 저[0] = 저[0] - (최소변동폭 * 벽돌개수); 저Bar[0] = 0; 방향 = 하락; for j = 499 downto 벽돌개수 { 렌코[j] = 렌코[j-벽돌개수]; } for j = 벽돌개수 - 1 downto 0 { 렌코[j] = 렌코[j+1] - 최소변동폭 ; } } Else If 고[0] + 최소변동폭 <= C Then { 벽돌개수 = Int(Round((C-고[0])/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수; 저Bar[j] = 저Bar[j] + 벽돌개수; } 고[0] = 고[0] + (최소변동폭 * 벽돌개수); 고Bar[0] = 0; 방향 = 상승; for j = 499 downto 벽돌개수 { 렌코[j] = 렌코[j-벽돌개수]; } for j = 벽돌개수 - 1 downto 0 { 렌코[j] = 렌코[j+1] + 최소변동폭 ; } } } Else If 방향 == 하락 Then { If 저[0] - 최소변동폭 >= C Then { 벽돌개수 = Int(Round((저[0]-C)/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수; 저Bar[j] = 저Bar[j] + 벽돌개수; } 저[0] = 저[0] - (최소변동폭 * 벽돌개수); 저Bar[0] = 0; for j = 499 downto 벽돌개수 { 렌코[j] = 렌코[j-벽돌개수]; } for j = 벽돌개수 - 1 downto 0 { 렌코[j] = 렌코[j+1] - 최소변동폭 ; } } If 저[0] + 2*최소변동폭 <= C Then { 벽돌개수 = Int(Round((C-저[0])/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수 - 1; 저Bar[j] = 저Bar[j] + 벽돌개수 - 1; } For j = 8 DownTo 0 { 저[j+1] = 저[j]; 저Bar[j+1] = 저Bar[j]; } 고[0] = 저[0] + (최소변동폭 * 벽돌개수); 고Bar[0] = 0; 방향 = 상승; for j = 499 downto (벽돌개수-1) { 렌코[j] = 렌코[j-(벽돌개수-1)]; } 렌코[벽돌개수-2] = 렌코[벽돌개수-1] + 2*최소변동폭 ; if 벽돌개수 > 2 then { for j = 벽돌개수 - 3 downto 0 { 렌코[j] = 렌코[j+1] + 최소변동폭 ; } } } } Else If 방향 == 상승 Then { If 고[0] + 최소변동폭 <= C Then { 벽돌개수 = Int(Round((C-고[0])/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수; 저Bar[j] = 저Bar[j] + 벽돌개수; } 고[0] = 고[0] + (최소변동폭 * 벽돌개수); 고Bar[0] = 0; for j = 499 downto 벽돌개수 { 렌코[j] = 렌코[j-벽돌개수]; } for j = 벽돌개수 - 1 downto 0 { 렌코[j] = 렌코[j+1] + 최소변동폭 ; } } If 고[0] - 2*최소변동폭 >= C Then { 벽돌개수 = Int(Round((고[0]-C)/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수 - 1; 저Bar[j] = 저Bar[j] + 벽돌개수 - 1; } For j = 8 DownTo 0 { 고[j+1] = 고[j]; 고Bar[j+1] = 고Bar[j]; } 저[0] = 고[0] - (최소변동폭 * 벽돌개수); 저Bar[0] = 0; 방향 = 하락; for j = 499 downto (벽돌개수-1) { 렌코[j] = 렌코[j-(벽돌개수-1)]; } 렌코[벽돌개수-2] = 렌코[벽돌개수-1] - 2*최소변동폭 ; if 벽돌개수 > 2 then { for j = 벽돌개수 - 3 downto 0 { 렌코[j] = 렌코[j+1] - 최소변동폭 ; } } } } #==========================================# # 렌코 (가중)이평계산 #==========================================# Sum = 0; for j = 0 to (단기-1) { Sum = Sum + 렌코[j]; } 단기이평 = Sum / 단기; Sum = 0; for j = 0 to (중기-1) { Sum = Sum + 렌코[j]; } 중기이평 = Sum / 중기; Sum = 0; for j = 0 to (장기-1) { Sum = Sum + 렌코[j]; } 장기이평 = Sum / 장기; Sum = 0; CSum = 0; for j = 0 to (단기-1) { Sum = Sum + 렌코[j] * (단기 - j); CSum = CSum + (단기 - j); } 단기가중이평 = Sum / CSum; Sum = 0; CSum = 0; for j = 0 to (중기-1) { Sum = Sum + 렌코[j] * (중기 - j); CSum = CSum + (중기 - j); } 중기가중이평 = Sum / CSum; Sum = 0; CSum = 0; for j = 0 to (장기-1) { Sum = Sum + 렌코[j] * (장기 - j); CSum = CSum + (장기 - j); } 장기가중이평 = Sum / CSum; plot1(단기이평); plot2(중기이평); plot3(장기이평); plot4(단기가중이평); plot5(중기가중이평); plot6(장기가중이평); 즐거운 하루되세요 > 엠제이 님이 쓴 글입니다. > 제목 : 늘 감사드립니다. > 수식지왕님의 렌코챠트의 신버젼에 구버젼에 반영한 단순이평과 가중이평을 적용하고 싶습니다. 아래에 최신 버젼과 이평이 반영된 구버젼을 모두 첨부했습니다. 구버젼에 반영된데로 최신 버젼에 이평 반영 부탁드리겠습니다. 감사합니다. 렌코챠트 최신 버젼 =========================================================================== #==========================================# # 시스템명 : 렌코차트(방향전환) # 작 성 자 : 수식지왕 # 블 로 그 : http://yahoosir.blog.me #==========================================# Input:최소변동(4), 비율여부(1); //1:비율,그외:상수값 Var:j(0),최소변동폭(0),벽돌개수(0),방향(0),상승(100),하락(-100); Array:고[10](0),저[10](0),고Bar[10](0),저Bar[10](0); #==========================================# # 초기 처리 #==========================================# If Index == 0 Then { 고[0] = C; 고Bar[0] = 0; 저[0] = C; 저Bar[0] = 0; If 비율여부 == 1 Then 최소변동폭 = int(((C * 최소변동/100)+5)/10)*10; //10원단위로 맞춤 Else 최소변동폭 = 최소변동; } #==========================================# # 렌코 계산 #==========================================# If 방향 == 0 Then { If 저[0] - 최소변동폭 >= C Then { 벽돌개수 = Int(Round((저[0]-C)/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수; 저Bar[j] = 저Bar[j] + 벽돌개수; } 저[0] = 저[0] - (최소변동폭 * 벽돌개수); 저Bar[0] = 0; 방향 = 하락; } Else If 고[0] + 최소변동폭 <= C Then { 벽돌개수 = Int(Round((C-고[0])/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수; 저Bar[j] = 저Bar[j] + 벽돌개수; } 고[0] = 고[0] + (최소변동폭 * 벽돌개수); 고Bar[0] = 0; 방향 = 상승; } } Else If 방향 == 하락 Then { If 저[0] - 최소변동폭 >= C Then { 벽돌개수 = Int(Round((저[0]-C)/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수; 저Bar[j] = 저Bar[j] + 벽돌개수; } 저[0] = 저[0] - (최소변동폭 * 벽돌개수); 저Bar[0] = 0; } If 저[0] + 2*최소변동폭 <= C Then { 벽돌개수 = Int(Round((C-저[0])/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수 - 1; 저Bar[j] = 저Bar[j] + 벽돌개수 - 1; } For j = 8 DownTo 0 { 저[j+1] = 저[j]; 저Bar[j+1] = 저Bar[j]; } 고[0] = 저[0] + (최소변동폭 * 벽돌개수); 고Bar[0] = 0; 방향 = 상승; } } Else If 방향 == 상승 Then { If 고[0] + 최소변동폭 <= C Then { 벽돌개수 = Int(Round((C-고[0])/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수; 저Bar[j] = 저Bar[j] + 벽돌개수; } 고[0] = 고[0] + (최소변동폭 * 벽돌개수); 고Bar[0] = 0; } If 고[0] - 2*최소변동폭 >= C Then { 벽돌개수 = Int(Round((고[0]-C)/최소변동폭,9)); For j = 0 To 9 { 고Bar[j] = 고Bar[j] + 벽돌개수 - 1; 저Bar[j] = 저Bar[j] + 벽돌개수 - 1; } For j = 8 DownTo 0 { 고[j+1] = 고[j]; 고Bar[j+1] = 고Bar[j]; } 저[0] = 고[0] - (최소변동폭 * 벽돌개수); 저Bar[0] = 0; 방향 = 하락; } } #==========================================# # 시스템식 #==========================================# If 방향[1] == 하락 && 방향 == 상승 Then Buy("상승전환"); If 방향[1] == 상승 && 방향 == 하락 Then Sell("하락전환"); =========================================================================== 기존 단순이평과 가중이평이 반영된 렌코챠트 구버젼 =========================================================================== input:단위호가(5),단기(5),중기(20),장기(60); var:j(0),벽돌크기(0),벽돌개수(0),방향(0),단기이평(0),중기이평(0),단기가중이평(0),중기가중이평(0), 상승(1),하락(-1),Sum(0),CSum(0), 장기이평(0), 장기가중이평(0); array:고[10](0),저[10](0),렌코[500](0); if index == 0 then { 방향 = 0; 벽돌크기 = PriceScale * 단위호가; 고[0] = C; 저[0] = C; 렌코[0] = C; } #==========================================# # 렌코 계산 #==========================================# if 방향 == 0 then { if 저[0] - 벽돌크기 >= C then { 벽돌개수 = int((저[0]-C)/벽돌크기); 저[0] = 저[0] - 벽돌크기 * 벽돌개수; 방향 = 하락; for j = 499 downto 벽돌개수 { 렌코[j] = 렌코[j-벽돌개수]; } for j = 벽돌개수 - 1 downto 0 { 렌코[j] = 렌코[j+1] - 벽돌크기; } } else if 고[0] + 벽돌크기 <= C then { 벽돌개수 = int((C-고[0])/벽돌크기); 고[0] = 고[0] + 벽돌크기 * 벽돌개수; 방향 = 상승; for j = 499 downto 벽돌개수 { 렌코[j] = 렌코[j-벽돌개수]; } for j = 벽돌개수 - 1 downto 0 { 렌코[j] = 렌코[j+1] + 벽돌크기; } } } else if 방향 == 하락 then { if 저[0] - 벽돌크기 >= C then { 벽돌개수 = int((저[0]-C)/벽돌크기); 저[0] = 저[0] - 벽돌크기 * 벽돌개수; for j = 499 downto 벽돌개수 { 렌코[j] = 렌코[j-벽돌개수]; } for j = 벽돌개수 - 1 downto 0 { 렌코[j] = 렌코[j+1] - 벽돌크기; } } if 저[0] + 2*벽돌크기 <= C then { for j = 8 downto 0 { 고[j+1] = 고[j]; } 방향 = 상승; 벽돌개수 = int((C-저[0])/벽돌크기); 고[0] = 저[0] + 벽돌크기 * 벽돌개수; for j = 499 downto (벽돌개수-1) { 렌코[j] = 렌코[j-(벽돌개수-1)]; } 렌코[벽돌개수-2] = 렌코[벽돌개수-1] + 2*벽돌크기; if 벽돌개수 > 2 then { for j = 벽돌개수 - 3 downto 0 { 렌코[j] = 렌코[j+1] + 벽돌크기; } } } } else if 방향 == 상승 then { if 고[0] + 벽돌크기 <= C then { 벽돌개수 = int((C-고[0])/벽돌크기); 고[0] = 고[0] + 벽돌크기 * 벽돌개수; for j = 499 downto 벽돌개수 { 렌코[j] = 렌코[j-벽돌개수]; } for j = 벽돌개수 - 1 downto 0 { 렌코[j] = 렌코[j+1] + 벽돌크기; } } if 고[0] - 2*벽돌크기 >= C then { for j = 8 downto 0 { 저[j+1] = 저[j]; } 방향 = 하락; 벽돌개수 = int((고[0]-C)/벽돌크기); 저[0] = 고[0] - 벽돌크기 * 벽돌개수; for j = 499 downto (벽돌개수-1) { 렌코[j] = 렌코[j-(벽돌개수-1)]; } 렌코[벽돌개수-2] = 렌코[벽돌개수-1] - 2*벽돌크기; if 벽돌개수 > 2 then { for j = 벽돌개수 - 3 downto 0 { 렌코[j] = 렌코[j+1] - 벽돌크기; } } } } #==========================================# # 렌코 (가중)이평계산 #==========================================# Sum = 0; for j = 0 to (단기-1) { Sum = Sum + 렌코[j]; } 단기이평 = Sum / 단기; Sum = 0; for j = 0 to (중기-1) { Sum = Sum + 렌코[j]; } 중기이평 = Sum / 중기; Sum = 0; for j = 0 to (장기-1) { Sum = Sum + 렌코[j]; } 장기이평 = Sum / 장기; Sum = 0; CSum = 0; for j = 0 to (단기-1) { Sum = Sum + 렌코[j] * (단기 - j); CSum = CSum + (단기 - j); } 단기가중이평 = Sum / CSum; Sum = 0; CSum = 0; for j = 0 to (중기-1) { Sum = Sum + 렌코[j] * (중기 - j); CSum = CSum + (중기 - j); } 중기가중이평 = Sum / CSum; Sum = 0; CSum = 0; for j = 0 to (장기-1) { Sum = Sum + 렌코[j] * (장기 - j); CSum = CSum + (장기 - j); } 장기가중이평 = Sum / CSum; /* #==========================================# # 지표식 출력 #==========================================# if 방향[1]==하락 and 방향==상승 then buy(); if 방향[1]==상승 and 방향==하락 then sell(); */ plot1(단기이평); plot2(중기이평); plot3(장기이평); plot4(단기가중이평); plot5(중기가중이평); plot6(장기가중이평);