Return to Question

I have two 2-D matrices $A$ and $B$ which have the style written as below:

I have two 2-D matrices $A$ and $B$(owns same dimentions) which have the style written as below:

In addition, I have a trial to refactor the code

Test

mat1 = Partition[Range[1, 25], 5]; mat2 = Partition[Range[26, 50], 5]; MatrixForm /@ {mat1, mat2} MatrixForm /@ swap[mat1, mat2] 

In addition, I have a trial to refactor the code

I have two 2-D matrices $A$ and $B$ which have the style written as below:

$ \begin{bmatrix} a_{11} & a_{12} & \cdots & a_{1k} &\cdots &\cdots & a_{1,2k+1}\\ a_{21} & a_{22} & \cdots & a_{2k} &\cdots &\cdots & a_{2,2k+1}\\ \vdots & \vdots & \vdots & \vdots &\vdots &\cdots & \vdots \\ a_{k1} & a_{k2} & \cdots & a_{kk} &\cdots &\cdots & a_{k,2k+1}\\ a_{k+1,1} & a_{k+1,2} & \cdots & a_{k+1,k+1} & a_{k+1,k+1} &\cdots a_{k+1,2k} & a_{k+1,,2k+1}\\ a_{k+2,1} & a_{k+2,2} & \cdots & a_{k+2,k} &\cdots &\cdots & a_{k+2,,2k+1}\\ \vdots & \vdots & \vdots & \vdots &\vdots & \vdots \\ a_{2k+1,1} & a_{2k+1,2} & \cdots & a_{2k+1,k} &\cdots &\cdots & a_{2k+1,2k+1}\\ \end{bmatrix} _{2k+1\times 2k+1} $

Now I want to swap the value of some positions betwen them

My awkward solution

swap[A_, B_] := Module[{k}, k = Quotient[Length@A, 2]; {A[[1 ;; k, 1 ;; k]], B[[1 ;; k, 1 ;; k]]} = {B[[1 ;; k, 1 ;; k]], A[[1 ;; k, 1 ;; k]]}; {A[[k + 2 ;; 2 k + 1, 1 ;; k]], B[[k + 2 ;; 2 k + 1, 1 ;; k]]} = {B[[k + 2 ;; 2 k + 1, 1 ;; k]], A[[k + 2 ;; 2 k + 1, 1 ;; k]]}; {A[[k + 1, k + 1 ;; 2 k]], B[[k + 1, k + 1 ;; 2 k]]} = {B[[k + 1, k + 1 ;; 2 k]], A[[k + 1, k + 1 ;; 2 k]]}; {A, B} ] 

In addition, I have a trial to refactor the code

 {A[[1 ;; k, 1 ;; k]], B[[1 ;; k, 1 ;; k]]} = {B[[1 ;; k, 1 ;; k]], A[[1 ;; k, 1 ;; k]]}; {A[[k + 2 ;; 2 k + 1, 1 ;; k]], B[[k + 2 ;; 2 k + 1, 1 ;; k]]} = {B[[k + 2 ;; 2 k + 1, 1 ;; k]], A[[k + 2 ;; 2 k + 1, 1 ;; k]]}; 

to the below style

{A[[{1 ;; k, k + 2 ;; 2 k + 1}, 1 ;; k]], B[[{1 ;; k, k + 2 ;; 2 k + 1}, 1 ;; k]]} = {B[[{1 ;; k, k + 2 ;; 2 k + 1}, 1 ;; k]], A[[{1 ;; k, k + 2 ;; 2 k + 1}, 1 ;; k]]} 

However, I failed in this trial and it seems that Span(;;) doesn't own this usage.

Question

• Is there other better methods(solutions) to implement this swap operation?

I have two 2-D matrices $A$ and $B$ which have the style written as below:

$ \begin{bmatrix} a_{11} & a_{12} & \cdots & a_{1k} &\cdots &\cdots & a_{1,2k+1}\\ a_{21} & a_{22} & \cdots & a_{2k} &\cdots &\cdots & a_{2,2k+1}\\ \vdots & \vdots & \vdots & \vdots &\vdots &\cdots & \vdots \\ a_{k1} & a_{k2} & \cdots & a_{kk} &\cdots &\cdots & a_{k,2k+1}\\ a_{k+1,1} & a_{k+1,2} & \cdots & a_{k+1,k+1} & a_{k+1,k+1} &\cdots a_{k+1,2k} & a_{k+1,,2k+1}\\ a_{k+2,1} & a_{k+2,2} & \cdots & a_{k+2,k} &\cdots &\cdots & a_{k+2,,2k+1}\\ \vdots & \vdots & \vdots & \vdots &\vdots & \vdots \\ a_{2k+1,1} & a_{2k+1,2} & \cdots & a_{2k+1,k} &\cdots &\cdots & a_{2k+1,2k+1}\\ \end{bmatrix} _{2k+1\times 2k+1} $

Now I want to swap the value of some positions betwen them

My awkward solution

Edit Thanks for @Kuba

swap[a_, b_] := Module[{k, A = a, B = b}, k = Quotient[Length@A, 2]; {A[[1 ;; k, 1 ;; k]], B[[1 ;; k, 1 ;; k]]} = {B[[1 ;; k, 1 ;; k]], A[[1 ;; k, 1 ;; k]]}; {A[[k + 2 ;; 2 k + 1, 1 ;; k]], B[[k + 2 ;; 2 k + 1, 1 ;; k]]} = {B[[k + 2 ;; 2 k + 1, 1 ;; k]], A[[k + 2 ;; 2 k + 1, 1 ;; k]]}; {A[[k + 1, k + 1 ;; 2 k]], B[[k + 1, k + 1 ;; 2 k]]} = {B[[k + 1, k + 1 ;; 2 k]], A[[k + 1, k + 1 ;; 2 k]]}; {A, B} ] 

In addition, I have a trial to refactor the code

 {A[[1 ;; k, 1 ;; k]], B[[1 ;; k, 1 ;; k]]} = {B[[1 ;; k, 1 ;; k]], A[[1 ;; k, 1 ;; k]]}; {A[[k + 2 ;; 2 k + 1, 1 ;; k]], B[[k + 2 ;; 2 k + 1, 1 ;; k]]} = {B[[k + 2 ;; 2 k + 1, 1 ;; k]], A[[k + 2 ;; 2 k + 1, 1 ;; k]]}; 

to the below style

{A[[{1 ;; k, k + 2 ;; 2 k + 1}, 1 ;; k]], B[[{1 ;; k, k + 2 ;; 2 k + 1}, 1 ;; k]]} = {B[[{1 ;; k, k + 2 ;; 2 k + 1}, 1 ;; k]], A[[{1 ;; k, k + 2 ;; 2 k + 1}, 1 ;; k]]} 

However, I failed in this trial and it seems that Span(;;) doesn't own this usage.

Question

• Is there other better methods(solutions) to implement this swap operation?