clear h=9; for r=1:h A(1)=r; for s=1:h A(2)=s; for t=1:h A(3)=t; A(4)=15-A(1)-A(3); A(5)=15-A(2)-A(4); e=A(5); if e>9|e<1 for z=1:h A(5)=z; A(6)=15-A(1)-A(5); A(7)=15-A(3)-A(5); j=1; for i=1:7 if A(i)<1|A(i)>9 j=0; end end if j==1 k=1; for m=1:7 for n=1:7 if m~=n&A(m)==A(n) k=0; end end end if k==1 [A(1) A(2) A(3) A(4) A(5)] end end end end end end end