(국내선옵)다른분봉 일목균형표

Input : 분주기(30),전환선기간(9),기준선기간(26),선행스팬2기간(52); Var : TF(0),S1(0),D1(0),TM(0),cnt(0); Var : Reschedule(false); Var : H1(0),L1(0),H2(0),L2(0); Var : PrevH1(0),PrevL1(0),PrevH2(0),PrevL2(0); Var : H3(0),L3(0); Var : 전환선(0),기준선(0),선행스팬1(0),선행스팬2(0); Array : HH[100](0),LL[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; } // D1에 날짜가 저장된 이후(영업일 변경이 되는 봉이 발생 후에) 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 cnt = 99 downto 1 { HH[cnt] = HH[cnt-1]; LL[cnt] = LL[cnt-1]; } //0번방에는 초기값으로 고가, 저가 저장 HH[0] = H; // 우선 현재 고가를 0번에 기록 LL[0] = L; // 우선 현재 저가를 0번에 기록 } //최고,최저를 갱신하면 값 저장 if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; // 선행스팬2기간+25 이전까지 데이터가 쌓였는지 확인 if HH[선행스팬2기간+25] > 0 and LL[선행스팬2기간+25] > 0 then { //전환선 계산을 위한 초기값 설정 H1 = HH[0]; L1 = LL[0]; //25봉전 전환선을 계산하기 위해 데이터 초기값 설정 PrevH1 = HH[25]; PrevL1 = LL[25]; //기준선 계산을 위한 초기값 설정 H2 = HH[0]; L2 = LL[0]; //25봉전 기준선을 계산하기 위해 데이터 초기값 설정 PrevH2 = HH[25]; PrevL2 = LL[25]; // 선행스팬2 계산을 위한 초기값 H3 = HH[25]; L3 = LL[25]; // 최근 선행스팬2기간 동안의 최고/최저를 탐색 for cnt = 0 to 선행스팬2기간-1 { //전환선 계산을 위해 최고가/최저가 계산 if cnt < 전환선기간 Then { if HH[cnt] > H1 Then H1 = HH[cnt]; if LL[cnt] < L1 Then L1 = LL[cnt]; // 25봉전 기준 전환선기간 동안 최고가/최저가 계산 if HH[cnt+25] > PrevH1 Then PrevH1 = HH[cnt+25]; if LL[cnt+25] < PrevL1 Then PrevL1 = LL[cnt+25]; } //기준선 계산을 위해 최고가/최저가 계산 if cnt < 기준선기간 Then { if HH[cnt] > H2 Then H2 = HH[cnt]; if LL[cnt] < L2 Then L2 = LL[cnt]; //25봉전 기준 기주선선기간 동안 최고가/최저가 계산 if HH[cnt+25] > PrevH2 Then PrevH2 = HH[cnt+25]; if LL[cnt+25] < PrevL2 Then PrevL2 = LL[cnt+25]; } //25봉전 선행스팬2기간 동안 최고가/최저가 계산 if HH[cnt+25] > H3 Then H3 = HH[cnt+25]; if LL[cnt+25] < L3 Then L3 = LL[cnt+25]; } // 전환선 전환선 = (H1 + L1)/2; // 기준선 기준선 = (H2 + L2)/2; // 선행스팬1 = (전환선(25봉 전) + 기준선(25봉 전)) / 2 선행스팬1 = ((PrevH1+PrevL1)/2 + (PrevH2+PrevL2)/2) / 2 ; // 선행스팬2 = (25봉전 기준 선행스팬2기간의 최고 + 최저) / 2 선행스팬2 = (H3+L3) / 2; // 차트에 출력: 전환선, 기준선, 선행스팬1, 선행스팬2 plot1(전환선); plot2(기준선); plot3(선행스팬1); plot4(선행스팬2); } }