hanshu.m

来自「有兴趣学系matlab的朋友」· M 代码 · 共 42 行

function y=hanshu(p)
A1=[71    27    34    37    18    33    17];
A2=[30    18    17    13    12    28    23];
A3=[7     9     0     7     6     5    11];
A4=[4     3     0     4     2     0     2];
A5=[1     3     1     0     2     5     6];
B=[88 53 18 6 7]';
C=p*B;
c1=C(1,1);
c2=C(2,1);
c3=C(3,1);
c4=C(4,1);
c5=C(5,1);
y=[];
D=[88/71 88/27 88/34 88/37 88/18 88/33 88/17]'*p;
for a=0:D(1,1)
    for b=0:D(2,1)
        for c=0:D(3,1)
            for d=0:D(4,1)
                for e=0:D(5,1)
                    for f=0:D(6,1)
                        for g=0:D(7,1)
                            E=[a b c d e f g]';
                            if A5*E==c5
                                if A4*E==c4
                                    if A3*E==c3
                                        if A2*E==c2
                                            if A1*E==c1
                                                y=[y E];
                                            end
                                        end
                                    end
                                end
                            end
                        end
                    end
                end
            end
        end
    end
end
y;