[Date Index]
[Thread Index]
[Author Index]
Re: Deleting entire row and/or column
*To*: mathgroup at smc.vnet.net
*Subject*: [mg98208] Re: [mg98175] Deleting entire row and/or column
*From*: Leonid Shifrin <lshifr at gmail.com>
*Date*: Thu, 2 Apr 2009 04:49:28 -0500 (EST)
*References*: <200904011057.FAA28709@smc.vnet.net>
Hi,
I would suggest to introduce some cutoff epsilon, so that if the total of
any row
or column is less than epsilon, the row(column) is considered zero. This
will
speed up things considerably.
Consider a test "random" matrix:
In[1] =
testMatrix =
{{0.0000273478, 0.00003388, 17., 12.0001, 7.00002,
12.0001},
{0.0000192929, 0.0000107438, 0.0000910806, 0.0000370966,
0.000055372, 0.0000476642},
{0.0000649353, 0.0000388735, 17., 18.,
18., 18.},
{0.0000503573, 0.0000859998, 0.0000592802, 0.000086099,
0.0000915784, 8.01093*10^-6}};
(I made the small (zero) elements relatively large to avoid messy input). If
you set up
epsilon = 0.001, then rows 2,4 are zeros, as well as columns 1,2.
Here is then the code for the function that does what you want:
In[2] =
removeZeros[matr_, epsilon_] :=
Nest[Transpose@Select[#, Total[Abs[#]] > epsilon &] &, matr, 2];
In[3] = removeZeros[testMatrix, 0.001]
Out[3] = {{17., 12.0001, 7.00002, 12.0001}, {17., 18., 18., 18.}}
If you need to delete only rows, use Select[#, Total[Abs[#]] > epsilon &]
&@matr
in the above definition, while if you need to delete only columns, use
Transpose[Select[#, Total[Abs[#]] > epsilon &] &@Transpose[matr]]
By making epsilon as small as you wish, you should be able to get what you
need.
At the same time, this solution will have a near linear complexity in the
maximal
matrix dimension (for the matrices not enormously large), while if you would
test element by element, you will end up with roughly quadratic complexity.
Regards,
Leonid
On Wed, Apr 1, 2009 at 3:57 AM, KFUPM <hussain.alqahtani at gmail.com> wrote:
> Dear all
>
> I have large matrices having entire rows and/or columns of zeros and I
> want to delete those zero rows and columns. My question, what is the
> best (most compact) command to use in Mathematica. Please note that
> the value of zero is the real zero i.e 0.0000 not just 0.
>
> Regards,
>
>
>
Prev by Date:
**Re: DeleteCases**
Next by Date:
**Re: simpler way to get a particular banded matrix?**
Previous by thread:
**Deleting entire row and/or column**
Next by thread:
**Re: Deleting entire row and/or column**
| |