急！ sas滚动投资模拟模型！

我现在想利用复利滚动投资的思想做一个sas模型：假定初始金额m=100元，每次投资的比例a=1%，投资成功率有p=1/10，收益r=初始投资额的5倍，失败的概率为q=9/10，收益为零，（注：不管结果如何，投资均视为沉没成本），计算当期总盈亏，然后重复以上操作（上一期的期末余额成为下一期新的初始金额），n=100期之后，结果是怎样的，最好画出一个曲线来。将以上结果重复100遍，结果是一个什么样的分布，最好画出分布图。我写了好几个函数，都有问题，还望大神们提供思路，给予指导~谢谢啦！

结果满意额外奖励论坛币！

1. data R;
   
2. retain R Rwin RPW Rloss RPL;
   
3. do i=1 to 100;
   
4.         if i=1 then do;
   
5.                 m=100;
   
6.                 R=1/100;
   
7.                 Rwin=0.1;
   
8.                 RPW=5;
   
9.                 RPL=0;
   
10.                 Ran=RANUNI(999);
    
11.                 if Ran<=Rwin then win=m*R*(RPW+1);
    
12.                 else win=-m*R;
    
13.         end;
    
14.         else do;
    
15.                 m=m+win;
    
16.                 Ran=RANUNI(999);
    
17.                 if Ran<=Rwin then win=m*R*(RPW+1);
    
18.                 else win=-m*R;
    
19.         end;
    
20.         output;
    
21. end;
    
22. run;
    
23. 
    
24. Proc sgplot data=R;
    
25. scatter x=i y=m;
    
26. run;
    
27. 
    
28. Proc sgplot data=R;
    
29. scatter x=i y=win;
    
30. run;

复制代码

data b;
retain m_invest 0 ret 0 m 100;
do i=1 to 100;
m_invest=m*0.01;
ret=0.1*m_invest*5;
output;
m=m-m_invest+ret;
end;
run;