龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

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

【Sort2DArray】

[code]inputs:
        PriceValueArray[ MaxSize1, MaxSize2 ]( numericarrayref ),
        Size1( numericsimple ),                          
        Size2( numericsimple ),                          
        HiLo( numericsimple ) ;                                                     

variables:
        var0( 0 ) ;

for Value1 = 1 to Size2 - 1
        begin
        for Value2 = Value1 + 1 to Size2
                begin
                condition1 = ( HiLo = 1 and PriceValueArray[ 1, Value1 ] < PriceValueArray[ 1, Value2 ] )
                 or ( HiLo = -1 and PriceValueArray[ 1, Value1 ] > PriceValueArray[ 1, Value2 ] ) ;
                 
                if condition1 then
                        begin
                        for Value3 = 1 to Size1
                                begin
                                var0 = PriceValueArray[ Value3, Value1 ] ;
                                PriceValueArray[ Value3, Value1 ] = PriceValueArray[ Value3, Value2 ] ;
                                PriceValueArray[ Value3, Value2 ] = var0 ;
                                end ;
                        end ;
                end ;
        end ;
Sort2DArray = 1 ;
[/code]

页: [1]