Skip to main content
Mathematica

Return to Question

deleted 4 characters in body
Source Link
Ben Aawf
Ben Aawf
  • 155
  • 8
DL1 = Delete[List1[[All, 1]], {{1}}];
DL2 = Delete[List2[[All, 1]], {{1}}];
CommonD = Intersection[DL1, Dl2]
(* {"D2"D2, "D6"D6} *)

DL1 = Delete[List1[[All, 1]], {{1}}];
DL2 = Delete[List2[[All, 1]], {{1}}];
CommonD = Intersection[DL1, Dl2]
(* {"D2", "D6"} *)

DL1 = Delete[List1[[All, 1]], {{1}}];
DL2 = Delete[List2[[All, 1]], {{1}}];
CommonD = Intersection[DL1, Dl2]
(* {D2, D6} *)
added 34 characters in body; edited tags
Source Link
march
march
  • 24.2k
  • 2
  • 46
  • 102

guys, this is a basic question in Mathematica, I hope to get help to resolve it, How I can extract elements from matrics for example I have

list1 = `{{"Dis", "S1", "S2", "S3", "S4", "S5", "S6"},
         {"D1", 1, 1, 0, 1, 1, 
  0}, {"D2", 1, 0, 1, 0, 0, 1}, {"D3", 0, 0, 1, 1, 0, 1},
         {"D4", 0, 1,
   0, 0, 1, 1}, {"D5", 1, 1, 1, 0, 1, 1}, {"D6", 1, 1, 0, 0, 0, 
  1},
         {"D7", 0, 1, 1, 1, 0, 0}}`;
List2=List2 = {{"Dis", "S7", "S8", "S4", "S9", "S10", "S3", "S11", "S12", "S5", 
  "S1"},
         {"D2", 0, 1, 0, 0, 1, 0, 1, 1, 0, 0}, {"D8", 1, 1, 1, 1, 1, 
  0, 0, 0, 1, 0},
         {"D9", 1, 0, 1, 1, 0, 0, 0, 1, 0, 1}, {"D10", 0, 0, 
  1, 0, 0, 1, 1, 0, 0, 0},
         {"D6", 0, 1, 0, 0, 1, 0, 1, 0, 0, 
  1}, {"D11", 1, 1, 0, 1, 0, 1, 0, 1, 0, 1},
         {"D12", 0, 1, 0, 1, 0, 1,
   0, 0, 0, 0}, {"D13", 1, 0, 1, 0, 1, 1, 0, 0, 0, 1},
         {"D14", 0, 1, 
  1, 1, 1, 0, 1, 1, 1, 1}, {"D15", 0, 1, 0, 0, 0, 0, 1, 0, 0, 
  0},
         {"D16", 0, 0, 0, 1, 0, 0, 0, 0, 1, 1}, {"D17", 1, 0, 1, 0, 0, 0,
   1, 1, 0, 0}};

in= DL1 = Delete[List1[[All, 1]], {{1}}];
    DL2 = Delete[List2[[All, 1]], {{1}}];
    CommonD = Intersection[DL1, Dl2]
  out= (* {"D2", "D6"} *)

{{"D2", 1, 0, 1, 0, 0, 1}, {"D6", 1, 1, 0, 0, 0, 1}}

{{"D2", 0, 1, 0, 0, 1, 0, 1, 1, 0, 0}, {"D6", 0, 1, 0, 0, 1, 0, 1, 0, 0, 
  1}}

guys, this is a basic question in Mathematica, I hope to get help to resolve it, How I can extract elements from matrics for example I have

list1 = `{{"Dis", "S1", "S2", "S3", "S4", "S5", "S6"}, {"D1", 1, 1, 0, 1, 1, 
  0}, {"D2", 1, 0, 1, 0, 0, 1}, {"D3", 0, 0, 1, 1, 0, 1}, {"D4", 0, 1,
   0, 0, 1, 1}, {"D5", 1, 1, 1, 0, 1, 1}, {"D6", 1, 1, 0, 0, 0, 
  1}, {"D7", 0, 1, 1, 1, 0, 0}}`
List2={{"Dis", "S7", "S8", "S4", "S9", "S10", "S3", "S11", "S12", "S5", 
  "S1"}, {"D2", 0, 1, 0, 0, 1, 0, 1, 1, 0, 0}, {"D8", 1, 1, 1, 1, 1, 
  0, 0, 0, 1, 0}, {"D9", 1, 0, 1, 1, 0, 0, 0, 1, 0, 1}, {"D10", 0, 0, 
  1, 0, 0, 1, 1, 0, 0, 0}, {"D6", 0, 1, 0, 0, 1, 0, 1, 0, 0, 
  1}, {"D11", 1, 1, 0, 1, 0, 1, 0, 1, 0, 1}, {"D12", 0, 1, 0, 1, 0, 1,
   0, 0, 0, 0}, {"D13", 1, 0, 1, 0, 1, 1, 0, 0, 0, 1}, {"D14", 0, 1, 
  1, 1, 1, 0, 1, 1, 1, 1}, {"D15", 0, 1, 0, 0, 0, 0, 1, 0, 0, 
  0}, {"D16", 0, 0, 0, 1, 0, 0, 0, 0, 1, 1}, {"D17", 1, 0, 1, 0, 0, 0,
   1, 1, 0, 0}}

in= DL1 = Delete[List1[[All, 1]], {{1}}];
    DL2 = Delete[List2[[All, 1]], {{1}}];
    CommonD = Intersection[DL1, Dl2]
  out=  {"D2", "D6"}

{{"D2", 1, 0, 1, 0, 0, 1},{"D6", 1, 1, 0, 0, 0, 1}}

{{"D2", 0, 1, 0, 0, 1, 0, 1, 1, 0, 0},{"D6", 0, 1, 0, 0, 1, 0, 1, 0, 0, 
  1}}

this is a basic question in Mathematica, I hope to get help to resolve it, How I can extract elements from matrics for example I have

list1 = {{"Dis", "S1", "S2", "S3", "S4", "S5", "S6"},
         {"D1", 1, 1, 0, 1, 1, 0}, {"D2", 1, 0, 1, 0, 0, 1}, {"D3", 0, 0, 1, 1, 0, 1},
         {"D4", 0, 1, 0, 0, 1, 1}, {"D5", 1, 1, 1, 0, 1, 1}, {"D6", 1, 1, 0, 0, 0, 1},
         {"D7", 0, 1, 1, 1, 0, 0}};
List2 = {{"Dis", "S7", "S8", "S4", "S9", "S10", "S3", "S11", "S12", "S5", "S1"},
         {"D2", 0, 1, 0, 0, 1, 0, 1, 1, 0, 0}, {"D8", 1, 1, 1, 1, 1, 0, 0, 0, 1, 0},
         {"D9", 1, 0, 1, 1, 0, 0, 0, 1, 0, 1}, {"D10", 0, 0, 1, 0, 0, 1, 1, 0, 0, 0},
         {"D6", 0, 1, 0, 0, 1, 0, 1, 0, 0, 1}, {"D11", 1, 1, 0, 1, 0, 1, 0, 1, 0, 1},
         {"D12", 0, 1, 0, 1, 0, 1, 0, 0, 0, 0}, {"D13", 1, 0, 1, 0, 1, 1, 0, 0, 0, 1},
         {"D14", 0, 1, 1, 1, 1, 0, 1, 1, 1, 1}, {"D15", 0, 1, 0, 0, 0, 0, 1, 0, 0, 0},
         {"D16", 0, 0, 0, 1, 0, 0, 0, 0, 1, 1}, {"D17", 1, 0, 1, 0, 0, 0, 1, 1, 0, 0}};

DL1 = Delete[List1[[All, 1]], {{1}}];
DL2 = Delete[List2[[All, 1]], {{1}}];
CommonD = Intersection[DL1, Dl2]
(* {"D2", "D6"} *)

{{"D2", 1, 0, 1, 0, 0, 1}, {"D6", 1, 1, 0, 0, 0, 1}}

{{"D2", 0, 1, 0, 0, 1, 0, 1, 1, 0, 0}, {"D6", 0, 1, 0, 0, 1, 0, 1, 0, 0, 1}}
Source Link
Ben Aawf
Ben Aawf
  • 155
  • 8

Matrics manipulations

guys, this is a basic question in Mathematica, I hope to get help to resolve it, How I can extract elements from matrics for example I have

list1 = `{{"Dis", "S1", "S2", "S3", "S4", "S5", "S6"}, {"D1", 1, 1, 0, 1, 1, 
  0}, {"D2", 1, 0, 1, 0, 0, 1}, {"D3", 0, 0, 1, 1, 0, 1}, {"D4", 0, 1,
   0, 0, 1, 1}, {"D5", 1, 1, 1, 0, 1, 1}, {"D6", 1, 1, 0, 0, 0, 
  1}, {"D7", 0, 1, 1, 1, 0, 0}}`
List2={{"Dis", "S7", "S8", "S4", "S9", "S10", "S3", "S11", "S12", "S5", 
  "S1"}, {"D2", 0, 1, 0, 0, 1, 0, 1, 1, 0, 0}, {"D8", 1, 1, 1, 1, 1, 
  0, 0, 0, 1, 0}, {"D9", 1, 0, 1, 1, 0, 0, 0, 1, 0, 1}, {"D10", 0, 0, 
  1, 0, 0, 1, 1, 0, 0, 0}, {"D6", 0, 1, 0, 0, 1, 0, 1, 0, 0, 
  1}, {"D11", 1, 1, 0, 1, 0, 1, 0, 1, 0, 1}, {"D12", 0, 1, 0, 1, 0, 1,
   0, 0, 0, 0}, {"D13", 1, 0, 1, 0, 1, 1, 0, 0, 0, 1}, {"D14", 0, 1, 
  1, 1, 1, 0, 1, 1, 1, 1}, {"D15", 0, 1, 0, 0, 0, 0, 1, 0, 0, 
  0}, {"D16", 0, 0, 0, 1, 0, 0, 0, 0, 1, 1}, {"D17", 1, 0, 1, 0, 0, 0,
   1, 1, 0, 0}}

Imagine that D = represent Diseases the common diseases in between List 1 and List2 is

in= DL1 = Delete[List1[[All, 1]], {{1}}];
    DL2 = Delete[List2[[All, 1]], {{1}}];
    CommonD = Intersection[DL1, Dl2]
  out=  {"D2", "D6"}

Does anybody have an idea can help me to extract all the element start with {"D2", "D6"} in order to obtain an output like this: from List1

{{"D2", 1, 0, 1, 0, 0, 1},{"D6", 1, 1, 0, 0, 0, 1}}

Another list from List2

{{"D2", 0, 1, 0, 0, 1, 0, 1, 1, 0, 0},{"D6", 0, 1, 0, 0, 1, 0, 1, 0, 0, 
  1}}

Anybody have any insight? Thanks!