【Mode_a】

1. Inputs: ModeArray[size](NumericArrayRef), VArraySize(Numeric), Type(Numeric);
   
2. Variables: var0(0), var1(1), var2(0), var3(-1);
   
3.                                                                                                      
   
4. condition1 = MinList(size, VArraySize) > 1 ;
   
5. If condition1 Then Begin
   
6.         var0 = SortUp_a(ModeArray, VArraySize);
   
7.         var1 = 0;
   
8.         var2 = 0;
   
9. 
   
10.         For value1 = 1 To VArraySize - 1 Begin
    
11.         condition1 = ModeArray[value1] = ModeArray[value1 + 1] ;
    
12.                 If condition1 Then
    
13.                         var1 = var1 + 1
    
14.                 Else
    
15.                         var1 = 1;
    
16.        
    
17.         condition1 = var1 <> 1 AND var1 >= var2 ;
    
18.                 If condition1 Then Begin
    
19.                         If var1 > var2 Then Begin
    
20.                                 var3 = ModeArray[value1];
    
21.                                 var2 = var1;
    
22.                         End
    
23.                         Else
    
24.                                 If Type >= 0 Then
    
25.                                         var3 = ModeArray[value1];
    
26.                 End;
    
27.         End;
    
28. End;
    
29. 
    
30. Mode_a = var3;

复制代码