龙听期货论坛's Archiver

龙听 发表于 2022-11-2 11:53

【Rank_a】

[code]Inputs: RankArray[size](NumericArrayRef), VArraySize(Numeric), Value2Rank(Numeric), SortOrder(Numeric);
Variables: var0(0);
                                                                                                     

If SortOrder < 0 Then
        var0 = SortDown_a(RankArray, VArraySize)
Else
        var0 = SortUp_a(RankArray, VArraySize);
       
For value1 = 1 To VArraySize Begin
        If Value2Rank = RankArray[value1] Then Begin
                Rank_a = value1;
                value1 = VArraySize + 1;
        End
        Else
                Rank_a = -1;
End;
[/code]

页: [1]