数据排列组合求一算法

yccpp · 发表于 2015-2-4 22:20:13

本帖最后由 yccpp 于 2015-2-4 22:50 编辑

本人想用fortran进行数据的重新排列组合，向大神求一算法。原始数据是多行两列的数据，想把有公共数据的行写成一行且公共数据只出现一次。关键是公共数据不是固定的，下面是一个小例子，第一行和第二行的第一列有相同数22875，而第一行第二列的数据30588又出现在了第五行和第六行，需要把这些数据写成一行，如果没有公共数据，就按原始数据写出。整个数据文件见附件。非常感谢您的帮助！

原始数据

22875 30588

22875 34747

22912 34851

22963 35901

22969 30588

30588 40791

30609 39143

30609 40808

重新排列后的输出

22875 30588 34747 22969 40791

22912 34851

22963 35901

30609 39143 40808

yccpp · 发表于 2015-2-4 22:25:35

不知为何我打开时背景是红色的，编辑时也没法调

yccpp · 发表于 2015-2-5 15:28:55

谢谢VVT，按你说的，如果下面加一行 35555 22963，也要加在一起，输出结果的第三行就变为 22963 35901 35555.谢谢关注。

yccpp · 发表于 2015-2-8 01:12:51

谢谢fcode的帮助。

yccpp · 发表于 2015-2-21 23:32:36

fcode你好，运行你的程序后，感觉没有判断完全，可能是我没有把问题描述清楚，在输入文件中，如果a 和b是一对，b和c是一对, c和d是一对, a和c是一对, b和d是一对,以此类推，则在输出时把这些数据都归在一起写在一行。谢谢，祝春节快乐！

yccpp · 发表于 2015-2-22 19:11:10

谢谢fcode,下面是从我的附件中摘取的一组应该写在一起的数据，他们在number文件中的形式是
33035 40381
33035 44096
38659 44165
40374 40381
40381 48872
44165 53155
48872 53155
48872 54478
48872 56608
53155 60902
54478 56608
54478 60902
每一组数据中都有一个数据与另外至少一组数据中的一个数据相同，则把这些数据写在一起，输出后的形式为
33035 38659 40374 40381 44096 44165 48872 53155 54478 56608 60902
谢谢。

yccpp · 发表于 2015-2-23 05:49:41

谢谢fcode，我也发现是写成两行了。请看我的附件图，我的number附件中的数据对表明的是particles图中哪些球颗粒是两两接触的，number附件中的数据是这些颗粒的编码，我的最终目的是判断哪些颗粒聚在一起形成一个大块体，这些块体可能是由两个、三个或多个颗粒组成，所以需要把形成某一块体的颗粒编码写在一起。如果您有更好的方法，也请提出您的意见。谢谢。

[通用算法] 数据排列组合 求一算法

[通用算法] 数据排列组合求一算法