【TrimMeanArray】

龙听

1. inputs:
   
2.         PriceValueArray[ MaxSize ]( numericarrayref ),                           
   
3.         Size( numericsimple ),                        
   
4.         TrimPct( numericsimple ) ;                                                      
   
5.                                                                                      
   
6.                       
   
7. 
   
8. variables:
   
9.         var0( 0 ),
   
10.         var1( 0 ) ;
    
11. 
    
12. var0 = IntPortion( Size * TrimPct * .5 ) ;   
    
13. condition1 = var0 > 0 and var0 < Size * .5 ;         
    
14. if condition1 then
    
15.         begin
    
16.         Value1 = SortArray( PriceValueArray, Size, -1 ) ;
    
17.         var1 = 0 ;
    
18.         for Value2 = 1 + var0 to Size - var0
    
19.                 begin
    
20.                 var1 = var1 + PriceValueArray[Value2] ;
    
21.                 end ;
    
22.         TrimMeanArray = var1 / ( Size - 2 * var0 ) ;
    
23.         end
    
24. else
    
25.         TrimMeanArray = -1 ;

复制代码