标题: 【HeapPush】 [打印本页]

---

作者: 龙听    时间: 2022-11-2 09:57     标题: 【HeapPush】

1. inputs:
   
2.         MyArray[MaxSize]( numericarray ),  
   
3.         int ColIndx3( numericref ),
   
4.         int Size( numericsimple ),
   
5.         int Order( numericsimple ) ;                                    
   
6. 
   
7. variables:
   
8.         int var0( 0 ) ;
   
9. 
   
10. if Order = -1 then
    
11.         begin
    
12.         if ColIndx3 < Size then
    
13.                 begin
    
14.                 var0 = ColIndx3 + 1 ;
    
15.                 condition1 = MyArray[var0] > MyArray[ColIndx3] ;
    
16.                 if condition1 then
    
17.                         ColIndx3 = var0 ;
    
18.                 end ;
    
19.         HeapPush = ( MyArray[0] < MyArray[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[var0] < MyArray[ColIndx3] ;
    
27.                 if condition1 then
    
28.                         ColIndx3 = var0 ;
    
29.                 end ;
    
30.         HeapPush = ( MyArray[0] > MyArray[ColIndx3] ) ;
    
31.         end
    
32. else
    
33.         RaiseRunTimeError( "Order input must be -1 or 1." ) ;

复制代码

---

欢迎光临 龙听期货论坛 (http://www.qhlt.cn/)

Powered by Discuz! 7.2