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

---

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

1. inputs:
   
2.         MyArray[ MaxSize1, MaxSize2 ]( numericarrayref ),
   
3.         int ColIndx1( numericsimple ),                                       
   
4.         int Size1( numericsimple ),                           
   
5.         int Size2( numericsimple ),                                       
   
6.         int Order( numericsimple ) ;                                    
   
7. 
   
8. variables:
   
9.         int var0( 0 ),
   
10.         int var1( 0 ),
    
11.         var2( false ) ;
    
12. 
    
13. var0 = ColIndx1 ;
    
14. var1 = 2 * var0 ;
    
15. while var1 <= Size2 and HeapPush2D( MyArray, var1, Size2, Order )
    
16.         begin
    
17.         var2 = CopyColumn( MyArray, var0, var1, 1, Size1 ) ;                     
    
18.                          
    
19.         var0 = var1 ;
    
20.         var1 = 2 * var0 ;
    
21.         end;
    
22. var2 = CopyColumn( MyArray, var0, 0, 1, Size1 ) ;                                
    
23. 
    
24. HeapSift2D = true ;

复制代码

---

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

Powered by Discuz! 7.2