Mathematica，用Table生成一个列表，如何将列表中的两列元素进行相减。

发布网友发布时间：2022-05-18 17:43

共2个回答

热心网友时间：2023-10-21 14:49

data = Table[x y, {x, 1, 10}, {y, 1, 10}] // MatrixForm
i = 5;
j = 3;
subtract = ReplacePart[data, {1, a_, i} -> f[a]];
f[a_] := data[[1, a, i]] - data[[1, a, j]];
subtract
Clear[f];
计算结果是Table内第i列元素减去第j列元素，相减的结果替换原来Table内第i列元素

更简单的：
data = Table[x y, {x, 1, 10}, {y, 1, 10}];
i = 2;
j = 8;
subtract =
Transpose[
ReplacePart[
Transpose[data], {i} ->
Transpose[data][[i]] - Transpose[data][[j]]]] // MatrixForm

热心网友时间：2023-10-21 14:50

Transpose[table][[i]]-Transpose[table][[j]]

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com