안녕하세요 예스스탁입니다. input : ntime(5); input : nPeriod(9),factor1(0.6666666),factor2(0.3333333); var : cn(0),ln(0),hn(0); var : rsv(0),percentK(0),percentd(0),percentj(0),k(0); var : S1(0),D1(0),TM(0),TF(0),cnt(0); Array : C1[100](0),H1[100](0),L1[100](0); if Bdate != Bdate[1] Then { S1 = TimeToMinutes(stime); D1 = sdate; } if D1 > 0 then { if sdate == D1 Then TM = TimeToMinutes(stime)-S1; Else TM = TimeToMinutes(stime)+1440-S1; TF = TM%ntime; if Bdate != Bdate[1] or (Bdate == Bdate[1] and ntime > 1 and TF < TF[1]) or (Bdate == Bdate[1] and ntime > 1 and TM >= TM[1]+ntime) or (Bdate == Bdate[1] and ntime == 1 and TM > TM[1]) Then { H1[0] = h; L1[0] = l; for cnt = 1 to 49 { H1[cnt] = H1[cnt-1][1]; L1[cnt] = L1[cnt-1][1]; C1[cnt] = C1[cnt-1][1]; } } if h > h1[0] Then h1[0] = h; if l < l1[0] Then l1[0] = l; C1[0] = C; if h1[nPeriod-1] > 0 and l1[nPeriod-1] > 0 then { Cn=C1[0]; Ln=C1[0]; Hn=C1[0]; RSV=0.0; percentK=0.0 ; percentD= 0.0; percentJ=0.0; for k=0 to nPeriod-1 { if Ln>l1[k] then Ln=l1[k]; if Hn<h1[k] then Hn=h1[k]; } if Hn-Ln !=0 then RSV =(Cn-Ln)/(Hn-Ln)*100; else RSV = 50; percentK = factor1 * 50 + factor2 * RSV; percentD = factor1 * 50 + factor2 * percentK; percentJ = 3 * percentD - 2 * percentK; plot1(percentK,"PERCENT-K"); plot2(percentD,"PERCENT-D"); plot3(percentJ,"PERCENT-J"); } } 즐거운 하루되세요 > 까시서방 님이 쓴 글입니다. > 제목 : 지표수정 부탁드립니다 > input : nPeriod(9),factor1(0.6666666),factor2(0.3333333); var : cn(0),ln(0),hn(0); var : rsv(0),percentK(0),percentd(0),percentj(0),k(0); Cn=close; Ln=close; Hn=close; RSV=0.0; percentK=0.0 ; percentD= 0.0; percentJ=0.0; for k=0 to nPeriod-1 { if Ln>low[k] then Ln=low[k]; if Hn<high[k] then Hn=high[k]; } if Hn-Ln !=0 then RSV =(Cn-Ln)/(Hn-Ln)*100; else RSV = 50; percentK = factor1 * 50 + factor2 * RSV; percentD = factor1 * 50 + factor2 * percentK; percentJ = 3 * percentD - 2 * percentK; plot1(percentK,"PERCENT-K"); plot2(percentD,"PERCENT-D"); plot3(percentJ,"PERCENT-J"); //// // 위 내용을 1분봉에서 타주기를 쓰지 않고 5분봉 값을 표현하고 싶습니다 // 항상 노고에 감사드립니다 ////