【CCIClassic】

1. Inputs: Len(NumericSimple);
   
2. Variables: var0(0),var1(0),var2(0),var3(0), var4(0);
   
3. 
   
4. If Len > 0 Then Begin
   
5.         var4 = (High + Low + Close) / 3;
   
6.         var3 = Average(var4 , Len);
   
7.         var2 = 0;
   
8.         for var1 = 0 to Len - 1 Begin
   
9.                 var2 = var2 + AbsValue(var4[var1] - var3);
   
10.         End;
    
11.         var2 = var2 / Len;
    
12.         If var2 = 0 Then
    
13.                 CCIClassic = 0
    
14.         Else
    
15.                 CCIClassic = (var4 - var3) / (0.015 * var2);
    
16. End
    
17. Else
    
18.         CCIClassic = 0;

复制代码