STATA连乘编程-经管之家官网！

有如下格式数据：
ID Date Var1 Var2
A 1 1.1 1.1*0.9*1.1*0.6*0.3*0.8
A 2 0.9 0.9*1.1*0.6*0.3*0.8*0.7
A 3 1.1 1.1*0.6*0.3*0.8*0.7*1.6
A 4 0.6 0.6*0.3*0.8*0.7*1.6*0.3
A 5 0.3 ...
A 6 0.8 ...
A 7 0.7 ...
A 8 1.6 ...
A 9 0.3 ...
...
A 36 0.8 ...
B 1 1.2 ...
...
B 24 1.9 ...
...
Z 22 0.7 ...
要在Var2列对应行生成
gen Var2=Var1*Var1[_n+1]*Var1[_n+2]*Var1[_n+3]*Var1[_n+3]*Var1[_n+4]*Var1[_n+5]*Var1[_n+6]
这是6阶连乘的问题，如果是36阶连乘，那就写的太长了，有没有什么简便的方法可以解决这个问题？
另外，直接用prod函数好像解决不了我这个问题，因为我要求Var2每行都是Var1本行和下面n行的连乘。
参照sungmoo以前的程序，我改写了一个：
by ID: gen PRODUCT1=Var1
forv i=2/36{
loc j=`i'-1
g PRODUCT`i'=Var1*PRODUCT`j'[_n+1]
}
keep ID Date PRODUCT6 PRODUCT36
这个程序会生成36列，然后用keep保持想留下的n阶连乘，我这里是6和36
不知道哪位高人还有更简便的方法
谢谢！

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP