data have;
infile cards missover;
input code f r;
datalines;
1 0.1 1.2
1 0.1
1 0.1  
1 0.1  
1 0.1  
1 0.2
1 0.2  
1 0.2  
1 0.2  
1 0.2  
1 0.2  
1 0.2  
;
data wanted;
    set have;
        retain temp;
        if _n_ ne 1 then r=temp+f*0.4;
        temp=r*0.6;
        drop temp;
run;

你不是自己已经用EXCEL算出来了吗
还是我没看清楚

excel是算的小样本，是个范例

data<-read.table("",header=T)
f<-data$f
l<-length(f)
r<-as.numeric()
r[1]=1.2
for (i in 2:l){
r[i]=r[i-1]*0.6+f[i]*0.4
}
print(r)
用R吗。。
我也是算过类似的，算新的变量，直接算是快，写程序是希望以后用的上，但在转换文件上比较麻烦。