안녕하세요 예스스탁입니다. 문의하신 내용은 수식으로 작성하기에는 수식이 복잡하고 작성시간이 많이 요구됩니다. 수식 작성시 많은 시간이 요구되는 내용은 업무상 작성해 드리기 어렵습니다. 도움을 드리지 못해 죄송합니다. 즐거운 하루되세요 > 부똘이 님이 쓴 글입니다. > 제목 : 수식 문의 > 아래는 일전에 도움 받은 "일봉에서 볼 수 있는 주봉 RSI" 입니다. 아래의 수식은 DayOfWeek를 사용하여 주봉의 고,저가를 확인하는데요, 그런 방식이 아니라, 1. 현재봉을 포함 n개 전봉을 묶어서 하나의 봉처럼 카운팅하고 해당 고,저가를 확인 2. (n)+1~(n * 2)개전봉을 묶어서 하나의 봉처럼 카운팅하고 해당 고저가를 확인 3. (n*2)+1~(n * 3)개전봉 묶어서 하나의 봉처럼 카운팅하고 해당 고저가를 확인 4. (n*3)+1~(n * 4)개전봉 묶어서 하나의 봉처럼 카운팅하고 해당 고저가를 확인 . . . . x. 현재봉 기준 (n*(x-1))+1~(n * x)개전봉 묶어서 카운팅하고 해당 고저가를 확인 하여서, x까지를 Period로 설정한 RSI를 구하고 싶습니다. ######## 현재 설정된 분봉에서, 상위 프레임의 분봉 RSI를 구해 보고 싶어서 위와 같은 아이디어를 생각하게 되었습니다. 다른 방식이 있으면 그 또한 소개해 주시면 감사하겠습니다. 항상 친절한 답변 감사드립니다. ############# 아래 ############### Inputs: Length(9); Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0); var : RSIv(0),didx(0), UpAvg1(0), DownAvg1(0),cnt(0); Array : MC[100](0); if DayOfWeek(date) < DayOfWeek(date[1]) Then{ didx = didx+1; UpAvg1 = UpAvg[1]; DownAvg1 = DownAvg[1]; for cnt = 1 to 99{ MC[cnt] = MC[cnt-1][1]; } } MC[0] = C; If didx == Length Then Begin UpSum = 0; DownSum = 0; For Counter = 0 To Length - 1 Begin UpAmt = MC[Counter] - MC[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 didx > Length Then Begin UpAmt = MC[0] - MC[1]; If UpAmt >= 0 Then DownAmt = 0; Else Begin DownAmt = -UpAmt; UpAmt = 0; End; UpAvg = (UpAvg1 * (Length - 1) + UpAmt) / Length; DownAvg = (DownAvg1 * (Length - 1) + DownAmt) / Length; End; If UpAvg + DownAvg <> 0 Then RSIv = 100 * UpAvg / (UpAvg + DownAvg); Else RSIv = 0; plot1(RSIV); PlotBaseLine1(30, "기준선 30"); PlotBaseLine2(70, "기준선 70");