QP R1 CCI(13)
//CCI(13) crossing over -150
Allgroup
output="CCI(13)X.lst"
//Rem 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)/(.000001+(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)<3
(B-bb)/(.000001+(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)/(.000001+(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:-6," Close:",close(0):8:3," QRS:", qrs(0):3:0," CCI(13)= ",a:8:3," ", description:-12 |
