龙听期货论坛's Archiver

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

【NumericRank】

[code]inputs:
        PriceValueToRank( numericsimple ),
        PriceValue( numericseries ),
        Len( numericsimple ),
        SortOrder( numericsimple ) ;                                       

arrays:
        arr0[1000]( 0 ) ;

NumericRank = -1 ;       
                                                               
for Value1 = 1 to Len
        begin
        arr0[Value1] = PriceValue[ Value1 - 1 ] ;
        end ;
                                          
Value1 = SortArray( arr0, Len, SortOrder ) ;
for Value2 = 1 to Len
        begin
        condition1 = PriceValueToRank = arr0[Value2] ;
        if condition1 then
                begin
                NumericRank = Value2 ;
                Value2 = Len ;                                 
                end ;
        end ;
[/code]

页: [1]