建立一个大根堆，如下代码

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. xh<-rnorm(50)
   
2. xh<-abs(xh)
   
3. hs<-function(x){
   
4.         for(i in length(x)/2:1){
   
5.                 x<-ha(x,i,length(x))
   
6.         }
   
7.         return(x)
   
8. }
   
9. ha<-function(x,n,m){
   
10.         k<-n
    
11.         f<-x[n]
    
12.         if(2*n<=m && x[2*n]>f){
    
13.                 k<-2*n
    
14.                 f<-x[2*n]
    
15.         }
    
16.         if(2*n+1<=m && x[2*n+1]>f){
    
17.                 k<-2*n+1
    
18.                 f<-x[2*n+1]
    
19.         }
    
20.         if(k!=n){
    
21.                 t<-x[n]
    
22.                 x[n]<-x[k]
    
23.                 x[k]<-t
    
24.                 x<-ha(x,k,m)
    
25.         }
    
26.         return(x)
    
27. }

复制代码

为什么返回的结果和原数组一样？
是hs函数调用数组xh

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

感觉你是不是应该用下面的代码：

1. set.seed(2015)
   
2. xh<-rnorm(50)
   
3. xh<-abs(xh)
   
4. hs<-function(x){
   
5.   for(i in (length(x)/2):1){
   
6.     x<-ha(x,i,length(x))
   
7.   }
   
8.   return(x)
   
9. }
   
10. ha<-function(x,n,m){
    
11.   k<-n
    
12.   f<-x[n]
    
13.   if(2*n<=m && x[2*n]>f){
    
14.     k<-2*n
    
15.     f<-x[2*n]
    
16.   }
    
17.   if(2*n+1<=m && x[2*n+1]>f){
    
18.     k<-2*n+1
    
19.     f<-x[2*n+1]
    
20.   }
    
21.   if(k!=n){
    
22.     t<-x[n]
    
23.     x[n]<-x[k]
    
24.     x[k]<-t
    
25.     x<-ha(x,k,m)
    
26.   }
    
27.   return(x)
    
28. }
    
29. 
    
30. hs(xh)

复制代码

主要错误在这句：

1. for(i in (length(x)/2):1){

复制代码

统计与R语言咨询 发表于 2015-3-27 15:41
感觉你是不是应该用下面的代码：

谢谢！是这样的。顺带我还发现另一个程序的问题。