data t1;
day=5; r=0.05;p=5;    output;
day=4; r=0.04;p=.;    output;
day=3; r=0.03;p=.;    output;
day=2; r=0.02;p=.;    output;
day=1; r=0.01;p=.;    output;
run;

data t2;
   set t1;
   retain p2;
   if _n_=1 the p2=p;
   else p2=p2/(r+1);
run;


proc print; run;

学习了 谢谢

貌似程序有问题

4# 醉_清风

bobguy的程序稍微改动下就可以了，他貌似用了r(t-1)......