커뮤니티
검색식으로 변환 부탁드립니다.
2025-10-13 08:27:02.0
34
글번호 194579
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=R9O;
조건1 && 조건2 && 조건3 && 조건4
수식을 변환 작성하다 한곳에서 막혀 완성하지 못했습니다. 부탁드립니다.
답변 2
예스스탁 예스스탁 답변
2025-10-13 17:06:58.0
안녕하세요
예스스탁입니다.
RCI사용자함수를 만드신 후에
종목검색식 작성해 이용하셔야 합니다.
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;
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);
즐거운 하루되세요
> 작은소망1 님이 쓴 글입니다.
> 제목 : 검색식으로 변환 부탁드립니다.
> 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=R9O;
조건1 && 조건2 && 조건3 && 조건4
수식을 변환 작성하다 한곳에서 막혀 완성하지 못했습니다. 부탁드립니다.
작은소망1
2025-10-13 18:28:27.0
자세한 설명과 도움 감사드립니다. 항상 건강하세요..^^
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 검색식으로 변환 부탁드립니다.
>
안녕하세요
예스스탁입니다.
RCI사용자함수를 만드신 후에
종목검색식 작성해 이용하셔야 합니다.
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;
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);
즐거운 하루되세요
> 작은소망1 님이 쓴 글입니다.
> 제목 : 검색식으로 변환 부탁드립니다.
> 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=R9O;
조건1 && 조건2 && 조건3 && 조건4
수식을 변환 작성하다 한곳에서 막혀 완성하지 못했습니다. 부탁드립니다.
다음글