相关疑难解决方法(0)

我试图删除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运算符,它可以像对行进行切片和切块一样容易,而无需使用转置？

我有一个10乘10矩阵.我想从这个主矩阵形成一个子矩阵,使用除第1,第2和第8列和行之外的所有行和列.
我知道Part可以用来形成子矩阵,但是这些例子主要是关于仅使用连续的行和列来形成子矩阵.

给定:方形矩阵和表示要删除的行的索引的列表,它还同时表示要删除的列的索引(它是方形矩阵,因此只需要一个列表).

输出:方形矩阵,删除列表中的行和列列.

假设有效的索引列表.

这是一个例子

所以上面说的是删除第二行和第四行,以及第二和第四列.

我Delete[]无法想象如何使用同时删除行和列,我真的不想列出我想删除的每个单独的元素索引.

但我可以Delete用来删除行.

下面我解决了它,我首先删除了行,然后转换了矩阵,然后删除了新矩阵的行(这将是原始列的行),然后将结果转换回来获得我想要的.

像这样:

a = {{0, 5, 2, 3, 1, 0}, {4, 3, 2, 5, 1, 3}, {4, 1, 3, 5, 3, 2}, {4, 
    4, 1, 1, 1, 5}, {3, 4, 4, 5, 3, 3}, {5, 1, 4, 5, 2, 0}};
del = {{2}, {4}};
a = Delete[a, del];
a = Delete[Transpose[a], del];
(a = Transpose[a]) // MatrixForm

我的问题:是否有更短的方式使用Delete(或其他一个专家技巧)以更好的方式做到这一点？

谢谢