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

---

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

1. inputs:
   
2.         MyArray[MaxSize]( numericarrayref ),
   
3.         int ColIndx1( numericsimple ),
   
4.         int Size( numericsimple ),
   
5.         int Order( numericsimple ) ;                                    
   
6. 
   
7. variables:
   
8.         int var0( 0 ),
   
9.         int var1( 0 ) ;
   
10. 
    
11. var0 = ColIndx1 ;
    
12. var1 = 2 * var0 ;
    
13. while var1 <= Size and HeapPush( MyArray, var1, Size, Order )
    
14.         begin
    
15.         MyArray[var0] = MyArray[var1] ;
    
16.         var0 = var1 ;
    
17.         var1 = 2 * var0 ;
    
18.         end ;
    
19. MyArray[var0] = MyArray[0] ;
    
20. 
    
21. HeapSift = true ;

复制代码

---

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

Powered by Discuz! 7.2