[数值计算] 批处理怎样生成n阶蛇形方阵和螺旋方阵？

@echo off&set/a c=9
for /l %%a in (1 1 %c%) do (
    for /l %%b in (1 1 %c%) do set/a "d=%%a+%%b-1,e=(%%a+%%b)%%2,f=e*((d*d-d)/2+%%a)+!e*((d*d+d)/2-%%a+1)-!!(d/(c+1))*(d-c)*(d-c)+100"&call set/p=%%f:~-2%% <nul
    echo;
)
复制代码

@echo off&set c=9
for /l %%a in (1,1,%c%) do (
    for /l %%b in (1,1,%c%) do set/a "d=!!(%%b/%%a)*!(%%b/(c-%%a+2))*(4*(c-%%a)*%%a-4*c+7*%%a+%%b-3)+!(%%b/(%%a+1))*!!(%%b/(c-%%a+2))*(4*(c-%%a)*%%a-2*c+5*%%a-%%b-1)+!!(%%b/(%%a+1))*!!(%%b/(c-%%a+2))*(4*(c-%%b)*%%b-2*c+%%a+3*%%b-1)+!(%%b/%%a)*!(%%b/(c-%%a+2))*(4*(c-%%b)*%%b-%%a+%%b+1)+100"&call set/p=%%d:~-2%% <nul
    echo;
)
复制代码

@echo off
setlocal enabledelayedexpansion
set /p n=输入整数阶数n(n^>0)：
set /a line=%n%-1,line2=%n%*2-1,x=1

for %%o in (%n% %line%) do (
        if %%o equ %n% (set "run=1 1 %n%") else (set "run=%line% -1 1")
        for /l %%i in (!run!) do (
                set str=
                set /a mod=%%i%%2
                for /l %%j in (1 1 %%i) do (
                        set /a sum+=1
                        if !mod! equ 1 (
                                set "str=!sum! !str!"
                        ) else (
                                set "str=!str! !sum!"
                        )
                )
                
                set y=1
                if %%o equ %line% set /a y+=%n%-%%i
                
                for %%j in (!str!) do (
                        set ary[!x!][!y!]=%%j
                        set /a y+=1
                )
                set /a x+=1
        )
)

for /l %%i in (1 1 %n%) do (
        for /l %%j in (1 1 %line2%) do (
                if defined ary[%%j][%%i] (
                        set /p=!ary[%%j][%%i]!	<nul
                        set /a count+=1
                        set /a mod=!count!%%%n%
                        if !mod! equ 0 echo.
                )
        )
)

pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
set flag=i&set i=1&set j=1
set /p n=输入阶数:
set /a nn=n*n
for /l %%a in (1,1,%nn%) do (
    if %%a LSS 10 (set _!i!!j!= %%a) else set _!i!!j!=%%a
    if !flag!==i (if !i! GTR 1 (set/a i-=1&set/a j+=1) else (set/a j+=1&set flag=j)) else (if !j! GTR 1 (set/a j-=1&set/a i+=1) else (set/a i+=1&set flag=i))
    if !i! GTR %n% set/a i-=1&set/a j+=1
    if !j! GTR %n% set/a i+=1&set/a j-=1
    if !i! EQU %n% if defined _!i!!j! set/a j+=1&set flag=i
    if !j! EQU %n% if defined _!i!!j! set/a i+=1&set flag=j
)

for /l %%m in (1,1,%n%) do (
    for /l %%n in (1,1,%n%) do (
       set /p =!_%%m%%n! <nul
     )
    echo.
)
pause>nul
复制代码

@echo off&setlocal enabledelayedexpansion
set flag=i&set i=1&set j=1&set o=1
set /p n=输入阶数:
set /a nn=n*n
set /a n1=n+1
set _1%n1%=Sl挡&set _%n1%%n%=o顶&set _%n%0=re推
for /l %%a in (1,1,%nn%) do (
    if %%a LSS 10 (set _!i!!j!= %%a) else set _!i!!j!=%%a
    if !flag!==i  (set/a j+=!o!) else set/a i+=!o!
    if defined _!i!!j! (if !flag!==i (set flag=j&set/a i+=!o!&set/a j-=!o!) else (set flag=i&(set/a o=-!o!)&set/a i+=!o!&set/a j+=!o!))
)

for /l %%m in (1,1,%n%) do (
    for /l %%n in (1,1,%n%) do (
       set /p =!_%%m%%n! <nul
     )
    echo.
)
pause>nul
复制代码

@echo off&set/a c=9
for /l %%a in (1 1 %c%) do (
    for /l %%b in (1 1 %c%) do set/a "d=%%a+%%b-1,e=(%%a+%%b)%%2,f=e*((d*d-d)/2+%%a)+!e*((d*d+d)/2-%%a+1)+100"&call set/p=%%f:~-2%% <nul
    echo;
)
pause
复制代码

@echo off&set/a c=9
for /l %%a in (1 1 %c%) do (
    for /l %%b in (1 1 %c%) do set/a "d=%%a+%%b-1,e=(%%a+%%b)%%2,f=e*((d*d-d)/2+%%a)+!e*((d*d+d)/2-%%a+1)-!!(d/(c+1))*(d-c)*(d-c)+100"&call set/p=%%f:~-2%% <nul
    echo;
)
pause
复制代码

当i+j-2<c 时：  a(i,j)=(d*d-d)/2+j+rem(i+j,2)*(i-j)
当i+j-2>=c时：  a(i,j)=(d*d-d)/2+j+rem(i+j,2)*(i-j)-(d-c)*(d-c)
复制代码

@echo off&set/a c=19
for /l %%i in (1 1 %c%)do echo;&for /l %%j in (1 1 %c%)do (
    set/a i=%%i,j=%%j,d=i+j-1
    set/a "f=(d*d-d)/2+j+(i+j)%%2*(i-j)-!!((d-1)/c)*(d-c)*(d-c)+1000"
    call set/p=%%f:~-3%% <nul
)
pause>nul
复制代码

001 002 006 007 015 016 028 029 045 046 066 067 091 092 120 121 153 154 190
003 005 008 014 017 027 030 044 047 065 068 090 093 119 122 152 155 189 191
004 009 013 018 026 031 043 048 064 069 089 094 118 123 151 156 188 192 225
010 012 019 025 032 042 049 063 070 088 095 117 124 150 157 187 193 224 226
011 020 024 033 041 050 062 071 087 096 116 125 149 158 186 194 223 227 256
021 023 034 040 051 061 072 086 097 115 126 148 159 185 195 222 228 255 257
022 035 039 052 060 073 085 098 114 127 147 160 184 196 221 229 254 258 283
036 038 053 059 074 084 099 113 128 146 161 183 197 220 230 253 259 282 284
037 054 058 075 083 100 112 129 145 162 182 198 219 231 252 260 281 285 306
055 057 076 082 101 111 130 144 163 181 199 218 232 251 261 280 286 305 307
056 077 081 102 110 131 143 164 180 200 217 233 250 262 279 287 304 308 325
078 080 103 109 132 142 165 179 201 216 234 249 263 278 288 303 309 324 326
079 104 108 133 141 166 178 202 215 235 248 264 277 289 302 310 323 327 340
105 107 134 140 167 177 203 214 236 247 265 276 290 301 311 322 328 339 341
106 135 139 168 176 204 213 237 246 266 275 291 300 312 321 329 338 342 351
136 138 169 175 205 212 238 245 267 274 292 299 313 320 330 337 343 350 352
137 170 174 206 211 239 244 268 273 293 298 314 319 331 336 344 349 353 358
171 173 207 210 240 243 269 272 294 297 315 318 332 335 345 348 354 357 359
172 208 209 241 242 270 271 295 296 316 317 333 334 346 347 355 356 360 361
复制代码

@echo off
setlocal enabledelayedexpansion
set mdebug=0
if %mdebug%==1 (set "trace=echo") else (set "trace=rem")
%trace%.调试
echo.鉴于排版和显示问题，输入的数字不要大于9
echo.
set /p input=你想要的螺旋方阵是几阶的？请输入任意数字: 
set /p input2=顺时针还是逆时针？顺时针输入1，逆时针输入2: 

for /l %%i in (1,1,%input%) do (
  for /l %%j in (1,1,%input%) do (
  set "数组[%%i][%%j]=0"
  )
)

set "方向=0"
set /a "数组长=input*input"
set "行=1"
set "列=1"
set "数组[%行%][%列%]=01"

for /l %%j in (2,1,%数组长% ) do (

if !方向!==0 (
if !列!==%input% (set "bool1=1")  else  (set "bool1=0")
set /a "t=!列!+1"
for /f "delims=" %%a in ("数组[!行!][!t!]") do (set "t2=!%%a!")
if !t! leq %input% (if !t2! neq 0 (set "bool2=1")  else  (set "bool2=0"))
set /a "bool3=bool1|bool2"
if !bool3!==1 (
set /a "方向=(!方向!+1)%%4"
))

if !方向!==1 (
if !行!==%input% (set "bool1=1")  else  (set "bool1=0")
set /a "t=!行!+1"
for /f "delims=" %%a in ("数组[!t!][!列!]") do (set "t2=!%%a!")
if !t! leq %input% (if !t2! neq 0 (set "bool2=1")  else  (set "bool2=0"))
set /a "bool3=bool1|bool2"
if !bool3!==1 (
set /a "方向=(!方向!+1)%%4"
))

if !方向!==2 (
if !列!==1 (set "bool1=1")  else  (set "bool1=0")
set /a "t=!列!-1"
for /f "delims=" %%a in ("数组[!行!][!t!]") do (set "t2=!%%a!")
if !t! geq 1 (if !t2! neq 0 (set "bool2=1")  else  (set "bool2=0"))
set /a "bool3=bool1|bool2"
if !bool3!==1 (
set /a "方向=(!方向!+1)%%4"
))

if !方向!==3 (
if !行!==1 (set "bool1=1")  else  (set "bool1=0")
set /a "t=!行!-1"
for /f "delims=" %%a in ("数组[!t!][!列!]") do (set "t2=!%%a!")
if !t! geq 1 (if !t2! neq 0 (set "bool2=1")  else  (set "bool2=0"))
set /a "bool3=bool1|bool2"
if !bool3!==1 (
set /a "方向=(!方向!+1)%%4"
))

if !方向!==0 ( set /a "列=!列!+1" ) 
if !方向!==1 ( set /a "行=!行!+1" )
if !方向!==2 ( set /a "列=!列!-1" )
if !方向!==3 ( set /a "行=!行!-1" )
set /a "t3=%%j+100"
set "数组[!行!][!列!]=!t3:~1!"
)

if %input2%==2 (
for /l %%i in (1,1,%input%) do (
  for /l %%j in (1,1,%input%) do (
  (set /p "=!数组[%%j][%%i]!  ") < nul
  )
echo.
)
) else (
for /l %%i in (1,1,%input%) do (
  for /l %%j in (1,1,%input%) do (
  (set /p "=!数组[%%i][%%j]!  ") < nul
  )
echo.
)
)

pause >nul
复制代码

@echo off
setlocal enabledelayedexpansion
set mdebug=0
if %mdebug%==1 (set "trace=echo") else (set "trace=rem")
%trace%.调试
echo.鉴于排版和显示问题，输入的数字不要大于9
set /p n=你想要的螺旋方阵是几阶的？请输入任意数字: 
set /p input=顺时针还是逆时针？顺时针输入1，逆时针输入2: 
echo.
set /a "nn=n*n"
set "i=1"&set "j=1"
set /a "圈=(n+1)/2"

set "阶=!n!"
set "首位数值=1"
set "首位=1"
for /l %%a in (1,1,%圈%) do (
call :构造边缘 !首位数值! !阶! !首位!
set /a "首位数值+=(阶-1)*4"
set /a "阶-=2"
set /a "首位+=1"
)



if %input%==2 (
for /l %%i in (1,1,%n%) do (
  for /l %%j in (1,1,%n%) do (
  (set /p "=!数组[%%j][%%i]!  ") < nul
  )
echo.
)
) else (
for /l %%i in (1,1,%n%) do (
  for /l %%j in (1,1,%n%) do (
  (set /p "=!数组[%%i][%%j]!  ") < nul
  )
echo.
)
)
%trace%.调试
pause >nul
goto :eof

:构造边缘
if %2==1 (
set /a "t=%1+100"
set "数组[%3][%3]=!t:~1!"
) else (
set /a "圈长=(%2-1)*4"
set "i=%3"&set "j=%3"
set /a 末尾数值=%1+!圈长!-1
set "头=%3"
set /a "尾=头+%2-1"
for /l %%b in (%1,1,!末尾数值!) do (
set /a "t=%%b+100"
set "数组[!i!][!j!]=!t:~1!"
set "key1=1"
if !key1!==1 (if !i!==!头! (if !j! lss !尾! (
set /a j+=1
set "key1=0"
)))
if !key1!==1 (if !j!==!尾! (if !i! lss !尾! (
set /a i+=1
set "key1=0"
)))
if !key1!==1 (if !i!==!尾! (if !j! gtr !头! (
set /a j-=1
set "key1=0"
)))
if !key1!==1 (if !j!==!头! (if !i! gtr !头! (
set /a i-=1
set "key1=0"
)))
)
)
复制代码