Find the identical rows in a matrixHow to find rows that have maximum value?How to do equality check of a large matrix and get the corresponding index position?List manipulation: Dropping first or last row or column of a matrixIs it possible to colour only one column of a matrix?Make a vector of sums of matrix rowsHow to operate on spans of rows in a matrix?Efficiently select the smallest magnitude element from each column of a matrixMatrix expansion and reorganisationMatrix using For LoopChanging the position of rows and columns in a matrix

Find a stone which is not the lightest one

What makes accurate emulation of old systems a difficult task?

Why do games have consumables?

What does "function" actually mean in music?

Why didn't the Space Shuttle bounce back into space as many times as possible so as to lose a lot of kinetic energy up there?

Drawing a german abacus as in the books of Adam Ries

"The cow" OR "a cow" OR "cows" in this context

Contradiction proof for inequality of P and NP?

Multiple fireplaces in an apartment building?

A ​Note ​on ​N!

Older movie/show about humans on derelict alien warship which refuels by passing through a star

What is the term for a person whose job is to place products on shelves in stores?

Why is the underscore command _ useful?

"My boss was furious with me and I have been fired" vs. "My boss was furious with me and I was fired"

How much of a wave function must reside inside event horizon for it to be consumed by the black hole?

What was Apollo 13's "Little Jolt" after MECO?

Bayes factor vs P value

Double-nominative constructions and “von”

Philosophical question on logistic regression: why isn't the optimal threshold value trained?

Check if a string is entirely made of the same substring

Can a stored procedure reference the database in which it is stored?

Suing a Police Officer Instead of the Police Department

How to pronounce 'c++' in Spanish

Is Diceware more secure than a long passphrase?



Find the identical rows in a matrix


How to find rows that have maximum value?How to do equality check of a large matrix and get the corresponding index position?List manipulation: Dropping first or last row or column of a matrixIs it possible to colour only one column of a matrix?Make a vector of sums of matrix rowsHow to operate on spans of rows in a matrix?Efficiently select the smallest magnitude element from each column of a matrixMatrix expansion and reorganisationMatrix using For LoopChanging the position of rows and columns in a matrix













3












$begingroup$


Suppose I have the following matrix:



M = 
 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0,1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 

TableForm[M, TableHeadings -> S1, S2, S3, S4, S5, S6, S7, S8]


matrix



In this case, it turns out that rows (S1, S8), (S2, S3, S4), (S5, S6, S7) have equal element values in identical column positions. I have a 1000 x 1000 matrix to examine and would appreciate any assistance in coding this problem.






list-manipulation matrix







share|improve this question











$endgroup$











  • $begingroup$
    Try Values[PositionIndex[M]]
    $endgroup$
    – Coolwater
    34 mins ago















3












$begingroup$


Suppose I have the following matrix:



M = 
 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0,1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 

TableForm[M, TableHeadings -> S1, S2, S3, S4, S5, S6, S7, S8]


matrix



In this case, it turns out that rows (S1, S8), (S2, S3, S4), (S5, S6, S7) have equal element values in identical column positions. I have a 1000 x 1000 matrix to examine and would appreciate any assistance in coding this problem.






list-manipulation matrix







share|improve this question











$endgroup$











  • $begingroup$
    Try Values[PositionIndex[M]]
    $endgroup$
    – Coolwater
    34 mins ago













3












3








3





$begingroup$


Suppose I have the following matrix:



M = 
 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0,1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 

TableForm[M, TableHeadings -> S1, S2, S3, S4, S5, S6, S7, S8]


matrix



In this case, it turns out that rows (S1, S8), (S2, S3, S4), (S5, S6, S7) have equal element values in identical column positions. I have a 1000 x 1000 matrix to examine and would appreciate any assistance in coding this problem.






list-manipulation matrix







share|improve this question











$endgroup$




Suppose I have the following matrix:



M = 
 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0,1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 
 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0; 

TableForm[M, TableHeadings -> S1, S2, S3, S4, S5, S6, S7, S8]


matrix



In this case, it turns out that rows (S1, S8), (S2, S3, S4), (S5, S6, S7) have equal element values in identical column positions. I have a 1000 x 1000 matrix to examine and would appreciate any assistance in coding this problem.






list-manipulation matrix




list-manipulation matrix






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 2 hours ago









m_goldberg

89.1k873200




89.1k873200










asked 2 hours ago









PRGPRG

1028




1028











  • $begingroup$
    Try Values[PositionIndex[M]]
    $endgroup$
    – Coolwater
    34 mins ago
















  • $begingroup$
    Try Values[PositionIndex[M]]
    $endgroup$
    – Coolwater
    34 mins ago















$begingroup$
Try Values[PositionIndex[M]]
$endgroup$
– Coolwater
34 mins ago




$begingroup$
Try Values[PositionIndex[M]]
$endgroup$
– Coolwater
34 mins ago










1 Answer
1






active

oldest

votes


















4












$begingroup$

idx = DeleteDuplicates[Sort /@ Nearest[M -> Automatic, M, ∞, 0]]



1, 8, 2, 3, 4, 5, 6, 7




In order to obtain the labels of the rows, you may use the following:



labels = S1, S2, S3, S4, S5, S6, S7, S8;
Map[labels[[#]] &, idx, 2]



S1, S8, S2, S3, S4, S5, S6, S7







share|improve this answer











$endgroup$












  • $begingroup$
    Henrik: Can I add the S in front of the result; e.g., (S1,S8),(S3,S4),(S5,S6,S7)?
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    1 hour ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    1 hour ago











Your Answer








StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "387"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);













draft saved

draft discarded


















StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197039%2ffind-the-identical-rows-in-a-matrix%23new-answer', 'question_page');

);

Post as a guest















Required, but never shown

























1 Answer
1






active

oldest

votes








1 Answer
1






active

oldest

votes









active

oldest

votes






active

oldest

votes









4












$begingroup$

idx = DeleteDuplicates[Sort /@ Nearest[M -> Automatic, M, ∞, 0]]



1, 8, 2, 3, 4, 5, 6, 7




In order to obtain the labels of the rows, you may use the following:



labels = S1, S2, S3, S4, S5, S6, S7, S8;
Map[labels[[#]] &, idx, 2]



S1, S8, S2, S3, S4, S5, S6, S7







share|improve this answer











$endgroup$












  • $begingroup$
    Henrik: Can I add the S in front of the result; e.g., (S1,S8),(S3,S4),(S5,S6,S7)?
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    1 hour ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    1 hour ago















4












$begingroup$

idx = DeleteDuplicates[Sort /@ Nearest[M -> Automatic, M, ∞, 0]]



1, 8, 2, 3, 4, 5, 6, 7




In order to obtain the labels of the rows, you may use the following:



labels = S1, S2, S3, S4, S5, S6, S7, S8;
Map[labels[[#]] &, idx, 2]



S1, S8, S2, S3, S4, S5, S6, S7







share|improve this answer











$endgroup$












  • $begingroup$
    Henrik: Can I add the S in front of the result; e.g., (S1,S8),(S3,S4),(S5,S6,S7)?
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    1 hour ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    1 hour ago













4












4








4





$begingroup$

idx = DeleteDuplicates[Sort /@ Nearest[M -> Automatic, M, ∞, 0]]



1, 8, 2, 3, 4, 5, 6, 7




In order to obtain the labels of the rows, you may use the following:



labels = S1, S2, S3, S4, S5, S6, S7, S8;
Map[labels[[#]] &, idx, 2]



S1, S8, S2, S3, S4, S5, S6, S7







share|improve this answer











$endgroup$



idx = DeleteDuplicates[Sort /@ Nearest[M -> Automatic, M, ∞, 0]]



1, 8, 2, 3, 4, 5, 6, 7




In order to obtain the labels of the rows, you may use the following:



labels = S1, S2, S3, S4, S5, S6, S7, S8;
Map[labels[[#]] &, idx, 2]



S1, S8, S2, S3, S4, S5, S6, S7








share|improve this answer














share|improve this answer



share|improve this answer








edited 2 hours ago

























answered 2 hours ago









Henrik SchumacherHenrik Schumacher

61.2k585171




61.2k585171











  • $begingroup$
    Henrik: Can I add the S in front of the result; e.g., (S1,S8),(S3,S4),(S5,S6,S7)?
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    1 hour ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    1 hour ago
















  • $begingroup$
    Henrik: Can I add the S in front of the result; e.g., (S1,S8),(S3,S4),(S5,S6,S7)?
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    1 hour ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    1 hour ago















$begingroup$
Henrik: Can I add the S in front of the result; e.g., (S1,S8),(S3,S4),(S5,S6,S7)?
$endgroup$
– PRG
2 hours ago




$begingroup$
Henrik: Can I add the S in front of the result; e.g., (S1,S8),(S3,S4),(S5,S6,S7)?
$endgroup$
– PRG
2 hours ago












$begingroup$
MANY THANKS, HENRIK!
$endgroup$
– PRG
1 hour ago




$begingroup$
MANY THANKS, HENRIK!
$endgroup$
– PRG
1 hour ago












$begingroup$
YOU'RE WELCOME, PRG! =D
$endgroup$
– Henrik Schumacher
1 hour ago




$begingroup$
YOU'RE WELCOME, PRG! =D
$endgroup$
– Henrik Schumacher
1 hour ago

















draft saved

draft discarded
















































Thanks for contributing an answer to Mathematica Stack Exchange!


  • Please be sure to answer the question. Provide details and share your research!

But avoid …


  • Asking for help, clarification, or responding to other answers.

  • Making statements based on opinion; back them up with references or personal experience.

Use MathJax to format equations. MathJax reference.


To learn more, see our tips on writing great answers.




draft saved


draft discarded














StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f197039%2ffind-the-identical-rows-in-a-matrix%23new-answer', 'question_page');

);

Post as a guest















Required, but never shown





















































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown

































Required, but never shown














Required, but never shown












Required, but never shown







Required, but never shown







-

Popular posts from this blog

Saint-André (Pyrenaeus Orientalis) Nexus interni Nexus externi | Tabula navigationisOpenStreetMapGeoNames66168De hoc commune apud cassini.ehess.frHuius communis pagina interretialisAmplifica

Image
Communia praefecturae Pyrenaei Orientalis CatalanecommuneFrancicum2012praefecturaePyrenaei OrientalisOccitania et Ruscinone1 Ianuarii2016Occitania Ruscinone Meridiano et Pyrenaeis Saint-André: ecclesia Saint-André: communis tabula Saint-André (Catalane Sant Andreu de Sureda ) est commune Francicum 3'266 incolarum (anno 2012) praefecturae Pyrenaei Orientalis in regione australi Occitania et Ruscinone (a die 1 Ianuarii 2016 Occitania Ruscinone Meridiano et Pyrenaeis). Nexus interni Indicem communium praefecturae Pyrenaei Orientalis Nexus externi | Vicimedia Communia plura habent quae ad Saint-André spectant. Situs geographici et historici: Locus : 42°33′4″N 2°58′24″E  • OpenStreetMap  • GeoNames  • " 66168 " apud INSEE De hoc commune apud cassini.ehess.fr Huius communis pagina interretialis .mw-parser-output .stipulapadding:3px;background:#F7F8FF;border:1px solid grey;margin:auto.mw-parser-output...
Read more

Constantinus Vanšenkin Nexus externi | Tabula navigationisБольшая российская энциклопедияAmplifica

Image
ViriNati 1925Mortui 2012Auctores RussiciIncolae MoscuaeIncolae Unionis SovieticaeParticipes secundi belli mundaniPoetae RussiaeScriptores Russiae Russicetr.17 Decembris1925Moscuae15 Decembris2012SovieticusRussicusЯ люблю тебя, жизнь Constantinus Vanšenkin Res apud Vicidata repertae: Nativitas : 17 Decembris 1925 ; Moscua Obitus : 15 Decembris 2012 ; Moscua Patria : Unio Sovietica , Russia Officium Munus : Poëta , Scriptor , Auctor textus musici , Auctor carminum Consociatio Factio : Factio Communistica Unionis Sovieticae Memoria Laurae : USSR State Prize , Medal "For the Victory over Germany in the Great Patriotic War 1941–1945" , Order of the Badge of Honour , Order of the Patriotic War 2nd class , Order "For Merit to the Fatherland" IV class , Order of the Red Banner of Labour , Order of Friendship of Peoples , Medal "For the Capture of Vienna" , Medal "For Strengthening o...
Read more

Montigny (Ligerula) Nexus interni Nexus externi | Tabula navigationisGeoNames45214Amplifica

Image
Communia praefecturae Ligerulae Francicum2010praefecturaeLigerulaeMedia Montigny: vexillum Montigny: communis tabula Montigny est commune Francicum 250 incolarum (anno 2010) praefecturae Ligerulae in provincia Media Nexus interni Index communium praefecturae Ligerulae Nexus externi | Vicimedia Communia plura habent quae ad Montigny spectant. Situs geographici et historici: Locus : 48°6′45″N 2°6′44″E  • GeoNames  • " 45214 " apud INSEE .mw-parser-output .stipulapadding:3px;background:#F7F8FF;border:1px solid grey;margin:auto.mw-parser-output .stipula td.cell1background:transparent;color:white Haec stipula ad geographiam spectat. Amplifica , si potes! This page is only for reference, If you need detailed information, please check here
Read more