【ModeArray】

1. inputs:
   
2.         PriceValueArray[ MaxSize ]( numericarrayref ),                           
   
3.         Size( numericsimple ),                        
   
4.         Type( numericsimple ) ;                                                      
   
5.                                                     
   
6. 
   
7. variables:
   
8.         var0( 0 ),
   
9.         var1( 0 ),
   
10.         var2( -1 ) ;
    
11. 
    
12. if Size > 1 then
    
13.         begin
    
14.         Value1 = SortArray( PriceValueArray, Size, -1 ) ;
    
15.         var0 = 1 ;
    
16.         var1 = 1 ;
    
17.         var2 = -1 ;
    
18.         for Value2 = 1 to Size - 1
    
19.                 begin
    
20.                 condition1 = PriceValueArray[Value2] = PriceValueArray[ Value2 + 1 ] ;
    
21.                 if condition1 then
    
22.                         var0 = var0 + 1
    
23.                 else
    
24.                         var0 = 1 ;
    
25.        
    
26.         condition1 = var0 > 1 and var0 >= var1 ;
    
27.                 if condition1 Then
    
28.                         begin
    
29.                         if var0 > var1 then
    
30.                                 begin
    
31.                                 var2 = PriceValueArray[Value2] ;
    
32.                                 var1 = var0 ;
    
33.                                 end
    
34.                         else
    
35.                         begin
    
36.                         condition1 = var0 = var1 and Type >= 0 ;
    
37.                         if condition1 then
    
38.                                 var2 = PriceValueArray[Value2] ;
    
39.                                 end;
    
40.                                                                                
    
41.                                                                          
    
42.                         end ;
    
43.                 end ;
    
44.         end ;
    
45. 
    
46. ModeArray = var2 ;

复制代码