커뮤니티
RCI 함수식 부탁드립니다.
2015-04-29 06:51:15
209
글번호 85510
안녕하세요.
항상 도움 주셔서 감사합니다.
수식작성 Q&A 찾아보니 RCI에 대한 지표식이 있더라구요.
기간값 3개만 넣어서 지표를 만들수 있게
함수식 부탁드립니다.
기준선도 함께 표현되었으면 좋겠습니다.
기준선: 80,0,-80
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
input : P1(9),P2(13),P3(18);
var : RCI1(0),RCI2(0),RCI3(0),count1(0),count2(0),count3(0),count4(0),count5(0),count6(0),DD1(0),DD2(0),DD3(0);
DD1 = 0;
for count1 = 1 to P1{
for count2 = 1 to P1{
if C[count1-1] == nthhighest(count2,c,P1) Then{
DD1 = DD1+(count1-count2)^2;
}
}
}
DD2 = 0;
for count3 = 1 to P2{
for count4 = 1 to P2{
if C[count3-1] == nthhighest(count4,c,P2) Then{
DD2 = DD2+(count3-count4)^2;
}
}
}
DD3 = 0;
for count5 = 1 to P3{
for count6 = 1 to P3{
if C[count5-1] == nthhighest(count6,c,P3) Then{
DD3 = DD3+(count5-count6)^2;
}
}
}
RCI1 = (1-(6*DD1)/(P1*(P1*P1-1)))*100;
RCI2 = (1-(6*DD2)/(P2*(P2*P2-1)))*100;
RCI3 = (1-(6*DD3)/(P3*(P3*P3-1)))*100;
plot1(RCI1);
plot2(RCI2);
plot3(RCI3);
답변 1
예스스탁 예스스탁 답변
2015-04-29 10:55:30
안녕하세요
예스스탁입니다.
사용자함수로 아래 내용 작성하시면 됩니다.
사용자함수명은 RCI입니다.
input : P1(Numeric);
var : RCI1(0),count1(0),count2(0),DD1(0);
DD1 = 0;
for count1 = 1 to P1{
for count2 = 1 to P1{
if C[count1-1] == nthhighest(count2,c,P1) Then{
DD1 = DD1+(count1-count2)^2;
}
}
}
RCI = (1-(6*DD1)/(P1*(P1*P1-1)))*100;
사용자함수로 작성하신 후에 지표에서는 간단히 아래와 같이 작성하시면 됩니다.
input : P1(9),P2(13),P3(18);
var1 = RCI(P1);
var2 = RCI(P2);
var3 = RCI(P3);
plot1(var1);
plot2(var2);
plot3(var3);
즐거운 하루되세요
> 양치기 님이 쓴 글입니다.
> 제목 : RCI 함수식 부탁드립니다.
> 안녕하세요.
항상 도움 주셔서 감사합니다.
수식작성 Q&A 찾아보니 RCI에 대한 지표식이 있더라구요.
기간값 3개만 넣어서 지표를 만들수 있게
함수식 부탁드립니다.
기준선도 함께 표현되었으면 좋겠습니다.
기준선: 80,0,-80
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
input : P1(9),P2(13),P3(18);
var : RCI1(0),RCI2(0),RCI3(0),count1(0),count2(0),count3(0),count4(0),count5(0),count6(0),DD1(0),DD2(0),DD3(0);
DD1 = 0;
for count1 = 1 to P1{
for count2 = 1 to P1{
if C[count1-1] == nthhighest(count2,c,P1) Then{
DD1 = DD1+(count1-count2)^2;
}
}
}
DD2 = 0;
for count3 = 1 to P2{
for count4 = 1 to P2{
if C[count3-1] == nthhighest(count4,c,P2) Then{
DD2 = DD2+(count3-count4)^2;
}
}
}
DD3 = 0;
for count5 = 1 to P3{
for count6 = 1 to P3{
if C[count5-1] == nthhighest(count6,c,P3) Then{
DD3 = DD3+(count5-count6)^2;
}
}
}
RCI1 = (1-(6*DD1)/(P1*(P1*P1-1)))*100;
RCI2 = (1-(6*DD2)/(P2*(P2*P2-1)))*100;
RCI3 = (1-(6*DD3)/(P3*(P3*P3-1)))*100;
plot1(RCI1);
plot2(RCI2);
plot3(RCI3);