【源码】巧用Excel+Matlab助你"社区谷雨活动-拼点竞猜赢粮饷"

终~不敌沧桑岁月

一 概述

先放结果图，中间是算法与代码，文末为Excel附件

说明：
1.发帖1W字数限制，没法直接放表格，只能放图片版，附件为Excel数据源文件和最后结果，大家可下zài搜索

2.因为竞猜数据本身不全，不可能得到所有精确值，所以有最小可能和最大可能。如果两者一样，表示你的点数就是该值，如果不同，可以根据自己感觉在最小到最大间猜一个值

3.因为楼层kào前的人 被拼点人数较多，可以形成完美闭环，所以大多能得到精确结果，拼点人数少的，误差较大

4.我没有参加拼点，可能是当时没请读规则，误以为拼Ta会扣Ta粮饷。此结果仅供大家交流学习

结果精确程度可参考下图，1001组有效数据，206人0误差，113人误差为1，分析结果较为满意

                表1

                                            表2

下图(高清)较长，手机用户可用电脑版页面查看原图，也可下zài附件Excel文件

                               图1




二 分析

1.可利用的条件只有两条
①点数相同的ID关系
②点数不同的大小关系

第一个条件可得262个等式，两两相等
第二个条件可得2740个不等式，两两存在确定的大小关系
为什么条件个数不能被3整除？因为我在计算时发现有一人（429层）是自己与自己拼点，其结果应该无效 @刀|刀

2.分为两大步
①由262个等式确定点数相同的人，得到相同点数的ID，可能有很多组
②由2740个不等式进行穷举对比，当某一结果满足所以条件，即为解，解有很多，我们采用最小和最大两种结果

三 算法及代码

1.第一步-找相同

算法：

①先将两个相同点数ID标记为A类

②再考察另两个相同点数的ID
如果有其一标记过，记入已知的类别
如果均未标记过，两者记为未知的B类

③继续考察
如果发现两者均标记过，且类别与之前不相同，则将其中一类别全部重新标记为另一类别

④结果得到很多类别
每一类别里的ID点数一定相同，不同类别的之间可能相同，条件不足无法继续求解

Matlab代码：

1. clear all;
   
2. num=2000;
   
3. a=数组省略(见Excel);
   
4. for i=1:262
   
5.   
   
6.     if b(a(i,1))~=0 && b(a(i,2))~=0
   
7.         little=min(b(a(i,1)), b(a(i,2)));
   
8.         large=max(b(a(i,1)), b(a(i,2)));
   
9.         idx=find(b==large);
   
10.         b(idx)=little;  
    
11.     elseif b(a(i,1))==0 && b(a(i,2))~=0
    
12.         b(a(i,1))=b(a(i,2));
    
13.     elseif b(a(i,1))~=0 && b(a(i,2))==0
    
14.         b(a(i,2))=b(a(i,1));
    
15.     elseif b(a(i,1))==0 && b(a(i,2))==0
    
16.         b(a(i,1))=num;
    
17.         b(a(i,2))=num;
    
18.         num=num+1;
    
19.     end
    
20.    
    
21. end
    
22. b

复制代码

结果后chù理：将结果转置，相同ID为同一行，得到数组，代入下一步
                                     图2

2.第二步-比大小(最小原则)

算法：

①一共2740个不等式，循环2740层，直到结果满足所有不等式时，输出该结果

②将所有数令为A(1点)，两两作比较
如果本应比后者小的，返回结果错误，则相比数加一
如果本应比后者大的，返回结果错误，则自加一

③考察该数是否有相同数
如果有则将所有相同数，作同样chù理


Matlab代码：

1. clear all;
   
2. unequal=数组省略(见Excel);
   
3. same=数组省略(见Excel);
   
4. result=数组省略(见Excel);
   
5. a=0;
   
6. count=0;
   
7. term=0;
   
8. while (a==0)
   
9.     for i=1:2740
   
10.         
    
11.         if unequal(i,3)==1
    
12.             if result(unequal(i,1),2)<=result(unequal(i,2),2)
    
13.                
    
14.                 [m,n]=find(same==result(unequal(i,1),1));
    
15.                     if isempty(m)==1
    
16.                         result(unequal(i,1),2)=result(unequal(i,1),2)+1;
    
17.                     else
    
18.                         index=find(same(m,:)>0);
    
19.                         c=same(m,index);
    
20.                         result(c,2)=result(c,2)+1;
    
21.                     end
    
22.                     
    
23.                break;
    
24.             end
    
25.         else
    
26.             if result(unequal(i,1),2)>=result(unequal(i,2),2)
    
27.                
    
28.                     [m,n]=find(same==result(unequal(i,2),1));
    
29.                         if isempty(m)==1
    
30.                             result(unequal(i,2),2)=result(unequal(i,2),2)+1;
    
31.                         else
    
32.                             index=find(same(m,:)>0);
    
33.                             c=same(m,index);
    
34.                             result(c,2)=result(c,2)+1;
    
35.                         end
    
36.                
    
37.                break;
    
38.             end
    
39.         end
    
40.         count=i;
    
41.         if term
42.             term=count
    
43.         end
    
44.         if i==2740
    
45.             a=1;
    
46.             break;
    
47.         end
    
48.         
    
49.     end
    
50. end
    
51. result

复制代码

2.第三步-比大小(最大原则)


算法：

①一共2740个不等式，循环2740层，直到结果满足所有不等式时，输出该结果

②将所有数令为K(13点)，两两作比较
如果本应比后者小的，返回结果错误，则自减一
如果本应比后者大的，返回结果错误，则相比数减一

③考察该数是否有相同数
如果有则将所有相同数，作同样chù理


Matlab代码：

1. clear all;
   
2. unequal=数组省略(见Excel);
   
3. same=数组省略(见Excel);
   
4. result=数组省略(见Excel);
   
5. a=0;
   
6. count=0;
   
7. term=0;
   
8. while (a==0)
   
9.     for i=1:2740
   
10.         
    
11.         if unequal(i,3)==1
    
12.             if result(unequal(i,1),2)<=result(unequal(i,2),2)
    
13.                
    
14.                 [m,n]=find(same==result(unequal(i,2),1));
    
15.                     if isempty(m)==1
    
16.                         result(unequal(i,2),2)=result(unequal(i,2),2)-1;
    
17.                     else
    
18.                         index=find(same(m,:)>0);
    
19.                         c=same(m,index);
    
20.                         result(c,2)=result(c,2)-1;
    
21.                     end
    
22.                     
    
23.                break;
    
24.             end
    
25.         else
    
26.             if result(unequal(i,1),2)>=result(unequal(i,2),2)
    
27.                
    
28.                     [m,n]=find(same==result(unequal(i,1),1));
    
29.                         if isempty(m)==1
    
30.                             result(unequal(i,1),2)=result(unequal(i,1),2)-1;
    
31.                         else
    
32.                             index=find(same(m,:)>0);
    
33.                             c=same(m,index);
    
34.                             result(c,2)=result(c,2)-1;
    
35.                         end
    
36.                
    
37.                break;
    
38.             end
    
39.         end
    
40.         count=i;
    
41.         if term
42.             term=count
    
43.         end
    
44.         if i==2740
    
45.             a=1;
    
46.             break;
    
47.         end
    
48.         
    
49.     end
    
50. end
    
51. result

复制代码

结果后chù理：根据最小最大原则得到的两组解，计算两者差值，观察结果。

游离的寂静

。。。。  辛苦了 一大早

莫扬、谣

羡慕MATLAB玩得好的大佬

牧云

总算有个会玩的了

景念巧

厉害了。。。。

哈伊芭拉哀

感谢大佬为用实锤帮我吃下了一颗定心丸~~

星川辉

已经回复了，不过差值为9，也没大用。

鲱鱼喵丶

厉害了 算法帝

紫絮雾幽丷

大佬厉害了

JKLegend

说下我自己的结果吧。楼主给的范围是3-12。但是我自己跟117拼赢过。117楼楼主算的是7。所以我的范围应该是8-12吧，不知道是不是有什么问题