안녕하세요 예스스탁입니다. 1. 30분봉 Input : N(30),Len(14); Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0); Array : CC[50](0); var1 = TimeToMinutes(stime)%N; if dayindex == 0 or (var1 <= var1[1] and stime > stime[1]) Then{ CC[0] = C; for X = 1 to 30{ CC[X] = CC[X-1][1]; } } CC[0] = C; If Len == 0 Then LRSv = 0; SumBars = Len * (Len - 1) * 0.5; SumSqrBars = (Len - 1) * Len * (2 * Len - 1) / 6; Sum1 = 0; SumY = 0; For X = 0 To Len - 1 Begin Sum1= Sum1 + X * CC[X]; SumY = SumY + CC[X]; End; Sum2 = SumBars * SumY; Num1 = Len * Sum1 - Sum2; Num2 = SumBars * SumBars - Len * SumSqrBars; If Num2 != 0 Then LRSv = Num1 / Num2; Else LRSv = 0; plot1(LRSv); 2. 일봉 Input : Len(14); Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0); If Len == 0 Then LRSv = 0; SumBars = Len * (Len - 1) * 0.5; SumSqrBars = (Len - 1) * Len * (2 * Len - 1) / 6; Sum1 = 0; SumY = 0; For X = 0 To Len - 1 Begin Sum1= Sum1 + X * DayClose(X); SumY = SumY + DayClose(X); End; Sum2 = SumBars * SumY; Num1 = Len * Sum1 - Sum2; Num2 = SumBars * SumBars - Len * SumSqrBars; If Num2 != 0 Then LRSv = Num1 / Num2; Else LRSv = 0; plot1(LRSv); 즐거운 하루되세요 > 큰상 님이 쓴 글입니다. > 제목 : 1분 봉상에서 30분 및 일봉 LRS값 부탁드립니다. > 수고하십니다. 1분 봉상에서 30분 및 일봉 LRS값 부탁드립니다. 참조종목을 사용하지않고 수식으로 부탁드립니다. 감사합니다.

감사합니다. LRS 시그널을 짜보려고 하는데 ma(LRSv,Period) 하니까 분봉상에서 LRS값과 같이 나오네요! LRS 시그널도 부탁드립니다. > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 1분 봉상에서 30분 및 일봉 LRS값 부탁드립니다. > 안녕하세요 예스스탁입니다. 1. 30분봉 Input : N(30),Len(14); Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0); Array : CC[50](0); var1 = TimeToMinutes(stime)%N; if dayindex == 0 or (var1 <= var1[1] and stime > stime[1]) Then{ CC[0] = C; for X = 1 to 30{ CC[X] = CC[X-1][1]; } } CC[0] = C; If Len == 0 Then LRSv = 0; SumBars = Len * (Len - 1) * 0.5; SumSqrBars = (Len - 1) * Len * (2 * Len - 1) / 6; Sum1 = 0; SumY = 0; For X = 0 To Len - 1 Begin Sum1= Sum1 + X * CC[X]; SumY = SumY + CC[X]; End; Sum2 = SumBars * SumY; Num1 = Len * Sum1 - Sum2; Num2 = SumBars * SumBars - Len * SumSqrBars; If Num2 != 0 Then LRSv = Num1 / Num2; Else LRSv = 0; plot1(LRSv); 2. 일봉 Input : Len(14); Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0); If Len == 0 Then LRSv = 0; SumBars = Len * (Len - 1) * 0.5; SumSqrBars = (Len - 1) * Len * (2 * Len - 1) / 6; Sum1 = 0; SumY = 0; For X = 0 To Len - 1 Begin Sum1= Sum1 + X * DayClose(X); SumY = SumY + DayClose(X); End; Sum2 = SumBars * SumY; Num1 = Len * Sum1 - Sum2; Num2 = SumBars * SumBars - Len * SumSqrBars; If Num2 != 0 Then LRSv = Num1 / Num2; Else LRSv = 0; plot1(LRSv); 즐거운 하루되세요 > 큰상 님이 쓴 글입니다. > 제목 : 1분 봉상에서 30분 및 일봉 LRS값 부탁드립니다. > 수고하십니다. 1분 봉상에서 30분 및 일봉 LRS값 부탁드립니다. 참조종목을 사용하지않고 수식으로 부탁드립니다. 감사합니다.

감사합니다. LRS 시그널 만들어 볼려고 하는데 5000봉 까지 넣어도 값이 틀리네요! 죄송하지만 30분 과 1일 시그널 까지 부탁드립니다.(1분봉에서) Input : Len(16),SP(9); Var : X(0),Count(0),Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),SumCS(0),LRSv(0),LRSs(0); Array : CS[50](0),CS1[50](0); If Len == 0 Then LRSv = 0; SumBars = Len * (Len - 1) * 0.5; SumSqrBars = (Len - 1) * Len * (2 * Len - 1) / 6; Sum1 = 0; SumY = 0; For X = 0 To Len - 1 Begin Sum1= Sum1 + X * DayClose(X); SumY = SumY + DayClose(X); End; Sum2 = SumBars * SumY; Num1 = Len * Sum1 - Sum2; Num2 = SumBars * SumBars - Len * SumSqrBars; If Num2 != 0 Then LRSv = Num1 / Num2; Else LRSv = 0; If Len == 0 Then LRSs = 0; if date != date[1] and dayindex == 0 then { CS1[0] = LRSv; for X = 1 to 30{ CS1[X] = CS1[X-1][1]; } } SumCS = 0; for Count = 0 to SP-1{ SumCS = SumCS +CS1[Count]; } LRSs =SumCS/SP; plot1(LRSv,"1일 LRS"); Plot2(LRSs, "1일 LRS Signal"); PlotBaseLine1(0, "기준선"); > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 1분 봉상에서 30분 및 일봉 LRS값 부탁드립니다. > 안녕하세요 예스스탁입니다. 1. 30분봉 Input : N(30),Len(14); Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0); Array : CC[50](0); var1 = TimeToMinutes(stime)%N; if dayindex == 0 or (var1 <= var1[1] and stime > stime[1]) Then{ CC[0] = C; for X = 1 to 30{ CC[X] = CC[X-1][1]; } } CC[0] = C; If Len == 0 Then LRSv = 0; SumBars = Len * (Len - 1) * 0.5; SumSqrBars = (Len - 1) * Len * (2 * Len - 1) / 6; Sum1 = 0; SumY = 0; For X = 0 To Len - 1 Begin Sum1= Sum1 + X * CC[X]; SumY = SumY + CC[X]; End; Sum2 = SumBars * SumY; Num1 = Len * Sum1 - Sum2; Num2 = SumBars * SumBars - Len * SumSqrBars; If Num2 != 0 Then LRSv = Num1 / Num2; Else LRSv = 0; plot1(LRSv); 2. 일봉 Input : Len(14); Var : X(0), Num1(0), Num2(0), SumBars(0), SumSqrBars(0), SumY(0), Sum1(0), Sum2(0),LRSv(0); If Len == 0 Then LRSv = 0; SumBars = Len * (Len - 1) * 0.5; SumSqrBars = (Len - 1) * Len * (2 * Len - 1) / 6; Sum1 = 0; SumY = 0; For X = 0 To Len - 1 Begin Sum1= Sum1 + X * DayClose(X); SumY = SumY + DayClose(X); End; Sum2 = SumBars * SumY; Num1 = Len * Sum1 - Sum2; Num2 = SumBars * SumBars - Len * SumSqrBars; If Num2 != 0 Then LRSv = Num1 / Num2; Else LRSv = 0; plot1(LRSv); 즐거운 하루되세요 > 큰상 님이 쓴 글입니다. > 제목 : 1분 봉상에서 30분 및 일봉 LRS값 부탁드립니다. > 수고하십니다. 1분 봉상에서 30분 및 일봉 LRS값 부탁드립니다. 참조종목을 사용하지않고 수식으로 부탁드립니다. 감사합니다.