如何在Mathematica中用多元素替换嵌套列表中的指定元素？

你的问题出在替换规则的右侧返回了嵌套列表，导致原位置被替换成一个子列表，进而产生额外嵌套。要实现平铺输出，只需用Sequence将替换后的两个子列表包装为序列，让它们直接插入原位置即可：

修正后的代码 #

bpas = {{1, 1/19, 3}, {2, 3/19, 3}, {3, 7/19, 1}};
bpas /. {x_ /; x == 2, y_, z_} -> Sequence[{2, 2 y, z}, {1, y/3, 2 z}]

输出结果 #

{{1, 1/19, 3}, {2, 6/19, 3}, {1, 1/19, 6}, {3, 7/19, 1}}

Sequence的作用是将多个元素“展开”为序列，替换时会把这两个子列表直接放到原元素的位置，而不是包裹成一个嵌套列表，完美匹配你需要的平铺结构。

内容的提问来源于stack exchange，提问作者Jiefeng.Zhou