你的浏览器禁用了JavaScript, 请开启后刷新浏览器获得更好的体验!

在Mathematica中删除矩阵列的简单方法

我试图删除mathematica中的矩阵。这样做的一种不优雅的方式就像我在下面所做的那样，即在一个新的矩阵中指定它

S = Table[
    Ss[[If[i < t, i, i + 1]]][[If[j < t, j, j + 1]]], {i, q}, {j, q}];

目标是消除行和列t。确实删除一行很容易删除[Ss，t]。对于列列，我想我可以做

Transpose[Delete[Transpose[Ss,t]]]

我主要关心的是以尽可能快的方式执行它。更一般地说，是否有一个Mathematica运算符，它可以像对行进行切片和切块一样容易，而无需使用转置？

已邀请:

1 个回复

我想你正在寻找：

Drop[Ss,{t},{t}]

时序：

ClearAll["Global`*"];

First@Timing[a = RandomInteger[1000, {5000, 5000}];]
0.34

First@Timing[Drop[a, {2}, {2}]]
0.11

而

First@Timing[Transpose@Delete[Transpose@Delete[a, 2], 2]]
0.5

要回复问题请先登录或注册