분봉이던 일봉이던 상관없이 주봉 스토캐스틱을 그려주는 지표식입니다. 주단위로 끊어서 계산해야 관계로 금주 데이터는 배제되고 1주전 스토캐스틱 값이 표현됩니다. [지표식] /*작성자 : 수식지왕*/ input:p(12),p1(5),p2(5); var:j(0),ep1(0),ep2(0),value1(0),value2(0),value3(0),StoK(0),StoD(0),PreStoK(0),PreStoD(0),chk_bit(0); array:weekopen[100](0),weekhigh[100](0),weeklow[100](0),weekclose[100](0); ep1 = 2/(p1+1); ep2 = 2/(p2+1); if DayOfWeek(date[1])>DayOfWeek(date) and dayindex()==0 then { //주단위로 끊어서 주봉데이터를 만드는 조건식 for j = 99 downto 1 { weekopen[j] = weekopen[j-1]; weekhigh[j] = weekhigh[j-1]; weeklow[j] = weeklow[j-1]; weekclose[j] = weekclose[j-1]; } weekopen[0] = o; weekhigh[0] = h; weeklow[0] = l; #---------------# # Stochastics # #---------------# value1 = weeklow[1]; value2 = weekhigh[1]; for j = 2 to p { if value1 > weeklow[j] then value1 = weeklow[j]; //value1 = lowest(l,p) if value2 < weekhigh[j] then value2 = weekhigh[j]; //value2 = highest(h,p) } value3 = (weekclose[1]-value1)/(value2-value1)*100; //value3 = (c-value1)/(value2-value1)*100 if chk_bit == 0 then { //데이터 초기화 단계 PreStoK = value3[1]; PreStoD = StoK[1]; chk_bit = 1; } else { PreStoK = StoK; PreStoD = StoD; } StoK = value3 * ep1 + PreStoK * (1-ep1); //sto_K = ema(value3,p1) StoD = StoK * ep2 + PreStoD * (1-ep2); //Sto_D = ema(ema(value3,p1),p2) } if weekhigh[0] < h then weekhigh[0] = h; if weeklow[0] > l then weeklow[0] = l; weekclose[0] = c; #---------------# # 지표출력 # #---------------# plot1(StoK); plot2(StoD); PlotBaseLine1(20, "기준선1"); PlotBaseLine2(80, "기준선2"); > 괌 님이 쓴 글입니다. > 제목 : 일봉챠트에서 주봉 스토캐스틱 챠트를 표현하고 싶습니다. > 안녕하세요. 추석 잘보내시고 고향 잘다녀오실 바라겠습니다. 일봉챠트에서 주봉 스토캐스틱 챠트를 표현하고 싶습니다. 부탁드립니다.