삭제를 사용하여 정사각형 행에서 행과 열을 삭제합니다.

Question

주어진 : 정사각형 행렬 및 제거 할 행의 인덱스를 나타내는 list이며 동시에 제거 할 열의 인덱스를 나타냅니다 정사각형 행렬이므로 하나의 목록 만 필요함).

출력 : 목록의 행과 열을 모두 제거한 정사각형 행렬.

유효한 색인 목록을 가정하십시오.

이

는 예

따라서 상기 두 번째 및 4 번째 행, 또한 제 2 및 제 4 번째 열을 제거하는 말했다이다.

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 

내 질문 : 더 나은 방법으로이 작업을 수행하는 삭제를 사용하여 짧은 방법 (또는 그 전문 트릭의 또 다른 하나)이 있습니까?

감사

Answer 1

동일한 인덱스 열과 행을 제거하려는 경우 Part을 사용합니다.

a[[{1, 3, 5, 6}, {1, 3, 5, 6}]] // MatrixForm 

가보다 일반적인 당신이 Range으로 DeleteCases을 결합하는 뭔가 및 열/행 인덱스의 목록을 만들 수 있도록하기 위해하지만이 없을 경우 : 예 열 및 행 2, 4 a를 볼 수 있도록 제거 추가 정보 나는 그것을 (아직)하려하지 않았다.

편집

remove[a_?MatrixQ, pos_List] := Module[{tmp, length = Length[a]}, 

    tmp = DeleteCases[Range[length], Alternatives @@ pos]; 

    a[[tmp, tmp]] 

    ] 

remove[a,{2,4}] 
{{0, 2, 1, 0}, {4, 3, 3, 2}, {3, 4, 3, 3}, {5, 4, 2, 0}} 

Edit2가

remove2[a_?MatrixQ, pos_List] := Module[{tmp, length = Length[a]}, 

    tmp = Complement[Range[length], pos]; 

    a[[tmp, tmp]] 

    ] 

remove2[a,{2,4}] 
{{0, 2, 1, 0}, {4, 3, 3, 2}, {3, 4, 3, 3}, {5, 4, 2, 0}} 

시험이 모두 실제 세계의 문제.

Answer 2

당신은 확실히 드롭으로 예를 수행 할 수 있습니다

이

Drop[a, {2, 4, 2}, {2, 4, 2}] // MatrixForm 

나는이 얼마나 일반 모르겠지만, 어쩌면 그것이 올바른 방향을 설정하는 데 도움이됩니다.

Answer 3

이 이중 트랜스 방법보다 행 삭제하는 빠른 방법 같아야

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 = MapThread[Delete, {a, Table[del, {Length[a]}]}] 

타이밍이 변동이 있지만 다소 인위적인 예에서 빠르게이다

a = Table[RandomReal[], {1000}, {10000}]; 
del = Map[List, Union[Table[RandomInteger[{1, 10000}], {100}]]]; 
Timing[Transpose[Delete[Transpose[a], del]];] 

{0.25, 널 }

Timing[MapThread[Delete, {a, Table[del, {Length[a]}]}];] 

(0.125, 널}

Answer 4

이 방법은 Part 방법보다 훨씬 효율적이지 않지만 좀 더 투명하고 시간이 더 많이 걸립니다. 이 질문의

ReplacePart[a, {{2}, {4}, {_, 2}, {_, 4}} :> Sequence[]]