龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-2 13:18

【SortArray】

[code]inputs:
        PriceValueArray[MaxSize]( numericarrayref ),
        Size( numericsimple ),                        
        HiLo( numericsimple ) ;                                                     

variables:
        var0( 0 ) ;

for Value1 = 1 to Size - 1
        begin
        for Value2 = Value1 + 1 to Size
                begin
                condition1 = ( HiLo = 1 and PriceValueArray[Value1] < PriceValueArray[Value2] )
                 or ( HiLo = -1 and PriceValueArray[Value1] > PriceValueArray[Value2] ) ;
                 
                if condition1 then
                        begin
                        var0 = PriceValueArray[Value1] ;
                        PriceValueArray[Value1] = PriceValueArray[Value2] ;
                        PriceValueArray[Value2] = var0 ;
                        end ;
                end ;
        end ;
SortArray = 1 ;
[/code]

页: [1]