Find the identical rows in a matrixHow to find rows that have maximum value?How to do equality check of a...

Restricting the options of a lookup field, based on the value of another lookup field?

A ​Note ​on ​N!

What is purpose of DB Browser(dbbrowser.aspx) under admin tool?

Should the Product Owner dictate what info the UI needs to display?

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

Why did C use the -> operator instead of reusing the . operator?

Multiple options vs single option UI

Is there metaphorical meaning of "aus der Haft entlassen"?

Will I lose my paid in full property

What makes accurate emulation of old systems a difficult task?

A Paper Record is What I Hamper

std::unique_ptr of base class holding reference of derived class does not show warning in gcc compiler while naked pointer shows it. Why?

All ASCII characters with a given bit count

How much cash can I safely carry into the USA and avoid civil forfeiture?

Why doesn't the standard consider a template constructor as a copy constructor?

Why do real positive eigenvalues result in an unstable system? What about eigenvalues between 0 and 1? or 1?

A faster way to compute the largest prime factor

Why is the underscore command _ useful?

Multiple fireplaces in an apartment building?

Magical attacks and overcoming damage resistance

How do I deal with a coworker that keeps asking to make small superficial changes to a report, and it is seriously triggering my anxiety?

Work requires me to come in early to start computer but wont let me clock in to get paid for it

What does a straight horizontal line above a few notes, after a changed tempo mean?

Can a level 2 Warlock take one level in rogue, then continue advancing as a warlock?



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
    56 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
    56 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 3 hours ago









PRGPRG

1028




1028












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


















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
















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




$begingroup$
Try Values[PositionIndex[M]]
$endgroup$
– Coolwater
56 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
    3 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    2 hours 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
    3 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    2 hours 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
    3 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    2 hours 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 3 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
    3 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    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
    3 hours ago










  • $begingroup$
    MANY THANKS, HENRIK!
    $endgroup$
    – PRG
    2 hours ago










  • $begingroup$
    YOU'RE WELCOME, PRG! =D
    $endgroup$
    – Henrik Schumacher
    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
3 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
3 hours ago












$begingroup$
MANY THANKS, HENRIK!
$endgroup$
– PRG
2 hours ago




$begingroup$
MANY THANKS, HENRIK!
$endgroup$
– PRG
2 hours ago












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




$begingroup$
YOU'RE WELCOME, PRG! =D
$endgroup$
– Henrik Schumacher
2 hours 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

Can't compile dgruyter and caption packagesLaTeX templates/packages for writing a patent specificationLatex...

Image
Why does Arabsat 6A need a Falcon Heavy to launch Etiquette around loan refinance - decision is going to cost first broker a lot of money What is the PIE reconstruction for word-initial alpha with rough breathing? Is "remove commented out code" correct English? Why do I get two different answers for this counting problem? Blender 2.8 I can't see vertices, edges or faces in edit mode Where does SFDX store details about scratch orgs? 1960's book about a plague that kills all white people How can saying a song's name be a copyright violation? UK: Is there precedent for the governments e-petition site changing the ...
Read more

Schneeberg (Smreczany) Bibliografia | Menu...

Image
Szczyty w Niemczech paśmieSmreczanyn.p.m.Ochrza Schneeberg Państwo   Niemcy Położenie Bawaria Pasmo Fichtelgebirge Wysokość 1 051 m n.p.m. Położenie na mapie Bawarii Schneeberg Położenie na mapie Niemiec Schneeberg 50°03′N   11°51′E / 50,050000   11,850000 Multimedia w Wikimedia Commons Schneeberg – szczyt w paśmie Smreczany o wysokości 1051 m n.p.m., na zboczach którego znajdują się źródła rzeki Ochrza. Bibliografia | Rainer H. Schmeisser: Der Schneeberg, Beiträge zur Geschichts- und Landeskunde des Fichtelgebirges Nr. 1, Regensburg 1979 This page is only for reference, If you need detailed information, please check here
Read more

Hans Bellmer Spis treści Życiorys | Upamiętnienie | Przypisy | Bibliografia | Linki zewnętrzne |...

Image
Ludzie związani z III Liceum Ogólnokształcącym im. Adama Mickiewicza w KatowicachNiemieccy rzeźbiarzeNiemieccy malarze współcześniNiemieccy graficyLudzie urodzeni w KatowicachUrodzeni w 1902Zmarli w 1975 13 marca1902Katowicach23 lutego1975Paryżumalarzrzeźbiarzgrafikul. A. Mickiewiczaul. T. KościuszkiWyższej Szkole TechnicznejinstalacjiPaula EluardaBerlinie„tableaux vivants”NiemczechnazistówzdegenerowanąBerlinsurrealistówII wojnie światowejCamp des MillesAix-en-ProvenceParyżuUnicę ZürnPère-Lachaiseul. T. KościuszkiDział Grafiki im. Pawła Stellera Muzeum Historii Katowic2008Muzeum Historii KatowicNatalia KruszynaBerlinie Tablica pamiątkowa z 2008 roku na domu, w którym mieszkał artysta przy ul. T. Kościuszki 47 w Katowicach (2017) Grób Bellmera na cmentarzu Père-Lachaise Tablica pamiątkowa przy Ehrenfelsstraße 8a w Berlinie Budynek, w którym mieszkał artysta przy ul. T. Kościuszki 47 w Katowicach (2017) Hans Bellmer (ur. 13 marca 1902 w Katowicach [1] , zm. 23 lut...
Read more