php实现的生成迷宫与迷宫寻址算法完整实例

<?php
header('content-type: text/html; charset=utf-8');
error_reporting(e_all);
//n宫格迷宫
define('m', 39);//宫数
define("s", 20);//迷宫格大小
$_posarr = array(array(0, -1), array(1, 0), array(0, 1), array(-1, 0));//当前点寻址的四个xy方向 上右下左
//生成迷宫
$maze = array();
$mazeunit = array(1, 1, 1, 1);//上右下左
for($x=0; $x<=m; $x++){
  for($y=0; $y<=m; $y++){
    $maze[$x][$y] = $mazeunit;
  }
}
$maze2 = array();//破墙后的已访问格子
$mazeorder = array();//破墙顺序
$x = $y = 0;//初始入口
while(count($maze)>0){
  $tmparr = array();
  foreach($_posarr as $val){
    $nx = $x + $val[0];
    $ny = $y + $val[1];
    if(isset($maze[$nx][$ny])){//未破墙过的格子
      $tmparr[] = array($nx, $ny);
    }
  }
  if($tmparr){//有未破墙的格子，随机出一个，破墙
    list($nx, $ny) = $tmparr[array_rand($tmparr)];
    $maze2[$nx][$ny] = $maze[$nx][$ny];
    if(empty($maze2[$x][$y])) $maze2[$x][$y] = $maze[$x][$y];
    $pos = array($nx - $x, $ny - $y);
    foreach($_posarr as $key=>$val){//循环四个方向，找出需要破的墙
      if($pos == $val) {
        $maze2[$x][$y][$key] = 0;//原格子破墙
        $maze2[$nx][$ny][($key+2)%4] = 0;//新格子破墙
      }
    }
    //设置新的当前格后返回继续while循环
    $x = $nx;
    $y = $ny;
    $mazeorder[] = array($x, $y);
    unset($maze[$x][$y]);//去掉已破墙的格子
    if(empty($maze[$x])) unset($maze[$x]);
  }else{//当前xy周围不存在未破墙的格子，返回上一个格子继续破墙
    array_pop($mazeorder);
    if($mazeorder) list($x, $y) = $mazeorder[count($mazeorder) - 1];
  }
}
//留出出口
$maze = $maze2;
$maze[0][0][3] = 0;
$maze[m][m][1] = 0;
//寻址
$patharr = findpath($maze, 0, 0, false);
printmaze($maze, $patharr);
echo "<img src='maze.png'> <a href='javascript:;' onclick='location.reload();'>刷新</a>";
//打印迷宫和寻址结果
function printmaze($maze, $patharr){
  $im = imagecreate((m + 1) * s + 1, (m + 1) * s + 1);
  $bg = imagecolorallocate($im, 236, 233, 216);
  $pathcolor=imagecolorallocate($im, 255, 0, 0);
  $exitcolor=imagecolorallocate($im, 134, 255, 0);
  $bordercolor = imagecolorallocate($im, 0, 0, 0);
  imagerectangle($im, 0, 0, (m + 1) * s, (m + 1) * s, $bordercolor);//包边
  imageline($im, 0, 0, 0, s, $bg);//右上边开口
  imageline($im, (m + 1) * s, m * s, (m + 1) * s, (m + 1) * s, $bg);//左下边开口
  foreach($maze as $x=>$xarr){//生成格子
    foreach($xarr as $y=>$unit){
      if($unit[0]) imageline($im, $x * s, $y * s, ($x + 1) * s, $y * s, $bordercolor);//上有线
      if($unit[1]) imageline($im, ($x + 1) * s, $y * s, ($x + 1) * s, ($y + 1) * s, $bordercolor);//右有线
      if($unit[2]) imageline($im, $x * s, ($y + 1) * s, ($x + 1) * s, ($y + 1) * s, $bordercolor);//下有线
      if($unit[3]) imageline($im, $x * s, $y * s, $x * s, ($y + 1) * s, $bordercolor);//左有线
      //if(in_array(array($x, $y), $patharr)) imagefilledellipse($im, $x * s + s/2, $y * s + s/2, s, s, $pathcolor);//寻址格
      if(in_array(array($x, $y), $patharr)) imagestring($im, 1, $x * s + s/5, $y * s + s/5, array_search(array($x, $y), $patharr), $pathcolor);//寻址格
    }
  }
  imagepng($im, 'maze.png');
  imagedestroy($im);
}
//寻址函数
function findpath($maze, $x, $y, $fromxy){
  global $_posarr;
  if($x == m && $y == m){//到达出口
    return array(array($x, $y));
  }
  foreach($_posarr as $key=>$val){
    if($maze[$x][$y][$key]) continue;//为1则不通
    $nx = $x + $val[0];
    $ny = $y + $val[1];
    if(!isset($maze[$nx][$ny]) || $fromxy == array($nx, $ny)) continue;//边界超出或为来源点
    if($patharr = findpath($maze, $nx, $ny, array($x, $y))) {
      array_unshift($patharr, array($x, $y));
      return $patharr;//能到达出口
    }
  }
  return false;
}
?>