%%2017/11/13 by DengQi(DQ)
function [Data,PossibleData,PossibleDataNum,DataChange] = Row_Col_Block_DataTwoSame(Data,PossibleData,PossibleDataNum)
DataChange=false;
[m,n]=size(PossibleData);
%% 在行中查找具有2个且相同的数据，那么在这两个位置上的数据
%只可能是2个数据中的一个，其他位置则无此数据，在其他位置干掉他们
for i=1:m
for j=1:n
if PossibleDataNum(i,j)==2
RowTwoCount=1;
for g=j+1:n
if PossibleDataNum(i,g)==2
Temp=intersect(PossibleData{i,j},PossibleData{i,g});
if length(Temp)==2
RowTwoCount=RowTwoCount+1;
break;
end
end
end
if RowTwoCount==2
for h=1:9
if (PossibleDataNum(i,h))&&(h~=j)&&(h~=g)
ExcludeTwoData=setdiff(PossibleData{i,h},PossibleData{i,j});
PossibleData(i,h)={ExcludeTwoData};
PossibleDataNum(i,h)=length(ExcludeTwoData);
DataChange=true;
end
end
end
end
end%j
end%i
%% 在列中查找具有2个且相同的数据，那么在这两个位置上的数据
%只可能是2个数据中的一个，其他位置则无此数据，在其他位置干掉他们
for j=1:n
for i=1:m
if PossibleDataNum(i,j)==2
ColTwoCount=1;
for h=i+1:m
if PossibleDataNum(h,j)==2
Temp=intersect(PossibleData{i,j},PossibleData{h,j});
if length(Temp)==2
ColTwoCount=ColTwoCount+1;
break;
end
end
end
if ColTwoCount==2
for g=1:9
if (PossibleDataNum(g,j))&&(g~=i)&&(g~=h)
ExcludeTwoData=setdiff(PossibleData{g,j},PossibleData{i,j});
PossibleData(g,j)={ExcludeTwoData};
PossibleDataNum(g,j)=length(ExcludeTwoData);
DataChange=true;
end
end
end
end
end%i
end%j
%% 在3x3小块中查找具有2个且相同的数据，那么在这两个位置上的数据
%只可能是2个数据中的一个，其他位置则无此数据，在其他位置干掉他们
for i=1:m
for j=1:n
if PossibleDataNum(i,j)==2
BlockXIndex= (1+3*floor((i-1)/3)):(3+3*floor((i-1)/3));
BlockYIndex= (1+3*floor((j-1)/3)):(3+3*floor((j-1)/3));
BlockTwoCount=1;
Blockg=0;
Blockh=0;
TempPossibleData=PossibleData{i,j};
PossibleData(i,j)={[]};
PossibleDataNum(i,j)=0;
for BlockX=BlockXIndex
for BlockY=BlockYIndex
if (PossibleDataNum(BlockX,BlockY)==2)%%假如2组数在同一行或同一列则不会进入下列语句，因此逻辑有误
Temp=intersect(TempPossibleData,PossibleData{BlockX,BlockY});
if length(Temp)==2
BlockTwoCount=BlockTwoCount+1;
PossibleData(BlockX,BlockY)={[]};
PossibleDataNum(BlockX,BlockY)=0;
Blockg=BlockX;
Blockh=BlockY;
break;
end
end
end
end
if BlockTwoCount==2
for g=BlockXIndex
for h=BlockYIndex
if PossibleDataNum(g,h)
ExcludeTwoData=setdiff(PossibleData{g,h},TempPossibleData);
PossibleData(g,h)={ExcludeTwoData};
PossibleDataNum(g,h)=length(ExcludeTwoData);
DataChange=true;
end
end
end
PossibleData(Blockg,Blockh)={TempPossibleData};
PossibleDataNum(Blockg,Blockh)=2;
end
PossibleData(i,j)={TempPossibleData};
PossibleDataNum(i,j)=2;
end
end
end%j
end%i
SudouMatlabTest.rar （8个子文件） 
SudouMatlabTest 
SudouM1.xls 22KB
ExcludeRow_Col_BlockSame.m 1KB SudouDemo.m 644B BaseRule.m 1KB Row_Col_Block_DataUnique.m 4KB Row_Col_Block_DataTwoSame.m 4KB
SudouD.xlsx 8KB Sudou1.xlsx 8KB资源评论
weixin_444349332019-01-08挺好用的可以
