Return to Answer

added 178 characters in body

edited Mar 22, 2018 at 3:08

403.4k
18
501
959

Using a modification of @Szabolcs's positionDuplicates in this Q/A

ClearAll[intersectionAndPositions] intersectionAndPositions = Module[{l = Length@#, s = Join[##], g}, g = Mod[Select[GatherBy[Range[Length@s], s[[#]] &], Length@# >= 2 &], l, 1]; {s[[#[[1]]]], #} & /@ g] &; intersectionAndPositions [s1, s2] // Grid[#, Dividers -> All] & // TeXForm

$$\begin{array}{|c|c|} \hline 0. & \{1,1\} \\ \hline 0.00666667 & \{3,4\} \\ \hline 0.0133333 & \{5,7\} \\ \hline 0.02 & \{7,10\} \\ \hline 0.0266667 & \{9,13\} \\ \hline 0.0333333 & \{11,16\} \\ \hline 0.04 & \{13,19\} \\ \hline 0.0466667 & \{15,22\} \\ \hline 0.0533333 & \{17,25\} \\ \hline 0.06 & \{19,28\} \\ \hline 0.0666667 & \{21,31\} \\ \hline 0.0733333 & \{23,34\} \\ \hline 0.08 & \{25,37\} \\ \hline 0.0866667 & \{27,40\} \\ \hline 0.0933333 & \{29,43\} \\ \hline 0.1 & \{31,46\} \\ \hline 0.106667 & \{33,49\} \\ \hline 0.113333 & \{35,52\} \\ \hline 0.12 & \{37,55\} \\ \hline 0.126667 & \{39,58\} \\ \hline 0.133333 & \{41,61\} \\ \hline 0.14 & \{43,64\} \\ \hline 0.146667 & \{45,67\} \\ \hline 0.153333 & \{47,70\} \\ \hline 0.16 & \{49,73\} \\ \hline 0.166667 & \{51,76\} \\ \hline 0.173333 & \{53,79\} \\ \hline 0.18 & \{55,82\} \\ \hline 0.186667 & \{57,85\} \\ \hline 0.193333 & \{59,88\} \\ \hline 0.2 & \{61,91\} \\ \hline 0.206667 & \{63,94\} \\ \hline 0.213333 & \{65,97\} \\ \hline 0.22 & \{67,100\} \\ \hline 0.226667 & \{69,103\} \\ \hline 0.233333 & \{71,106\} \\ \hline 0.24 & \{73,109\} \\ \hline 0.246667 & \{75,112\} \\ \hline 0.253333 & \{77,115\} \\ \hline 0.26 & \{79,118\} \\ \hline 0.266667 & \{81,121\} \\ \hline 0.273333 & \{83,124\} \\ \hline 0.28 & \{85,127\} \\ \hline 0.286667 & \{87,130\} \\ \hline 0.293333 & \{89,133\} \\ \hline 0.3 & \{91,136\} \\ \hline 0.306667 & \{93,139\} \\ \hline 0.313333 & \{95,142\} \\ \hline 0.32 & \{97,145\} \\ \hline 0.326667 & \{99,148\} \\ \hline 0.333333 & \{101,151\} \\ \hline 0.34 & \{103,154\} \\ \hline 0.346667 & \{105,157\} \\ \hline 0.353333 & \{107,160\} \\ \hline 0.36 & \{109,163\} \\ \hline 0.366667 & \{111,166\} \\ \hline 0.373333 & \{113,169\} \\ \hline 0.38 & \{115,172\} \\ \hline 0.386667 & \{117,175\} \\ \hline 0.393333 & \{119,178\} \\ \hline 0.4 & \{121,181\} \\ \hline 0.406667 & \{123,184\} \\ \hline 0.413333 & \{125,187\} \\ \hline 0.42 & \{127,190\} \\ \hline 0.426667 & \{129,193\} \\ \hline 0.433333 & \{131,196\} \\ \hline 0.44 & \{133,199\} \\ \hline \end{array}$$

ClearAll[intersectionAndPositions] intersectionAndPositions = Module[{l = Length@#, s = Join[##], g}, g = Mod[Select[GatherBy[Range[Length@s], s[[#]] &], Length@# >= 2 &], l, 1]; {s[[#[[1]]]], #} & /@ g] &; intersectionAndPositions [s1, s2] // Grid[#, Dividers -> All] & // TeXForm

$$\begin{array}{|c|c|} \hline 0. & \{1,1\} \\ \hline 0.00666667 & \{3,4\} \\ \hline 0.0133333 & \{5,7\} \\ \hline 0.02 & \{7,10\} \\ \hline 0.0266667 & \{9,13\} \\ \hline 0.0333333 & \{11,16\} \\ \hline 0.04 & \{13,19\} \\ \hline 0.0466667 & \{15,22\} \\ \hline 0.0533333 & \{17,25\} \\ \hline 0.06 & \{19,28\} \\ \hline 0.0666667 & \{21,31\} \\ \hline 0.0733333 & \{23,34\} \\ \hline 0.08 & \{25,37\} \\ \hline 0.0866667 & \{27,40\} \\ \hline 0.0933333 & \{29,43\} \\ \hline 0.1 & \{31,46\} \\ \hline 0.106667 & \{33,49\} \\ \hline 0.113333 & \{35,52\} \\ \hline 0.12 & \{37,55\} \\ \hline 0.126667 & \{39,58\} \\ \hline 0.133333 & \{41,61\} \\ \hline 0.14 & \{43,64\} \\ \hline 0.146667 & \{45,67\} \\ \hline 0.153333 & \{47,70\} \\ \hline 0.16 & \{49,73\} \\ \hline 0.166667 & \{51,76\} \\ \hline 0.173333 & \{53,79\} \\ \hline 0.18 & \{55,82\} \\ \hline 0.186667 & \{57,85\} \\ \hline 0.193333 & \{59,88\} \\ \hline 0.2 & \{61,91\} \\ \hline 0.206667 & \{63,94\} \\ \hline 0.213333 & \{65,97\} \\ \hline 0.22 & \{67,100\} \\ \hline 0.226667 & \{69,103\} \\ \hline 0.233333 & \{71,106\} \\ \hline 0.24 & \{73,109\} \\ \hline 0.246667 & \{75,112\} \\ \hline 0.253333 & \{77,115\} \\ \hline 0.26 & \{79,118\} \\ \hline 0.266667 & \{81,121\} \\ \hline 0.273333 & \{83,124\} \\ \hline 0.28 & \{85,127\} \\ \hline 0.286667 & \{87,130\} \\ \hline 0.293333 & \{89,133\} \\ \hline 0.3 & \{91,136\} \\ \hline 0.306667 & \{93,139\} \\ \hline 0.313333 & \{95,142\} \\ \hline 0.32 & \{97,145\} \\ \hline 0.326667 & \{99,148\} \\ \hline 0.333333 & \{101,151\} \\ \hline 0.34 & \{103,154\} \\ \hline 0.346667 & \{105,157\} \\ \hline 0.353333 & \{107,160\} \\ \hline 0.36 & \{109,163\} \\ \hline 0.366667 & \{111,166\} \\ \hline 0.373333 & \{113,169\} \\ \hline 0.38 & \{115,172\} \\ \hline 0.386667 & \{117,175\} \\ \hline 0.393333 & \{119,178\} \\ \hline 0.4 & \{121,181\} \\ \hline 0.406667 & \{123,184\} \\ \hline 0.413333 & \{125,187\} \\ \hline 0.42 & \{127,190\} \\ \hline 0.426667 & \{129,193\} \\ \hline 0.433333 & \{131,196\} \\ \hline 0.44 & \{133,199\} \\ \hline \end{array}$$

Using a modification of @Szabolcs's positionDuplicates in this Q/A

ClearAll[intersectionAndPositions] intersectionAndPositions = Module[{l = Length@#, s = Join[##], g}, g = Mod[Select[GatherBy[Range[Length@s], s[[#]] &], Length@# >= 2 &], l, 1]; {s[[#[[1]]]], #} & /@ g] &; intersectionAndPositions [s1, s2] // Grid[#, Dividers -> All] & // TeXForm

$$\begin{array}{|c|c|} \hline 0. & \{1,1\} \\ \hline 0.00666667 & \{3,4\} \\ \hline 0.0133333 & \{5,7\} \\ \hline 0.02 & \{7,10\} \\ \hline 0.0266667 & \{9,13\} \\ \hline 0.0333333 & \{11,16\} \\ \hline 0.04 & \{13,19\} \\ \hline 0.0466667 & \{15,22\} \\ \hline 0.0533333 & \{17,25\} \\ \hline 0.06 & \{19,28\} \\ \hline 0.0666667 & \{21,31\} \\ \hline 0.0733333 & \{23,34\} \\ \hline 0.08 & \{25,37\} \\ \hline 0.0866667 & \{27,40\} \\ \hline 0.0933333 & \{29,43\} \\ \hline 0.1 & \{31,46\} \\ \hline 0.106667 & \{33,49\} \\ \hline 0.113333 & \{35,52\} \\ \hline 0.12 & \{37,55\} \\ \hline 0.126667 & \{39,58\} \\ \hline 0.133333 & \{41,61\} \\ \hline 0.14 & \{43,64\} \\ \hline 0.146667 & \{45,67\} \\ \hline 0.153333 & \{47,70\} \\ \hline 0.16 & \{49,73\} \\ \hline 0.166667 & \{51,76\} \\ \hline 0.173333 & \{53,79\} \\ \hline 0.18 & \{55,82\} \\ \hline 0.186667 & \{57,85\} \\ \hline 0.193333 & \{59,88\} \\ \hline 0.2 & \{61,91\} \\ \hline 0.206667 & \{63,94\} \\ \hline 0.213333 & \{65,97\} \\ \hline 0.22 & \{67,100\} \\ \hline 0.226667 & \{69,103\} \\ \hline 0.233333 & \{71,106\} \\ \hline 0.24 & \{73,109\} \\ \hline 0.246667 & \{75,112\} \\ \hline 0.253333 & \{77,115\} \\ \hline 0.26 & \{79,118\} \\ \hline 0.266667 & \{81,121\} \\ \hline 0.273333 & \{83,124\} \\ \hline 0.28 & \{85,127\} \\ \hline 0.286667 & \{87,130\} \\ \hline 0.293333 & \{89,133\} \\ \hline 0.3 & \{91,136\} \\ \hline 0.306667 & \{93,139\} \\ \hline 0.313333 & \{95,142\} \\ \hline 0.32 & \{97,145\} \\ \hline 0.326667 & \{99,148\} \\ \hline 0.333333 & \{101,151\} \\ \hline 0.34 & \{103,154\} \\ \hline 0.346667 & \{105,157\} \\ \hline 0.353333 & \{107,160\} \\ \hline 0.36 & \{109,163\} \\ \hline 0.366667 & \{111,166\} \\ \hline 0.373333 & \{113,169\} \\ \hline 0.38 & \{115,172\} \\ \hline 0.386667 & \{117,175\} \\ \hline 0.393333 & \{119,178\} \\ \hline 0.4 & \{121,181\} \\ \hline 0.406667 & \{123,184\} \\ \hline 0.413333 & \{125,187\} \\ \hline 0.42 & \{127,190\} \\ \hline 0.426667 & \{129,193\} \\ \hline 0.433333 & \{131,196\} \\ \hline 0.44 & \{133,199\} \\ \hline \end{array}$$

Source Link

answered Mar 22, 2018 at 2:09

kglr

403.4k
18
501
959

ClearAll[intersectionAndPositions] intersectionAndPositions = Module[{l = Length@#, s = Join[##], g}, g = Mod[Select[GatherBy[Range[Length@s], s[[#]] &], Length@# >= 2 &], l, 1]; {s[[#[[1]]]], #} & /@ g] &; intersectionAndPositions [s1, s2] // Grid[#, Dividers -> All] & // TeXForm

$$\begin{array}{|c|c|} \hline 0. & \{1,1\} \\ \hline 0.00666667 & \{3,4\} \\ \hline 0.0133333 & \{5,7\} \\ \hline 0.02 & \{7,10\} \\ \hline 0.0266667 & \{9,13\} \\ \hline 0.0333333 & \{11,16\} \\ \hline 0.04 & \{13,19\} \\ \hline 0.0466667 & \{15,22\} \\ \hline 0.0533333 & \{17,25\} \\ \hline 0.06 & \{19,28\} \\ \hline 0.0666667 & \{21,31\} \\ \hline 0.0733333 & \{23,34\} \\ \hline 0.08 & \{25,37\} \\ \hline 0.0866667 & \{27,40\} \\ \hline 0.0933333 & \{29,43\} \\ \hline 0.1 & \{31,46\} \\ \hline 0.106667 & \{33,49\} \\ \hline 0.113333 & \{35,52\} \\ \hline 0.12 & \{37,55\} \\ \hline 0.126667 & \{39,58\} \\ \hline 0.133333 & \{41,61\} \\ \hline 0.14 & \{43,64\} \\ \hline 0.146667 & \{45,67\} \\ \hline 0.153333 & \{47,70\} \\ \hline 0.16 & \{49,73\} \\ \hline 0.166667 & \{51,76\} \\ \hline 0.173333 & \{53,79\} \\ \hline 0.18 & \{55,82\} \\ \hline 0.186667 & \{57,85\} \\ \hline 0.193333 & \{59,88\} \\ \hline 0.2 & \{61,91\} \\ \hline 0.206667 & \{63,94\} \\ \hline 0.213333 & \{65,97\} \\ \hline 0.22 & \{67,100\} \\ \hline 0.226667 & \{69,103\} \\ \hline 0.233333 & \{71,106\} \\ \hline 0.24 & \{73,109\} \\ \hline 0.246667 & \{75,112\} \\ \hline 0.253333 & \{77,115\} \\ \hline 0.26 & \{79,118\} \\ \hline 0.266667 & \{81,121\} \\ \hline 0.273333 & \{83,124\} \\ \hline 0.28 & \{85,127\} \\ \hline 0.286667 & \{87,130\} \\ \hline 0.293333 & \{89,133\} \\ \hline 0.3 & \{91,136\} \\ \hline 0.306667 & \{93,139\} \\ \hline 0.313333 & \{95,142\} \\ \hline 0.32 & \{97,145\} \\ \hline 0.326667 & \{99,148\} \\ \hline 0.333333 & \{101,151\} \\ \hline 0.34 & \{103,154\} \\ \hline 0.346667 & \{105,157\} \\ \hline 0.353333 & \{107,160\} \\ \hline 0.36 & \{109,163\} \\ \hline 0.366667 & \{111,166\} \\ \hline 0.373333 & \{113,169\} \\ \hline 0.38 & \{115,172\} \\ \hline 0.386667 & \{117,175\} \\ \hline 0.393333 & \{119,178\} \\ \hline 0.4 & \{121,181\} \\ \hline 0.406667 & \{123,184\} \\ \hline 0.413333 & \{125,187\} \\ \hline 0.42 & \{127,190\} \\ \hline 0.426667 & \{129,193\} \\ \hline 0.433333 & \{131,196\} \\ \hline 0.44 & \{133,199\} \\ \hline \end{array}$$