數(shù)獨(dú)求解_matlab

subject.png

空的位置用0補(bǔ)扁瓢,用空格分隔忽匈,將題目記錄到txt文檔中种蘸。

data.txt

0 0 0 0 0 0 0 0 0
0 2 3 0 0 0 7 8 0
1 0 0 4 0 6 0 0 9
4 0 0 0 5 0 0 0 1
9 0 0 0 0 0 0 0 6
0 6 0 0 0 0 0 9 0
0 0 5 0 0 0 8 0 0
0 0 0 3 0 1 0 0 0
0 0 0 0 9 0 0 0 0

檢查某個(gè)數(shù)字能否填入某個(gè)空格鞠值,只檢查那一橫行媚创。

check_row.m

function [result] = check_row(matrix, i, j, num)
    result = true;
    for col = 1 : 9
        if matrix(i, col) == num
            result = false;
            break;
        end
    end
end

檢查某個(gè)數(shù)字能否填入某個(gè)空格,只檢查那一列齿诉。

check_col.m

function [result] = check_col(matrix, i, j, num)
    result = true;
    for row = 1 : 9
        if matrix(row, j) == num
            result = false;
            break;
        end
    end
end

檢查某個(gè)數(shù)字能否填入某個(gè)空格筝野,只檢查所在的3*3小方陣。

check_block.m

function [result] = check_block(matrix, i, j, num)
    result = true;
    
    % 計(jì)算此i,j所屬小九宮格的坐標(biāo)
    block_row = floor( (i-1) / 3 ) + 1;
    block_col = floor( (j-1) / 3 ) + 1;
    
    block_row_from = (block_row * 3) - 2;
    block_row_to = block_row * 3;
    block_col_from = (block_col * 3) - 2;
    block_col_to = block_col * 3;
    
    
    for row = block_row_from : block_row_to
        for col = block_col_from : block_col_to
            if matrix(row, col) == num
                result = false;
                break;
            end
        end
    end
    
end

檢查某個(gè)數(shù)字能否填入某個(gè)空格粤剧,聯(lián)合檢查:所在行歇竟、所在列、所在的3*3小方陣抵恋。

check_all.m

function [result] = check_all(matrix, i, j, num)
    result = check_row(matrix, i, j, num) && check_col(matrix, i, j, num) &&  check_block(matrix, i, j, num);
end

繪制格子和數(shù)據(jù)的 function :

function [] = draw(matrix, isSubplot, rows, cols, rank)

if isSubplot == true
    subplot(rows, cols, rank);
    
matrix0 = dlmread('data.txt', '');
matrix0 = matrix0';
    
plot(0,0);
hold on
for i = 0 : 9
    if rem(i,3) == 0
        plot([0;9],[i,i],'linewidth',3,'color','black');
        plot([i;i],[0,9],'linewidth',3,'color','black');
    else
        plot([0;9],[i,i],'linewidth',1,'color','black');
        plot([i;i],[0,9],'linewidth',1,'color','black');
    end
end

matrix = matrix';
for i = 1 : 9
    for j = 1 : 9
        if matrix(i,j) ~= 0
            if matrix(i,j) == matrix0(i,j)
                text(i-0.5, 9.5-j, strcat('\color{red}',num2str(matrix(i,j))));
            else
                text(i-0.5, 9.5-j, num2str(matrix(i,j)));
            end
        end
    end
end

end

使用窮舉解決方案焕议。

solve.m

% 整個(gè)大九宮格的index編號(hào)(從左到右,從上到下):1 ~ 81
function solve(matrix, index)
    if index > 81       % 已經(jīng)找到解
        disp(matrix);
        draw(matrix, true, 1, 2, 2);
    else
        % 計(jì)算此index對(duì)應(yīng)i弧关、j
        i = floor((index - 1) / 9) + 1;
        j = mod((index-1), 9) + 1;
        
        if matrix(i, j) ~= 0    % 如果是個(gè)已知數(shù)的話盅安,直接跳到下一格
            solve(matrix, index+1);
        else                    % 未知數(shù)
            for num = 1 : 9                                % 試值
                if check_all(matrix, i, j, num) == true    % 可以
                    matrix(i, j) = num;                    % 賦值
                    solve(matrix, index+1);                % 跳到下一格
                end
            end
        end
    end
end

主程序:將文本讀入到二維數(shù)組中,調(diào)用解決程序世囊,從位置1開(kāi)始别瞭。

sudoku.m

matrix = dlmread('data.txt', ' ');

disp(matrix);
draw(matrix, true, 1, 2, 1);

solve(matrix, 1);

運(yùn)行結(jié)果:

>> sudoku
     0     0     0     0     0     0     0     0     0
     0     2     3     0     0     0     7     8     0
     1     0     0     4     0     6     0     0     9
     4     0     0     0     5     0     0     0     1
     9     0     0     0     0     0     0     0     6
     0     6     0     0     0     0     0     9     0
     0     0     5     0     0     0     8     0     0
     0     0     0     3     0     1     0     0     0
     0     0     0     0     9     0     0     0     0

     5     4     9     7     3     8     1     6     2
     6     2     3     9     1     5     7     8     4
     1     8     7     4     2     6     3     5     9
     4     3     8     6     5     9     2     7     1
     9     5     1     8     7     2     4     3     6
     7     6     2     1     4     3     5     9     8
     3     9     5     2     6     4     8     1     7
     2     7     6     3     8     1     9     4     5
     8     1     4     5     9     7     6     2     3
Sudoku.png
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市株憾,隨后出現(xiàn)的幾起案子蝙寨,更是在濱河造成了極大的恐慌晒衩,老刑警劉巖,帶你破解...
    沈念sama閱讀 211,743評(píng)論 6 492
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件墙歪,死亡現(xiàn)場(chǎng)離奇詭異听系,居然都是意外死亡,警方通過(guò)查閱死者的電腦和手機(jī)虹菲,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 90,296評(píng)論 3 385
  • 文/潘曉璐 我一進(jìn)店門靠胜,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái),“玉大人毕源,你說(shuō)我怎么就攤上這事浪漠。” “怎么了脑豹?”我有些...
    開(kāi)封第一講書人閱讀 157,285評(píng)論 0 348
  • 文/不壞的土叔 我叫張陵郑藏,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我瘩欺,道長(zhǎng)必盖,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書人閱讀 56,485評(píng)論 1 283
  • 正文 為了忘掉前任俱饿,我火速辦了婚禮歌粥,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘拍埠。我一直安慰自己失驶,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 65,581評(píng)論 6 386
  • 文/花漫 我一把揭開(kāi)白布枣购。 她就那樣靜靜地躺著嬉探,像睡著了一般。 火紅的嫁衣襯著肌膚如雪棉圈。 梳的紋絲不亂的頭發(fā)上涩堤,一...
    開(kāi)封第一講書人閱讀 49,821評(píng)論 1 290
  • 那天,我揣著相機(jī)與錄音分瘾,去河邊找鬼胎围。 笑死,一個(gè)胖子當(dāng)著我的面吹牛德召,可吹牛的內(nèi)容都是我干的白魂。 我是一名探鬼主播,決...
    沈念sama閱讀 38,960評(píng)論 3 408
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼上岗,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼福荸!你這毒婦竟也來(lái)了?” 一聲冷哼從身側(cè)響起肴掷,我...
    開(kāi)封第一講書人閱讀 37,719評(píng)論 0 266
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤逞姿,失蹤者是張志新(化名)和其女友劉穎辞嗡,沒(méi)想到半個(gè)月后捆等,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體滞造,經(jīng)...
    沈念sama閱讀 44,186評(píng)論 1 303
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,516評(píng)論 2 327
  • 正文 我和宋清朗相戀三年栋烤,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了谒养。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 38,650評(píng)論 1 340
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡明郭,死狀恐怖买窟,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情薯定,我是刑警寧澤始绍,帶...
    沈念sama閱讀 34,329評(píng)論 4 330
  • 正文 年R本政府宣布,位于F島的核電站话侄,受9級(jí)特大地震影響亏推,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜年堆,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,936評(píng)論 3 313
  • 文/蒙蒙 一吞杭、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧变丧,春花似錦芽狗、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書人閱讀 30,757評(píng)論 0 21
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至攻晒,卻和暖如春顾复,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背炎辨。 一陣腳步聲響...
    開(kāi)封第一講書人閱讀 31,991評(píng)論 1 266
  • 我被黑心中介騙來(lái)泰國(guó)打工捕透, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人碴萧。 一個(gè)月前我還...
    沈念sama閱讀 46,370評(píng)論 2 360
  • 正文 我出身青樓乙嘀,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親破喻。 傳聞我的和親對(duì)象是個(gè)殘疾皇子虎谢,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,527評(píng)論 2 349

推薦閱讀更多精彩內(nèi)容

  • 個(gè)人學(xué)習(xí)批處理的初衷來(lái)源于實(shí)際工作;在某個(gè)迭代版本有個(gè)BS(安卓手游模擬器)大需求曹质,從而在測(cè)試過(guò)程中就重復(fù)涉及到...
    Luckykailiu閱讀 4,702評(píng)論 0 11
  • .bat腳本基本命令語(yǔ)法 目錄 批處理的常見(jiàn)命令(未列舉的命令還比較多婴噩,請(qǐng)查閱幫助信息) 1擎场、REM 和 :: 2...
    慶慶慶慶慶閱讀 8,069評(píng)論 1 19
  • 一、Python簡(jiǎn)介和環(huán)境搭建以及pip的安裝 4課時(shí)實(shí)驗(yàn)課主要內(nèi)容 【Python簡(jiǎn)介】: Python 是一個(gè)...
    _小老虎_閱讀 5,725評(píng)論 0 10
  • 常言道“父愛(ài)如山几莽、母愛(ài)如水”迅办,若說(shuō)母愛(ài)是能讓人心頭蘊(yùn)熱的溫度,那么父愛(ài)就是一種讓人高山仰止的高度章蚣。父愛(ài)是一...
    言之命至者閱讀 1,309評(píng)論 0 5
  • 引用簡(jiǎn)書鏈接 @dynamic與@synthesize的區(qū)別 @property有兩個(gè)對(duì)應(yīng)的詞站欺,一個(gè)是@synth...
    YM_1閱讀 5,395評(píng)論 0 4