龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

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

【Sort2DArrayByKey】

[code]inputs:
        _2DArray[MaxSize1, MaxSize2]( numericarrayref ),
        Size( numericsimple ),                        
        HiLo( numericsimple ) ;                                                     

for Value1 = 0 to Size - 2
        begin
        for Value2 = Value1 + 1 to Size - 1
                begin
                condition1 = ( HiLo = 1 and _2DArray[Value1, 0] < _2DArray[Value2, 0] )
                 or ( HiLo = -1 and _2DArray[Value1, 0] > _2DArray[Value2, 0] ) ;
                 
                if condition1 then
                        begin
                        value11 = _2DArray[Value1, 0];
                        _2DArray[Value1, 0] = _2DArray[Value2, 0];
                        _2DArray[Value2, 0] = value11;
                       
                        value22 = _2DArray[Value1, 1];
                        _2DArray[Value1, 1] = _2DArray[Value2, 1];
                        _2DArray[Value2, 1] = value22;
                        end ;
                end ;
        end ;
Sort2DArrayByKey = 1 ;
[/code]

页: [1]