问关于一个叠加算法的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

我现在有个表格，比如是：
   x            y            z

1984	2574	2.8
1985	2818	9.3
1986	2762	6.5
1987	3242	7.3
1988	4044	18.8
1989	3600	18
1990	3576	3.1
1991	4011	3.4
1992	4682	6.4
1993	6092	14.7
1994	5704	24.1
1995	7307	17.1
1996	8576	8.3
1997	9538	2.8
1998	10193	-0.8
1999	10831	-1.4
2000	11982	0.4
2001	13243	0.7
2002	14533	-0.8
2003	16404	1.2

我想得出一列新的数据，第一个是2574*（1+2.8%）*（1+9.3%）*（1+6.5%）*（1+7.3%）*……*（1+1.2%）
                                         第二个是2818*（1+9.3%）*（1+6.5%）*（1+7.3%）*……*（1+1.2%）
                                         第三个是2762*（1+6.5%）*（1+7.3%）*……*（1+1.2%）                                       
                                         ……
                                         最后一个16404*（1+1.2%）

我太低端了，这个程序我都没想出来。想烦请前辈们指点一下。 这段程序可以怎么写？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：最后一个

data table;
input x $ y z;
cards;
1984 2574 2.8
1985 2818 9.3
1986 2762 6.5
1987 3242 7.3
1988 4044 18.8
1989 3600 18
1990 3576 3.1
1991 4011 3.4
1992 4682 6.4
1993 6092 14.7
1994 5704 24.1
1995 7307 17.1
1996 8576 8.3
1997 9538 2.8
1998 10193 -0.8
1999 10831 -1.4
2000 11982 0.4
2001 13243 0.7
2002 14533 -0.8
2003 16404 1.2
;
run;
data table_2;
retain tot tot1 1;
if _n_=1 then do until(last) ;
set table end=last;
tot=tot*(1+z*0.01);
end;
set table;
tot1=tot1*(1+z*0.01);
tot2=y*(tot-tot1);
if last then tot2=y*(1+z*0.01);
run;

2# wb8686

太谢谢了，让我仔细学习下！
谢谢好心人的耐心和知识。

1. data table;
   
2.     input x $ y z;
   
3. cards;
   
4. 1984 2574 1
   
5. 1985 2818 2
   
6. 1986 2762 3
   
7. ;
   
8. data table2(drop=zz);
   
9.     set table nobs=nobs;
   
10.     tot=y;
    
11.     do i=_n_ to nobs;
    
12.         set table(keep=z rename=(z=zz)) point=i;
    
13.         tot=tot*(1+zz*.01);
    
14.     end;
    
15. run;

复制代码

proc sort data=table ;
by descending x;
run;
data table;
retain f 1;
set table;
bv=1+z/100;
f=f*bv;
want=y*f;
keep x y z want;
run;
proc sort data=table ;
by  x;
run;

2楼朋友的想法很好！

4# hopewell
真是才人啊！十分感谢。

5# zhaoping603
谢谢前辈，你的方法最适合我的思维模式，我个人比较青睐你的算法。