커뮤니티

수식문의

프로필 이미지
흑수돌
2011-08-01 11:38:48
796
글번호 41496
답변완료
호가잔량의 움직임으로 RCI지표를 구하고 싶습니다. 미리 감사드립니다.
지표
답변 1
프로필 이미지

예스스탁 예스스탁 답변

2011-08-01 14:08:57

안녕하세요? 예스스탁입니다. 호가잔량 RCI지표식 답변드립니다. [호가잔량RCI] input : P1(9),P2(13),P3(18),P4(26); Var : cnt(0),Nth(0),tempmax(0), tempindex(0), X1(0),RCI1(0),X2(0),RCI2(0),X3(0),RCI3(0),X4(0),RCI4(0); Array : VALUE1[50](0),VALUE2[50](0),VALUE3[50](0),VALUE4[50](0),NTHVALUE[50](0); for cnt = 0 to 49{ VALUE1[cnt] = bids[cnt]-asks[cnt]; VALUE2[cnt] = bids[cnt]-asks[cnt]; VALUE3[cnt] = bids[cnt]-asks[cnt]; VALUE4[cnt] = bids[cnt]-asks[cnt]; } ############################################### For Nth = 0 to P1-1 { tempmax = -99999999; For cnt = 0 to P1-1{ if VALUE1[cnt] > tempmax then{ tempmax = VALUE1[cnt]; tempIndex = cnt; NTHVALUE[cnt] = Nth+1; } } VALUE1[tempIndex] = -99999999; } X1 = 0; for cnt = 0 to P1-1{ X1 = X1+ABS((cnt+1)-NTHVALUE[cnt])^2; } RCI1 = (1-(6*X1)/(P1*(P1^2-1)))*100; ############################################### For Nth = 0 to P2-1 { tempmax = -99999999; For cnt = 0 to P2-1{ if value2[cnt] > tempmax then{ tempmax = value2[cnt]; tempIndex = cnt; NTHVALUE[cnt] = Nth+1; } } VALUE2[tempIndex] = -99999999; } X2 = 0; for cnt = 0 to P2-1{ X2 = X2+ABS((cnt+1)-NTHVALUE[cnt])^2; } RCI2 = (1-(6*X2)/(P2*(P2^2-1)))*100; ############################################### For Nth = 0 to P3-1 { tempmax = -99999999; For cnt = 0 to P3-1{ if value3[cnt] > tempmax then{ tempmax = value3[cnt]; tempIndex = cnt; NTHVALUE[cnt] = Nth+1; } } VALUE3[tempIndex] = -99999999; } X3 = 0; for cnt = 0 to P3-1{ X3 = X3+ABS((cnt+1)-NTHVALUE[cnt])^2; } RCI3 = (1-(6*X3)/(P3*(P3^2-1)))*100; ############################################### For Nth = 0 to P4-1 { tempmax = -99999999; For cnt = 0 to P4-1{ if value4[cnt] > tempmax then{ tempmax = value4[cnt]; tempIndex = cnt; NTHVALUE[cnt] = Nth+1; } } VALUE4[tempIndex] = -99999999; } X4 = 0; for cnt = 0 to P4-1{ X4 = X4+ABS((cnt+1)-NTHVALUE[cnt])^2; } RCI4 = (1-(6*X4)/(P4*(P4^2-1)))*100; plot1(RCI1); plot2(RCI2); plot3(RCI3); plot4(RCI4); PlotBaseLine1(-70,"침체",blue); PlotBaseLine2(70,"과열",red); > 흑수돌 님이 쓴 글입니다. > 제목 : 수식문의 > 호가잔량의 움직임으로 RCI지표를 구하고 싶습니다. 미리 감사드립니다.