s14.asv

这是本人在2005年参加全国大学生电工建模做b题的相关资料

clear
i=1;
a=[0	1	1	0	0	0	0	0	1	0	0	0	1	0
0	0	0	0	0	0	0	1	0	0	1	1	0	0
0	1	0	1	0	0	0	0	0	1	0	0	0	0
0	0	1	0	0	0	0	1	0	0	0	1	0	0
0	0	0	0	0	0	0	0	0	0	1	0	1	1
0	0	0	0	1	1	0	0	0	0	0	0	0	0
0	0	0	0	0	0	0	0	0	0	0	1	1	0
0	0	0	0	0	0	0	0	0	1	0	0	0	1
0	1	0	1	0	0	0	0	0	1	1	0	0	0
1	1	0	1	0	0	1	0	0	0	0	0	0	0
0	1	0	1	0	0	0	0	0	0	0	0	1	1
0	0	0	0	0	0	0	1	0	1	0	0	0	0
0	0	0	0	1	0	0	0	0	1	0	0	0	1
0	0	1	1	0	0	0	1	0	0	0	0	0	0
0	0	1	0	0	0	0	1	0	0	0	1	0	0
0	0	0	0	0	0	0	0	1	0	1	1	0	0
0	0	0	0	0	1	0	0	0	0	0	0	0	1
0	0	0	0	0	0	1	0	0	0	0	1	0	0
0	0	1	0	0	0	0	0	0	1	0	0	0	0
1	0	0	1	0	0	0	0	0	0	0	0	0	0
0	0	0	0	0	0	0	0	1	0	0	0	0	1
0	1	0	0	1	0	0	0	0	0	0	0	0	0
0	0	0	0	0	0	1	0	0	0	0	1	0	0
0	0	0	0	0	0	1	1	0	0	0	0	1	1
1	1	0	0	0	0	0	0	0	1	0	0	0	0
0	0	0	0	1	0	0	0	0	0	0	0	0	1
0	0	0	0	0	1	0	0	0	0	1	0	0	0
0	1	0	0	0	0	0	1	0	0	0	0	0	0
1	0	0	0	0	0	0	0	0	0	1	1	0	0
0	0	0	1	1	0	0	0	0	0	0	0	0	0
0	0	0	0	0	1	0	1	0	0	0	1	0	0
0	0	0	0	0	0	1	0	0	1	0	0	0	0
0	0	0	1	0	1	0	0	0	0	0	0	0	0
1	0	1	0	0	0	0	0	0	0	0	0	1	1
0	0	0	0	1	1	0	0	0	0	0	1	0	0
0	0	0	1	0	0	1	0	0	0	0	0	0	0
1	0	0	0	0	0	0	0	1	1	0	0	0	0
0	0	0	0	0	1	0	1	0	1	0	0	0	1
0	0	0	0	1	0	0	1	1	0	0	0	1	0
0	0	0	0	0	1	1	0	1	0	0	0	1	0
];
b=a'*a;
for i=1:14
    b(i,i)=0;
end
i=1;
for m1=1:14
    for m2=1:14
        if m2==m1;
           continue;
        end
        for m3=1:14
            if m3==m1|m3==m2
                continue;
            end
            for m4=1:14
                if m4==m1|m4==m2|m4==m3
                    continue;
                end
                for m5=1:14
                    if m5==m4|m5==m3|m5==m2|m5==m1
                       continue;
                    end
                    for m6=1:14
                        if m6==m5|m6==m4|m6==m3|m6==m2|m6==m1
                            continue;
                        end
                        for m7=1:14
                            if m7==m6|m7==m5|m7==m4|m7==m3|m7==m2|m7==m1
                                continue;
                            end
                            for m8=1:14
                                if m8==m7|m8==m6|m8==m5|m8==m4|m8==m3|m8==m2|m8==m1
                                    continue;
                                end
                                for m9=1:14
                                    if m9==m8|m9==m7|m9==m6|m9==m5|m9==m4|m9==m3|m9==m2|m9==m1
                                        continue;
                                    end
                                    for m10=1:14
                                        if m10==m9|m10==m8|m10==m7|m10==m6|m10==m5|m10==m4|m10==m3|m10==m2|m10==m1
                                            continue;
                                        end
                                        for m11=1:14
                                            if m11==m10|m11==m9|m11==m8|m11==m7|m11==m6|m11==m5|m11==m4|m11==m3|m11==m2|m11==m1
                                                continue;
                                            end
                                            for m12=1:14
                                                if m12==m11|m12==m10|m12==m9|m12==m8|m12==m7|m12==m6|m12==m5|m12==m4|m12==m3|m12==m2|m12==m1
                                                    continue;
                                                end
                                                 for m13=1:14
                                                     if m13==m12|m13==m11|m13==m10|m13==m9|m13==m8|m13==m7|m13==m6|m13==m5|m13==m4|m13==m3|m13==m2|m13==m1
                                                         continue;
                                                     end
                                                     for m14=1:14
                                                          if m14==m13|m14==m12|m14==m11|m14==m10|m14==m9|m14==m8|m14==m7|m14==m6|m14==m5|m14==m4|m14==m3|m14==m2|m14==m1
                                                         continue;
                                                          end
                                                          xx(i)=b(m1,m2)+b(m2,m3)+b(m3,m4)+b(m4,m5)+b(m5,m6)+b(m6,m7)+b(m7,m8)+b(m8,m9)+b(m9,m10)+b(m10,m11)+b(m11,m12)+b(m12,m13)+b(m13,m14);                                                  
                                                          i=i+1;
                                                          if   mod
                                                     end
                                                 end
                                            end
                                        end
                                    end
                                end
                            end
                        end
                    end
                end
            end
        end
    end
end