안녕하세요 예스스탁입니다. rsiv1은 50이하, rsiv2는 50이상이면 for문 수행이 중지되게 되어 있습니다. 30~70사이에서 해당 범위를 벗어나는 경우이므로 rsiv1 >= 70, rsiv2 <= 30으로 변경하셔야 할것 같습니다. Input : Length(9); Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0),RSIV(0),Current(0); var : cnt1(0),current1(0),UpAmt1(0),DownAmt1(0),UpAvg1(0),DownAvg1(0),RSIv1(0); var : cnt2(0),current2(0),UpAmt2(0),DownAmt2(0),UpAvg2(0),DownAvg2(0),RSIv2(0); var : upPrice(0),dnPrice(0); If CurrentBar == 1 AND Length > 0 Then Begin UpSum = 0; DownSum = 0; For Counter = 0 To Length - 1 Begin UpAmt = C[Counter] - C[Counter+1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpSum = UpSum + UpAmt; DownSum = DownSum + DownAmt; End; UpAvg = UpSum / Length; DownAvg = DownSum / Length; End Else If CurrentBar > 1 AND Length > 0 Then Begin UpAmt = C[0] - C[1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpAvg = (UpAvg[1] * (Length - 1) + UpAmt) / Length; DownAvg = (DownAvg[1] * (Length - 1) + DownAmt) / Length; End; If UpAvg + DownAvg <> 0 Then RSIv = 100 * UpAvg / (UpAvg + DownAvg); Else RSIv = 0; IF rsiv[1] >= 30 AND rsiv[1] <= 70 Then { for cnt1 = 0 to 100 { Current1 = C+PriceScale*cnt1; UpAmt1 = current1 - C[1]; If UpAmt1 >= 0 Then DownAmt1 = 0; Else Begin DownAmt1 = -UpAmt1; UpAmt1 = 0; End; UpAvg1 = (UpAvg[1] * (Length - 1) + UpAmt1) / Length; DownAvg1 = (DownAvg[1] * (Length - 1) + DownAmt1) / Length; If UpAvg1 + DownAvg1 <> 0 Then RSIv1 = 100 * UpAvg1 / (UpAvg1 + DownAvg1); Else RSIv1 = 0; IF rsiv1 >= 70 Then { upPrice = CURRENT1; cnt1 = 101; } } for cnt2 = 0 to 100 { Current2 = C-PriceScale*cnt1; UpAmt2 = current2 - C[1]; If UpAmt2 >= 0 Then DownAmt2 = 0; Else Begin DownAmt2 = -UpAmt2; UpAmt2 = 0; End; UpAvg2 = (UpAvg[1] * (Length - 1) + UpAmt2) / Length; DownAvg2 = (DownAvg[1] * (Length - 1) + DownAmt2) / Length; If UpAvg2 + DownAvg2 <> 0 Then RSIv2 = 100 * UpAvg2 / (UpAvg2 + DownAvg2); Else RSIv2 = 0; IF rsiv2 <= 30 Then { dnPrice = CURRENT2; cnt2 = 101; } } plot1(upPrice); plot2(dnPrice); } 즐거운 하루되세요 > 까냐스키 님이 쓴 글입니다. > 제목 : 수식 문의 > RSI가 과열권, 중심선, 침체권, 이 세 값을 이탈, 돌파하기 위해서 종목에서 어떤 가격을 넘어야 하는지 점을 찍어 확인 하는 지표를 구했습니다. 제대로 작동한다면 그림처럼 뿌려질 것이나 이상하게 잘 되지 않습니다. 무엇이 문제인지 확인 부탁드립니다. 감사합니다. Input : Length(9); Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0),RSIV(0),Current(0); var : cnt1(0),current1(0),UpAmt1(0),DownAmt1(0),UpAvg1(0),DownAvg1(0),RSIv1(0); var : cnt2(0),current2(0),UpAmt2(0),DownAmt2(0),UpAvg2(0),DownAvg2(0),RSIv2(0); var : upPrice(0),dnPrice(0); If CurrentBar == 1 AND Length > 0 Then Begin UpSum = 0; DownSum = 0; For Counter = 0 To Length - 1 Begin UpAmt = C[Counter] - C[Counter+1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpSum = UpSum + UpAmt; DownSum = DownSum + DownAmt; End; UpAvg = UpSum / Length; DownAvg = DownSum / Length; End Else If CurrentBar > 1 AND Length > 0 Then Begin UpAmt = C[0] - C[1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpAvg = (UpAvg[1] * (Length - 1) + UpAmt) / Length; DownAvg = (DownAvg[1] * (Length - 1) + DownAmt) / Length; End; If UpAvg + DownAvg <> 0 Then RSIv = 100 * UpAvg / (UpAvg + DownAvg); Else RSIv = 0; IF rsiv >= 30 AND rsiv <= 70 Then{ for cnt1 = 0 to 100{ Current1 = C+PriceScale*cnt1; UpAmt1 = current1 - C[1]; If UpAmt1 >= 0 Then DownAmt1 = 0; Else Begin DownAmt1 = -UpAmt1; UpAmt1 = 0; End; UpAvg1 = (UpAvg[1] * (Length - 1) + UpAmt1) / Length; DownAvg1 = (DownAvg[1] * (Length - 1) + DownAmt1) / Length; If UpAvg1 + DownAvg1 <> 0 Then RSIv1 = 100 * UpAvg1 / (UpAvg1 + DownAvg1); Else RSIv1 = 0; IF rsiv1 <= 50 Then{ upPrice = CURRENT1; cnt1 = 101; } } for cnt2 = 0 to 100{ Current2 = C-PriceScale*cnt1; UpAmt2 = current2 - C[1]; If UpAmt2 >= 0 Then DownAmt2 = 0; Else Begin DownAmt2 = -UpAmt2; UpAmt2 = 0; End; UpAvg2 = (UpAvg[1] * (Length - 1) + UpAmt2) / Length; DownAvg2 = (DownAvg[1] * (Length - 1) + DownAmt2) / Length; If UpAvg2 + DownAvg2 <> 0 Then RSIv2 = 100 * UpAvg2 / (UpAvg2 + DownAvg2); Else RSIv2 = 0; IF rsiv2 <= 50 Then{ dnPrice = CURRENT2; cnt2 = 101; } } plot1(upPrice); plot2(dnPrice); }