This is R1.0 CCI(13)x.
Version R2.0 listed below
//CCI(13) crossing over -150
Allgroup
output="CCI(13)X.lst"
input="d:\stocks\quotes~1\lists\input.lst"
float B, C, D, E, F, G, H, I, J, K, L, M, N, P
float bb, cc
float A
B :=(high(0)+low(0)+close(0))/3
C :=(high(-1)+low(-1)+close(-1))/3
D :=(high(-2)+low(-2)+close(-2))/3
E :=(high(-3)+low(-3)+close(-3))/3
F :=(high(-4)+low(-4)+close(-4))/3
G :=(high(-5)+low(-5)+close(-5))/3
H :=(high(-6)+low(-6)+close(-6))/3
I :=(high(-7)+low(-7)+close(-7))/3
J :=(high(-8)+low(-8)+close(-8))/3
K :=(high(-9)+low(-9)+close(-9))/3
L :=(high(-10)+low(-10)+close(-10))/3
M :=(high(-11)+low(-11)+close(-11))/3
N :=(high(-12)+low(-12)+close(-12))/3
P :=(high(-13)+low(-13)+close(-13))/3
bb :=(B+C+D+E+F+G+H+I+J+K+L+M+N)/13
cc :=(C+D+E+F+G+H+I+J+K+L+M+N+P)/13
A:=(B-bb)/(0.015*((ABS(B-bb))+(ABS(C-bb))+(ABS(D-bb))+(ABS(E-bb))+(ABS(F-bb))+(ABS(G-bb))+(ABS(H-bb))+(ABS(I-bb))+(ABS(J-bb))+(ABS(K-bb))+(ABS(L-bb))+(ABS(M-bb))+(ABS(N-bb)))/13)
Close(0)>0
(B-bb)/(0.015*((ABS(B-bb))+(ABS(C-bb))+(ABS(D-bb))+(ABS(E-bb))+(ABS(F-bb))+(ABS(G-bb))+(ABS(H-bb))+(ABS(I-bb))+(ABS(J-bb))+(ABS(K-bb))+(ABS(L-bb))+(ABS(M-bb))+(ABS(N-bb)))/13)> -150
(C-cc)/(0.015*((ABS(C-cc))+(ABS(D-cc))+(ABS(E-cc))+(ABS(F-cc))+(ABS(G-cc))+(ABS(H-cc))+(ABS(I-cc))+(ABS(J-cc))+(ABS(K-cc))+(ABS(L-cc))+(ABS(M-cc))+(ABS(N-cc))+(ABS(P-cc)))/13)< -150
//println symbol,", ",description,", ",close(0),", ",a:4:3
Println Symbol:-7,description:-38," Prev.C: ",close(0):7:3," QRS:",j:3:0," CCI(13)= ",a:4:3
-------------------------------------------------------------------
This is R2.0 CCI(13)x.
output="CCI(13)X"
float B, C, D, E, F, G, H, I, J, K, L, M, N, P
float bb, cc
float A
B :=(high(0)+low(0)+close(0))/3
C :=(high(-1)+low(-1)+close(-1))/3
D :=(high(-2)+low(-2)+close(-2))/3
E :=(high(-3)+low(-3)+close(-3))/3
F :=(high(-4)+low(-4)+close(-4))/3
G :=(high(-5)+low(-5)+close(-5))/3
H :=(high(-6)+low(-6)+close(-6))/3
I :=(high(-7)+low(-7)+close(-7))/3
J :=(high(-8)+low(-8)+close(-8))/3
K :=(high(-9)+low(-9)+close(-9))/3
L :=(high(-10)+low(-10)+close(-10))/3
M :=(high(-11)+low(-11)+close(-11))/3
N :=(high(-12)+low(-12)+close(-12))/3
P :=(high(-13)+low(-13)+close(-13))/3
bb :=(B+C+D+E+F+G+H+I+J+K+L+M+N)/13
cc :=(C+D+E+F+G+H+I+J+K+L+M+N+P)/13
A:=(B-bb)/(0.0015*((ABS(B-bb))+(ABS(C-bb))+(ABS(D-bb))+(ABS(E-bb))+(ABS(F-bb))+(ABS(G-bb))+(ABS(H-bb))+(ABS(I-bb))+(ABS(J-bb))+(ABS(K-bb))+(ABS(L-bb))+(ABS(M-bb))+(ABS(N-bb)))/13)
if (B-bb)/(0.0015*((ABS(B-bb))+(ABS(C-bb))+(ABS(D-bb))+(ABS(E-bb))+(ABS(F-bb))+(ABS(G-bb))+(ABS(H-bb))+(ABS(I-bb))+(ABS(J-bb))+(ABS(K-bb))+(ABS(L-bb))+(ABS(M-bb))+(ABS(N-bb)))/13)> -150 and(C-cc)/(0.015*((ABS(C-cc))+(ABS(D-cc))+(ABS(E-cc))+(ABS(F-cc))+(ABS(G-cc))+(ABS(H-cc))+(ABS(I-cc))+(ABS(J-cc))+(ABS(K-cc))+(ABS(L-cc))+(ABS(M-cc))+(ABS(N-cc))+(ABS(P-cc)))/13)< -150 then
//println symbol,", ",description,", ",close(0),", ",a:4:3
Println Symbol:-7,description:-38," Prev.C: ",close(0):7:3," QRS:",j:3:0," CCI(13)= ",a:4:3
endif |
