有如下格式数据：
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

不知道哪位高人还有更简便的方法

谢谢！