(주식,해외선옵)분봉에서 다른분봉 스토케스틱

Input : 분주기(30),Sto1(10),Sto2(5),Sto3(5); Var : S1(0),D1(0),TM(0),TF(0),Bar(0); Var : cnt(0), Hv(0), LV(0), FK(0), SK(0), SD(0); Var : EP1(0), EP2(0), JISU(0), DINDEX(0), PreSK(0), PreSD(0); Array : HH[100](0),LL[100](0); // 스토캐스틱 평활계수 계산 EP1 = 2/(Sto2+1); EP2 = 2/(Sto3+1); // 새로운 영업일이 시작하면 시작시간(S1)과 날짜(D1)를 초기화 if Bdate != Bdate[1] 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 Bdate != Bdate[1] or (Bdate == Bdate[1] and 분주기 > 1 and TF < TF[1]) or (Bdate == Bdate[1] and 분주기 > 1 and TM >= TM[1]+분주기) or (Bdate == Bdate[1] and 분주기 == 1 and TM > TM[1]) Then { //다른주기 분봉 갯수 카운트 카운트 bar = bar+1; //배열의 0번방기준으로 최신값순으로 저장하기 위해 //배열의 기존값을 다음방으로 이동 for cnt = 99 downto 1 { HH[cnt] = HH[cnt-1]; LL[cnt] = LL[cnt-1]; } //0번방에는 초기값으로 고가, 저가 저장 HH[0] = H; LL[0] = L; //이전 다른주기 분봉의 SK와 SK값값을 저장 PreSK = SK[1]; PreSD = SD[1]; } //최고,최저를 갱신하면 값 저장 if H > HH[0] Then HH[0] = H; if L < LL[0] Then LL[0] = L; // FastK를 계산하기 위한 값들이 확보된 이후에 if bar >= Sto1 then { //다른주기 N개봉 최고가,최저가 계산 Hv = 0; LV = 0; for cnt = 0 to Sto1-1 { if Hv == 0 or (Hv > 0 and HH[cnt] > Hv) then Hv = HH[cnt]; if LV == 0 or (LV > 0 and LL[cnt] < LV) then LV = LL[cnt]; } //FastK 계산: 현재 종가의 위치를 0~100으로 환산 FK = (C-LV)/(Hv-LV)*100; if bar >= Sto1 then { #FastK계산이 가능한 첫봉이면 if bar == Sto1 Then { //SlowK와 slowD는 모두 FK값 SK = FK; SD = SK; } else //#FastK계산이 가능한 두번째 봉부터 { // 지수 평활: SK은 EP1로, SD는 EP2로 추가 평활 SK = FK * EP1 + PreSK * (1-EP1); SD = SK * EP2 + PreSD * (1-EP2); } // 차트 출력: SK, SD 및 기준선(20/80) plot1(SK,"타분봉 SlowK"); plot2(SD,"타분봉 SlowD"); PlotBaseLine1(20); PlotBaseLine2(80); } } }