matlab编写的迷宫小游戏
内容来自用户:且自逍遥1994
function maze
row = 20;
col = 39;
rand('state',sum(100*clock))
[cc,rr] = meshgrid(1:col,1:row);
state = reshape([1:row*col],row,col);
id = reshape([1:row*col],row,col);
ptr_left = zeros(size(id));
ptr_up = zeros(size(id));
ptr_right = zeros(size(id));
ptr_down = zeros(size(id));
ptr_left(:,2:size(id,2)) = id(:,1:size(id,2)-1);
ptr_up(2:size(id,1),:) = id(1:size(id,1)-1,:);
ptr_right(:,1:size(id,2)-1) = id(:,2:size(id,2));
ptr_down(1:size(id,1)-1,:) = id(2:size(id,1),:);
the_maze = cat(2,reshape(id,row*col,1),reshape(rr,row*col,1),reshape(cc,row*col,1),reshape(state,row*col,1),...
reshape(ptr_left,row*col,1),reshape(ptr_up,row*col,1),reshape(ptr_right,row*col,1),reshape(ptr_down,row*col,1) );
the_maze = sortrows(the_maze);
id = the_maze(:,1);
rr = the_maze(:,2);
cc = the_maze(:,3);
state = the_maze(:,4);
ptr_left = the_maze(:,5);
ptr_up = the_maze(:,6);
ptr_right = the_maze(:,7);
ptr_down = the_maze(:,8);
clear the_maze;
[state, ptr_left, ptr_up, ptr_right, ptr_down]=...
make_pattern(row,col,rr, cc, state, ptr_left, ptr_up, ptr_right, ptr_down);
f = figure('Name','迷宫',... %显示图形窗口的标题<...
658