随风

奇数阶幻方的构造方法(楼梯法)。
把1(或最小的数)放在第一行正中；
按以下规律排列剩下的n*n-1个数：
　　1)每一个数放在前一个数的右上一格；
　　2)如果这个数所要放的格已经超出了顶行那么就把它放在底行，仍然要放在右一列；
　　3)如果这个数所要放的格已经超出了最右列那么就把它放在最左列，仍然要放在上一行；
　　4)如果这个数所要放的格已经超出了顶行且超出了最右列那么就把它放在前一个数的下一行同一列的格内；
　　5)如果这个数所要放的格已经有数填入，处理方法同4)。

@echo off
:start
setlocal enabledelayedexpansion
echo.&set /p n= 请输入一个奇数 &cls
set /a m=n/2+1,h=1,c=n*n,he=(n*n+1)*n/2
echo  !n! 阶幻方各行,列以及对角线相加的和为: %he%&echo.
set .1-!m!=1
for /l %%a in (2 1 !c!) do call :loop %%a
for /l %%a in (0 1 9) do set c=!c:%%a= %%a !
for %%a in (!c!) do set /a j+=1
for /l %%a in (1 1 !n!) do (
   set "num="
   for /l %%b in (1 1 !n!) do (
      set "var=                                !.%%a-%%b!"
      set "num=!num! !var:~-%j%!"
)
   echo.!num!
)
endlocal&goto start
:loop
   set /a h-=1,m+=1
   if !h! lss 1 set /a h=n
   if !M! gtr !n! set /a m=1
   if defined .!h!-!m! (
      if !qh! equ !n! (set /a h=2) else set /a h=qh+2
   set /a qh=h-1,m=qm-1
   goto loop
)
   set ".!h!-!m!=%~1"
   set /a qh=h,qm=m
goto :EOF
复制代码

[ 本帖最后由 随风 于 2009-4-3 10:46 编辑 ]

随风

不懂什么是一维变量，代码一写好就发现效率是个大问题，一直没有办法解决，这种幻方构造方法是临时在网上找的，lhjoanna兄是否还有更好的算法？拿来分享一下。又或者我的代码还可以如何改进，请指点。。

随风

仔细琢磨了兄的代码。效率及算法都比我的强多了。
最不懂的一句 set /a "loc=n*(i-1)+j" 应该也是精华吧。
不过有一处不太明白，好像也不太容易说明白。举个例吧
a    1    c
3    e    f
g    h    2
此时 4 应该放在 b 的位置，也就是 1 的位置，但位置被 1 占了，
所以 4 就应该放在前一个数的下一行同一列的格内，也就是 g 位，
问题来了，不知道幻方会不会有这种情况出现，就是 g 位此时也已经被别的数占了，
如果这种情况存在，那么按我的理解就应该放在g的下面。
同样，如果存在这种情况，那么兄的代码似乎没对这种反复的情况作处理啊。

随风

多谢兄的耐心讲解，认真看了看，说实话但也只看懂个大概，不过也受益匪浅了。
既然不存在目标数的下一行对应的数被占用的情况，那么代码可以修改一下提高效率。
我17楼代码之所以效率低下应该是因为call太多，loop就是为了处理这种情况，现在看来是多余的。
:

@echo off
:start
setlocal enabledelayedexpansion
echo.&set /p n= 请输入一个奇数 &cls
set /a m=n/2+1,h=1,c=n*n,he=(n*n+1)*n/2
echo  !n! 阶幻方各行,列以及对角线相加的和为: %he%&echo.
set .1-!m!=1
for /l %%a in (2 1 !c!) do (
   set /a h-=1,m=m%%n+1
   if !h! equ 0 set /a h=n
   if defined .!h!-!m! set /a h=qh%%n+1,m=qm
   set ".!h!-!m!=%%a"
   set /a qh=h,qm=m
)
for /l %%a in (0 1 9) do set c=!c:%%a= %%a !
for %%a in (!c!) do set /a j+=1
for /l %%a in (1 1 !n!) do (
   set "num="
   for /l %%b in (1 1 !n!) do (
      set "var=               !.%%a-%%b!"
      set "num=!num! !var:~-%j%!"
    )
    echo.!num!
)
endlocal&goto start
复制代码

随风

想通过代码来了解算法太难了，大致看了下兄的代码流程，只发现一处影响代码效率的地方。
批处理的运行效率，个人认为 set 或 set /a 并不会太影响，关键是看代码的设计，for的循环次数尤其是嵌套循环，再就是call若在for循环中有call则一定会使效率大打折扣。
建议改进的地方：
:exchange 标签下
call set _%%i%%j=%%_!i!%%j%%
改为 for %%a in (!i!) do set _%%i%%j=!_%%a%%j!