Re: How to delete a row and a column in a matrix?
- To: mathgroup at smc.vnet.net
- Subject: [mg69720] Re: How to delete a row and a column in a matrix?
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Thu, 21 Sep 2006 07:31:11 -0400 (EDT)
- Organization: The Open University, Milton Keynes, UK
- References: <eeqqlr$onu$1@smc.vnet.net>
hussain.alqahtani at gmail.com wrote: > Dear > > I am wondering how to delete a given row and column in a matrix in a > single command.? > > Your prompt reply is highly appreciated. > I believe that you are already aware of the Delete function. I am not aware of a similar function that allow simultaneously the deletion of rows and columns, so I wrote the following function that -- I hope -- should be self-explanatory and do what you are looking for. In[1]:= deleteRC[(mat_)?MatrixQ, row_Integer, col_Integer] := Module[{m = mat, r = row, c = col}, If[r != 0, m = Delete[m, r]]; If[c != 0, m = Transpose[Delete[Transpose[m], c]]]; m] In[2]:= TableForm[m = {{a, b, c}, {d, e, f}, {j, h, k}}] Out[2]//TableForm= a b c d e f j h k In[3]:= TableForm[deleteRC[m, 1, 3]] Out[3]//TableForm= d e j h In[4]:= TableForm[deleteRC[m, 0, 3]] Out[4]//TableForm= a b d e j h Regards, Jean-Marc