【Trimmean_a】

1. Inputs: TrimmeanArray[size](NumericArrayRef), VArraySize(Numeric), PcntExcluded(Numeric);
   
2. Variables: var0(0), var1(0), var2(0), var3(0);
   
3.                                                                                                      
   
4. condition1 = PcntExcluded > 0 AND PcntExcluded < 1 ;
   
5. If condition1 Then Begin
   
6.         var2 = 0;
   
7.         var1 = VArraySize * PcntExcluded;
   
8.         var0 = IntPortion(var1) - IntPortion(Mod(var1, 2));
   
9.         var3 = SortUp_a(TrimmeanArray, VArraySize);
   
10.        
    
11.         For value1 = 1 + (var0 * .5) To VArraySize - (var0 * .5) Begin
    
12.                 var2 = var2 + TrimmeanArray[value1];
    
13.         End;
    
14. 
    
15.         Trimmean_a = var2 / (VArraySize - var0);
    
16. End
    
17. Else
    
18.         Trimmean_a = -1;

复制代码