Board logo

标题: 【HeapPush2D】 [打印本页]
作者: 龙听    时间: 2022-11-2 09:57     标题: 【HeapPush2D】

  1. inputs:
  2.         MyArray[ MaxSize1, MaxSize2 ]( numericarray ),  
  3.         int ColIndx3( numericref ),
  4.         int Size( numericsimple ),
  5.         int Order( numericsimple ) ;                                    

  7. variables:
  8.         int var0( 0 ) ;

  10. if Order = -1 then
  11.         begin
  12.         if ColIndx3 < Size then
  13.                 begin
  14.                 var0 = ColIndx3 + 1 ;
  15.                 condition1 = MyArray[ 1, var0 ] > MyArray[ 1, ColIndx3 ] ;
  16.                 if condition1 then
  17.                         ColIndx3 = var0 ;
  18.                 end ;
  19.         HeapPush2D = ( MyArray[ 1, 0 ] < MyArray[ 1, ColIndx3 ] ) ;
  20.         end
  21. else if Order = 1 then
  22.         begin
  23.         if ColIndx3 < Size then
  24.                 begin
  25.                 var0 = ColIndx3 + 1 ;
  26.                 condition1 = MyArray[ 1, var0 ] < MyArray[ 1, ColIndx3 ] ;
  27.                 if condition1 then
  28.                          ColIndx3 =        var0 ;
  29.                 end ;
  30.         HeapPush2D = ( MyArray[ 1, 0 ] > MyArray[ 1, ColIndx3 ] ) ;
  31.         end
  32. else
  33.         RaiseRunTimeError( "Order input must be -1 or 1." ) ;
复制代码




欢迎光临 龙听期货论坛 (http://qhlt.club/) Powered by Discuz! 7.2