@echo off & setlocal EnableDelayedExpansion
set /a n=20
for /l %%a in (-%n% 2 %n%) do (
	for /l %%b in (-%n% 1 %n%) do (
		set /a r2=%%a*%%a+%%b*%%b-n*n
		if !r2! gtr 0 (set /p=@) else set /p=_
	)
	echo;
)<nul
pause>nul
复制代码

@echo off & setlocal EnableDelayedExpansion
set /a n=20,m=0,nn=n+1
for /l %%a in (-%n% 2 %n%) do (
	setlocal
	for /l %%b in (-%n% 1 %nn%) do (
		set /a "m=(%%a*%%a+%%b*%%b-n*n-1)>>31",test=!m!-m
		if !test!==1 (set r=!r!@) else (
			if !test!==-1 (set "r=!r:~,-1!@ ") else set "r=!r! "
		)
	)
	echo;!r!
	endlocal

)
pause
复制代码

@echo off & setlocal EnableDelayedExpansion
mode con:cols=220 lines=80
:c
set /a n+=1,m=0,nn=n+1
setlocal
for /l %%a in (-%n% 2 %n%) do (
	for /l %%b in (-%n% 1 %nn%) do (
		set /a "m=(%%a*%%a+%%b*%%b-n*n-1)>>31",test=!m!-m
		if !test!==1 (set r%%a=!r%%a!@) else (
			if !test!==-1 (set "r%%a=!r%%a:~,-1!@ ") else set "r%%a=!r%%a! "
		)
	)
	set m=0

)
cls
for /l %%a in (-%n% 2 %n%) do echo !r%%a!
ping /n 1 localhost>nul
endlocal
goto c
复制代码

@echo off & setlocal EnableDelayedExpansion
title 多圆并集
mode con:cols=102 lines=42
set /a x=50,y=40
for /l %%a in (-%y% 2 %y%) do (
	set "echo= "
	for /l %%b in (-%x% 1 %x%) do (
		set "echo=!echo! "
		for %%c in ("-42 -3 9" "-15 -26 7" "4 -15 6" "6 1 5" "17 16 4" "32 1 3" "45 4 2") do (
			for /f "tokens=1-3" %%d in ("%%~c") do (
				set /a "r2=(%%b-%%d)*(%%b-%%d)+(%%a-%%e)*(%%a-%%e)"-%%f*%%f*4"
				if !r2! leq 0 set echo=!echo:~,-1!@
			)
		)
	)
	echo;!echo:~1!
)
pause>nul
复制代码

@echo off & setlocal EnableDelayedExpansion
title 随机圆
mode con:cols=102 lines=42
set /a x=50,y=40
for %%a in (2 3 4 5 6 7 9) do (
	set /a a=!random!%%90-45,b=!random!%%60-30
	set c=!c! "!a! !b! %%a"
)
for /l %%a in (-%y% 2 %y%) do (
	set "echo= "
	for /l %%b in (-%x% 1 %x%) do (
		set "echo=!echo! "
		for %%c in (!c!) do (
			for /f "tokens=1-3" %%d in ("%%~c") do (
				set /a "r2=(%%b-%%d)*(%%b-%%d)+(%%a-%%e)*(%%a-%%e)"-%%f*%%f*4"
				if !r2! leq 0 set echo=!echo:~,-1!@
			)
		)
	)
	echo;!echo:~1!
)
pause>nul
复制代码

@echo off&setlocal EnableDelayedExpansion
(for /f "delims==" %%a in ('set') do set %%a=
path %path%)
set /a y=30,x=49
title 奥运五环
mode con:cols=100 lines=32
for /l %%a in (-%y% 2 %y%) do (
	set /a echo=m1=m2=0
	for /l %%b in (-%x% 1 %x%) do (
		set "echo=!echo! "
		for %%c in ("-26 -13 9" "0 -13 9" "26 -12 9" "-13 12 9" "13 12 9") do (
			for /f "tokens=1-3" %%d in ("%%~c") do (
				set /a "test=(((%%b-%%d)*(%%b-%%d)+(%%a-%%e)*(%%a-%%e)-%%f*%%f*4)>>31)-(((%%b-%%d+1)*(%%b-%%d+1)+(%%a-%%e)*(%%a-%%e)-%%f*%%f*4)>>31)","test/=test*test"&&set "echo=!echo:~,-1!@"
			)
		)
	)
	echo;!echo:~1!
) 2>nul
pause>nul
复制代码