【CSIClassic】

1. Inputs: Mrgn(NumericSimple) , Comm(NumericSimple) , Len(NumericSimple);
   
2. Variables: var0(0), var1(0), var2(14), var3(0), var4(0);
   
3. 
   
4. condition1 = Len > 0 AND Mrgn > 0 AND Comm >= 0 ;
   
5. If condition1 Then Begin
   
6.         var2 = Len;
   
7.         var4 = 0;
   
8.         var0 = 100 * (BigPointValue / SquareRoot(Mrgn) / (150 + Comm));
   
9.         For var3 = 0 To var2 - 1 Begin
   
10.                 var4 = var4 + TrueRange[var3];
    
11.         End;
    
12.         var1 = var4 / var2;
    
13.         CSIClassic = var0 * ADXR(Len) * var1;
    
14. End
    
15. Else
    
16.         CSIClassic = 0;

复制代码