Return to Answer

Added the output

Source Link

edited Aug 28, 2014 at 11:57

8.6k
4
32
50

m = {{6.22926, 6.23254, 6.23128, 0, 6.23453, 6.22548, 6.22938, 6.23443, 0}, {6.22926, 6.23254, 6.23128, , 6.23453, 6.22548, 6.22938, 6.23443,}}

m = {{6.22926, 6.23254, 6.23128, 0, 6.23453, 6.22548, 6.22938, 
   6.23443, 0}, {6.22926, 6.23254, 6.23128, , 6.23453, 6.22548, 
   6.22938, 6.23443,}}

Select[m, MatrixQ[{#}, NumericQ] &]

Select[m, MatrixQ[{#}, NumericQ] &]

{{6.22926, 6.23254, 6.23128, 0, 6.23453, 6.22548, 6.22938, 6.23443, 0}}

more alternatives for speed comparisons.

m = {{6.22926, 6.23254, 6.23128, 0, 6.23453, 6.22548, 6.22938, 6.23443, 0}, {6.22926, 6.23254, 6.23128, , 6.23453, 6.22548, 6.22938, 6.23443,}}

Select[m, MatrixQ[{#}, NumericQ] &]

more alternatives for speed comparisons.

m = {{6.22926, 6.23254, 6.23128, 0, 6.23453, 6.22548, 6.22938, 
   6.23443, 0}, {6.22926, 6.23254, 6.23128, , 6.23453, 6.22548, 
   6.22938, 6.23443,}}

Select[m, MatrixQ[{#}, NumericQ] &]

{{6.22926, 6.23254, 6.23128, 0, 6.23453, 6.22548, 6.22938, 6.23443, 0}}

more alternatives for speed comparisons.

Source Link

created Aug 28, 2014 at 10:36

Wouter

1.3k
8
12

m = {{6.22926, 6.23254, 6.23128, 0, 6.23453, 6.22548, 6.22938, 6.23443, 0}, {6.22926, 6.23254, 6.23128, , 6.23453, 6.22548, 6.22938, 6.23443,}}

Select[m, MatrixQ[{#}, NumericQ] &]

more alternatives for speed comparisons.