Question

mathematica 如何在矩阵中提取部分元素累加

例如已知一个一行矩阵{a1,a2,a3,a4,a5}，怎么生成b矩阵{a1,a1+a2,a1+a2+a3，a1+a2+a3+a4,a1+a2+a3+a4+a5}

谢谢啦！！急用！在线等~！

Answer 1

a = {a1, a2, a3, a4, a5};
b = a;
For[i = 1, i <= Length[a], i++,
b[[i]] = Sum[a[[j]], {j, i}]]
方法应该有很多种，这只是其中一种方法
还可以写得更简单些：
a = {a1, a2, a3, a4, a5};b = Table[Sum[a[[j]], {j, i}], {i, 1, Length[a]}]

Answer 2

In[63]:= a = {a1, a2, a3, a4, a5};
Table[Sum[a[[n]], {n, 1, i}], {i, 1, Length[a]}]

Out[63]= {a1, a1 + a2, a1 + a2 + a3, a1 + a2 + a3 + a4,
a1 + a2 + a3 + a4 + a5}