本文,介绍一下,对列表内容进行局部替换的方法。用的软件是Mathematica。
工具/原料
电脑
Mathematica
一维列表
1、先来给出一个字母列表:U=CharacterRange["a", "z"]
2、把第六个字母替换为000:ReplacePart[U, 6 -> "000"]注意,这里的000需要以字符串的形式出现。
3、否则,Mathematica会把它当成数字0对待:ReplacePart[U, 6 -> 000]
4、把第6到第9个元素,替换为000:ReplacePart[U, {{6 | 7 | 8 | 9} -> "000"}]
5、把偶数位置的字母替换为0:ReplacePart[U, _?EvenQ -> 0]
二维列表
1、二维列表的主要代表,就是矩阵:V = Partition[U, 6];
2、把第二行第三个元素替换为“哈”:ReplacePart[V, {2, 3} -> 哈]
3、替换第三行所有的元素:ReplacePart[V, {3, _} -> 哈]
4、替换第三列所有的元素:ReplacePart[V, {_, 3} -> 哈]
5、替换第一列和最后一列的元素:ReplacePart[V, {_, 1 | 6} -> 哈]
6、替换对角元素:ReplacePart[V, {i_, i_} -> 哈]思考一下,怎么替换反对角线上的元素?