커뮤니티
안녕하세요
2014-02-11 18:25:15
136
글번호 72414
안녕하세요.반갑습니다
**CCI 과매수.과매도(분챠트용)
1.현재챠트 CCI과매수+2배수챠트CCI과매수+4배수챠트CCI과매수
동시만족:매수
반대:매도
(전번에 작성한것이.계속에러가 나서요)
감사합니다
답변 1
예스스탁 예스스탁 답변
2014-02-11 19:25:50
안녕하세요
예스스탁입니다.
input : P(9);
Var : cnt(0),Sum1(0),mav1(0), MD1(0),CCIv1(0);
Array : C1[100](0),L1[100](0),H1[100](0);
Var : Sum2(0),mav2(0), MD2(0),CCIv2(0),CCIv(0);
Array : C2[100](0),L2[100](0),H2[100](0);
var1 = TimeToMinutes(stime)%(BarInterval*2);
var2 = TimeToMinutes(stime)%(BarInterval*4);
if dayindex() == 0 or var1 < var1[1] Then{
H1[0] = H;
L1[0] = L;
for cnt = 1 to 99{
H1[cnt] = H1[cnt-1][1];
L1[cnt] = L1[cnt-1][1];
C1[cnt] = C1[cnt-1][1];
}
}
C1[0] = C;
if H > H1[0] Then
H1[0] = H;
if L < L1[0] Then
L1[0] = L;
If H1[P] > 0 Then {
sum1 = 0;
for cnt = 0 to P-1{
sum1 = sum1+(C1[cnt]+H1[cnt]+L1[cnt]);
}
mav1 = sum1/P;
MD1 = 0;
For cnt = 0 To P - 1 Begin
MD1 = MD1 + Abs(H1[cnt] + L1[cnt] + C1[cnt] - mav1);
End;
MD1 = MD1 / P;
If MD1 == 0 Then
CCIv1 = 0;
Else
CCIv1 = (H1[0] + L1[0] + C1[0] - mav1) / (0.015 * MD1);
}
if dayindex() == 0 or var2 < var2[1] Then{
H2[0] = H;
L2[0] = L;
for cnt = 1 to 99{
H2[cnt] = H2[cnt-1][1];
L2[cnt] = L2[cnt-1][1];
C2[cnt] = C2[cnt-1][1];
}
}
C2[0] = C;
if H > H2[0] Then
H2[0] = H;
if L < L2[0] Then
L2[0] = L;
If H2[P] > 0 Then {
sum2 = 0;
for cnt = 0 to P-1{
sum2 = sum2+(C2[cnt]+H2[cnt]+L2[cnt]);
}
mav2 = sum2/P;
MD2 = 0;
For cnt = 0 To P - 1 Begin
MD2 = MD2 + Abs(H2[cnt] + L2[cnt] + C2[cnt] - mav2);
End;
MD2 = MD2 / P;
If MD2 == 0 Then
CCIv2 = 0;
Else
CCIv2 = (H2[0] + L2[0] + C2[0] - mav2) / (0.015 * MD2);
}
CCIv = CCI(P);
if CCIv > 100 and CCIv1 > 100 and CCIv2 > 100 Then
buy();
if CCIv < -100 and CCIv1 < -100 and CCIv2 < -100 Then
sell();
즐거운 하루되세요
> jbouu123 님이 쓴 글입니다.
> 제목 : 안녕하세요
> 안녕하세요.반갑습니다
**CCI 과매수.과매도(분챠트용)
1.현재챠트 CCI과매수+2배수챠트CCI과매수+4배수챠트CCI과매수
동시만족:매수
반대:매도
(전번에 작성한것이.계속에러가 나서요)
감사합니다