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

2025-03-12 23:40:44

推荐回答（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}