(국내선옵)분봉에서 다른분봉 가중이동평균

Input : 분주기(30),Period(20); Var : Reschedule(false); Var : S1(0),D1(0),TM(0),TF(0),i(0); Var : CWSum(0),WSum(0),WMAV(0); Array : CC[100](0); #새로운 영업일이 시작하거나 8시45분 이후 첫봉이면 true 아니면 false Reschedule = Bdate != Bdate[1] or (sDate != sDate[1] and sTime >= 84500) or (sDate == sDate[1] and sTime >= 84500 and sTime[1] < 84500); //새로운 영업일이거나 8시 45분 이후 첫봉이면 //시작시간(S1)과 날짜(D1)를 초기화 if Reschedule == true Then { //첫봉의 stime을 분으로 변환하여 기준에 사용 S1 = TimeToMinutes(stime); // 기준 거래일 저장 D1 = sdate; } if D1 > 0 then { //같은 날짜인지 판단하여 영업일 변경이후 경과분(TM)계산 if sdate == D1 Then TM = TimeToMinutes(stime)-S1; //첫봉과 동일날짜이면 첫봉부터 경과분계산 Else TM = TimeToMinutes(stime)+1440-S1; //다음날이면 24시간(1440분)을 더해서 보정 //영업일 변경이후 경과분을 분주기로 나누어 나머지를 구함 TF = TM%분주기; //새로운 영업일이 시작하거나 새로운 분이 시작되면 if Reschedule == true or (Reschedule == False and 분주기 > 1 and TF < TF[1]) or (Reschedule == False and 분주기 > 1 and TM >= TM[1]+분주기) or (Reschedule == False and 분주기 == 1 and TM > TM[1]) Then { //배열의 0번방기준으로 최신값순으로 저장하기 위해 //배열의 기존값을 다음방으로 이동 for i = 99 downto 1 { CC[i] = CC[i-1]; } } //0번방에는 최신값(종가)를 저장 CC[0] = C; //지정한 기간을 계산하기 위해 충분한 데이터가 확보되면 계산 if CC[Period-1] > 0 Then { CWSum = 0; // 분자(가격*가중치 합) WSum = 0; // 분모(가중치 합) For i = 0 To Period - 1 { CWSum = CWSum + CC[i] * (Period - i); // 최근일일수록 큰 가중치 부여 WSum = WSum + (Period - i); // 가중치 누적 } // 가중 이동평균 계산 WMAV = CWSum/WSum; plot1(WMAV); // 차트에 WMA 출력 (변수명 오타 방지: WMAV로 출력) } }