【PercentRank_a】

1. Inputs: PcntileArray[size](NumericArrayRef), VArraySize(NumericRef), RankVal(Numeric);
   
2. Variables: var0(0), var1(0), var2(0), var3(0), var4(0), var5(0);
   
3.                                                                                                      
   
4. condition1 = MinList(size, VArraySize) > 1 ;
   
5. If condition1 Then Begin
   
6.         var0 = SortUp_a(PcntileArray, VArraySize);
   
7.         var1 = 1 / (size - 1);
   
8.         For value1 = 1 To size Begin
   
9.         condition1 = PcntileArray[value1] = RankVal ;
   
10.                 If condition1 Then Begin
    
11.                         var4 = value1;
    
12.                         value1 = size;
    
13.                 End;
    
14.         End;
    
15.         If var4 <> 0 Then Begin
    
16.                 PercentRank_a = (var4 - 1) * var1;
    
17.                 var4 = 0;
    
18.         End
    
19.         Else Begin
    
20.                 For value1 = 1 To size - 1 Begin
    
21.                         var2 = PcntileArray[value1];
    
22.                         var3 = PcntileArray[value1 + 1];
    
23.                         condition1 = RankVal > var2 AND RankVal < var3 ;
    
24.                         If condition1 Then Begin
    
25.                                 If value1 = 1 Then Begin
    
26.                                         var5 = .25;
    
27.                                         PercentRank_a = ((RankVal - var2) * var5) / (var3 - var2);
    
28.                                         value1 = size - 1;
    
29.                                 End
    
30.                                 Else Begin
    
31.                                         var5 = (value1 - 1) * var1;
    
32.                                         PercentRank_a = var5 + (((RankVal - var2) * var5) / (var3 - var2));
    
33.                                         value1 = size - 1;
    
34.                                 End;
    
35.                         End;
    
36.                 End;
    
37.         End;
    
38. End
    
39. Else
    
40.         PercentRank_a = -1;

复制代码