标题: 【Rank_a】 [打印本页]

---

作者: 龙听    时间: 2022-11-2 11:53     标题: 【Rank_a】

1. Inputs: RankArray[size](NumericArrayRef), VArraySize(Numeric), Value2Rank(Numeric), SortOrder(Numeric);
   
2. Variables: var0(0);
   
3.                                                                                                      
   
4. 
   
5. If SortOrder < 0 Then
   
6.         var0 = SortDown_a(RankArray, VArraySize)
   
7. Else
   
8.         var0 = SortUp_a(RankArray, VArraySize);
   
9.        
   
10. For value1 = 1 To VArraySize Begin
    
11.         If Value2Rank = RankArray[value1] Then Begin
    
12.                 Rank_a = value1;
    
13.                 value1 = VArraySize + 1;
    
14.         End
    
15.         Else
    
16.                 Rank_a = -1;
    
17. End;

复制代码

---

欢迎光临 龙听期货论坛 (http://qhlt.club/)

Powered by Discuz! 7.2