CCI

{CCI-EquisCustom} 
Prd:=Input("Periods",2,250,14); 
X:=Typ(); 
Y:=X-Mov(X,Prd,S); 
Yad:=Mov(Abs(Y),Prd,S); 
Z:=Y/Yad; 
ZZIe:=(Z/3)*200; 
ZZIe{end} 

{CCI-STD cs} 
{written by Corey Saxe} 
V1:=Input("Periods",2,250,14); 
x:=Typical(); 
y:=Mov(x,V1,S); 
z:=Sum(Abs(x-LastValue(y+PREV-PREV)),V1)/V1; 
A1:=z*0.015; 
ZZI:=(x-y)/A1; 
ZZI{end} 


enjoy, 

Preston