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

2025年03月12日 23:40

有2个网友回答

网友（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]}]

网友（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}