龙听期货论坛's Archiver

龙听 发表于 2022-11-2 09:57

【HeapPush】

[code]inputs:
        MyArray[MaxSize]( numericarray ),  
        int ColIndx3( numericref ),
        int Size( numericsimple ),
        int Order( numericsimple ) ;                                    

variables:
        int var0( 0 ) ;

if Order = -1 then
        begin
        if ColIndx3 < Size then
                begin
                var0 = ColIndx3 + 1 ;
                condition1 = MyArray[var0] > MyArray[ColIndx3] ;
                if condition1 then
                        ColIndx3 = var0 ;
                end ;
        HeapPush = ( MyArray[0] < MyArray[ColIndx3] ) ;
        end
else if Order = 1 then
        begin
        if ColIndx3 < Size then
                begin
                var0 = ColIndx3 + 1 ;
                condition1 = MyArray[var0] < MyArray[ColIndx3] ;
                if condition1 then
                        ColIndx3 = var0 ;
                end ;
        HeapPush = ( MyArray[0] > MyArray[ColIndx3] ) ;
        end
else
        RaiseRunTimeError( "Order input must be -1 or 1." ) ;
[/code]

页: [1]