안녕하세요 예스스탁입니다. 1 input : 기간(20); var : T(0),A(0),B(0),S(0),하단(0); var : m10(0), m11(0), m12(0), m13(0), m14(0); var : m15(0), m16(0), m17(0), m18(0), m19(0); var : m20(0), m21(0), m22(0), m23(0), m24(0); var : m25(0), m26(0), m27(0), m28(0), m29(0),m30(0); var : Mx(0),Mn(0),D(0); T = LRL(C,기간) + LRS(C,기간); A= (T-T[1])/T[1] * 100; B = ma(A, 3); S = sar(0.015, 0.2); if CrossUp(C,S) Then 하단 = S; M10=ma(C,10);M11=ma(C,11);M12=ma(C,12); M13=ma(C,13);M14=ma(C,14);M15=ma(C,15); M16=ma(C,16);M17=ma(C,17);M18=ma(C,18); M19=ma(C,19);M20=ma(C,20);M21=ma(C,21); M22=ma(C,22);M23=ma(C,23);M24=ma(C,24); M25=ma(C,25);M26=ma(C,26);M27=ma(C,27); M28=ma(C,28);M29=ma(C,29);M30=ma(C,30); Mx = Max(M10,M11,M12,M13,M14,M15,M16,M17,M18,M19,M20, M21,M22,M23,M24,M25,M26,M27,M28,M29,M30); Mn = Min(M10,M11,M12,M13,M14,M15,M16,M17,M18,M19,M20, M21,M22,M23,M24,M25,M26,M27,M28,M29,M30); D=(Mx-Mn)/Mn * 100; if B[1] Mx && C>상단 && C>O Then Find(1); 3 RCI사용자함수를 만드신 후에 종목검색식 작성해 이용하셔야 합니다. 3-1 사용자함수 함수명 : RCI 반환값형 : 숫자형 input :Price(numericseries),Length(numericsimple); var : MinIndex(0), TestValue(0),i1(0),i2(0),TempVal1(0),TempVal2(0), RankChange(0),RankChangeSqr(0),RankChangeSqrSum(0),CorrCoeff(0),Denom(0) ; array: PriceArray[2,500](0) ; if Length >= 2 and Length < 500 then { for i1 = 1 to Length { PriceArray[0,i1] = i1 ; PriceArray[1,i1] = Price[Length-i1] ; } for i1 = 1 to Length - 1 { TestValue = PriceArray[1,i1] ; MinIndex = i1 ; for i2 = i1 + 1 to Length { if TestValue > PriceArray[1,i2] then { MinIndex = i2 ; TestValue = PriceArray[1,i2] ; } } if MinIndex <> i1 then { TempVal1 = PriceArray[0,i1] ; TempVal2 = PriceArray[1,i1] ; PriceArray[0,i1] = PriceArray[0,MinIndex] ; PriceArray[1,i1] = PriceArray[1,MinIndex] ; PriceArray[0,MinIndex] = TempVal1 ; PriceArray[1,MinIndex] = TempVal2 ; } } RankChangeSqrSum = 0 ; for i1 = 1 to Length { RankChange = i1 - PriceArray[0,i1] ; RankChangeSqr = RankChange * RankChange ; RankChangeSqrSum = RankChangeSqrSum + RankChangeSqr ; } Denom = Length * ( Length * Length - 1 ) ; if Denom <> 0 then CorrCoeff = 1 - 6 * RankChangeSqrSum / Denom ; RCI = CorrCoeff * 100 ; } Else RCI = Nan; 3-2 종목검색 var : R(0),S(0),조건1(False),조건2(False); var : R9(0),R13(0),R18(0),R26(0),조건3(False),조건4(False); R = RSI(10); S = CountIf(R>=55,10); 조건1 = S[1] >= 1; 조건2 = Crossup(R,45); R9 = RCI(C,9); R13 = RCI(C,13); R18 = RCI(C,18); R26 = RCI(C,26); 조건3 = R9 < R13 && R13 < R18 && R18 < R26; 조건4 = C>O; if 조건1 && 조건2 && 조건3 && 조건4 Then Find(1); 즐거운 하루되세요 > 스톰82 님이 쓴 글입니다. > 제목 : 종목검색식 부탁드립니다. > 추석연휴 잘 보내셨길 바래요. 키움수식인데 예스랭귀조로 변환 부탁드립니다. 1. TT = LinearRegressionvalue(가격,기간,0) + LinearRegressionSlope(가격,기간) T = TT(C, 20); A= (T-T(1))/T(1) * 100; B=ma(A, 3); S = sar(0.015, 0.2); 하단 = Valuewhen(1, CrossUp(C, S), S); M10=ma(C,10);M11=ma(C,11);M12=ma(C,12); M13=ma(C,13);M14=ma(C,14);M15=ma(C,15); M16=ma(C,16);M17=ma(C,17);M18=ma(C,18); M19=ma(C,19);M20=ma(C,20);M21=ma(C,21); M22=ma(C,22);M23=ma(C,23);M24=ma(C,24); M25=ma(C,25);M26=ma(C,26);M27=ma(C,27); M28=ma(C,28);M29=ma(C,29);M30=ma(C,30); Ma_Mx = Max(M10,M11,M12,M13,M14,M15,M16,M17,M18,M19,M20, M21,M22,M23,M24,M25,M26,M27,M28,M29,M30); MA_Mn = Min(M10,M11,M12,M13,M14,M15,M16,M17,M18,M19,M20, M21,M22,M23,M24,M25,M26,M27,M28,M29,M30); Mx = Ma_Mx(); Mn = Ma_Mn(); D=(Mx-Mn)/Mn * 100; B(1) Mx && C>상단 && C>O ------------------------------------ 3. R = RSI(10); S = SUM(R>=55,10); 조건1 = S(1) >= 1; 조건2 = Crossup(R,45); R9 = RCI(9); R13 = RCI(13); R18 = RCI(18); R26 = RCI(26); 조건3 = R9 < R13 && R13 < R18 && R18 < R26; 조건4 = C>O; 조건1 && 조건2 && 조건3 && 조건4 즐거운 하루 보내세요~