@echo off &mode con cols=60 lines=32
title made by hi.baidu.com/523066680
call :setup oo.vbs
   ::开始调用vbs,事实上(3,1,13)原为3,2,13,不过我发现1也不错.
   for /l %%a in (3,1,13) do (cls &cscript oo.vbs //i %%a |more +2)
   pause
   exit
::说明,以下生成代码为"打包批处理.bat"打包oo.vbs的生成码.(本人是在宣传作品啊~)
:setup
set "act="
for /f "delims= eol=" %%a in (%~nx0) do (
  if "%%a"=="::%* end" (goto :eof)
  if defined act echo,%%a>>"%*"
  if "%%a"=="::%*" errcommand>"%*" 2>nul&set act=act
)
::oo.vbs
set i=wscript.arguments
wscript.echo Dotx2(i(0))
wscript.sleep 800
function Dotx2(n)
   for y = n to -n step -1
       x=sqr((n^2-y^2))*2
       if x>0 then x=x-1
       Dotx=space(x) & "*" &space(27-x)
       Dotx2=Dotx2 &StrReverse(Dotx) &Dotx & vbcrlf
   next
   Dotx2=space((14-n)*60) & Dotx2
end function
::oo.vbs end
复制代码

for y = 5 to -5 step -1
x=sqr((25-y^2))*2         '设定公式为 x^2+y^2=25 即半径为5
if x>0 then x=x-1
Dotx=space(x) & "*" &space(10-x)
Dotx2=Dotx2 &StrReverse(Dotx) &Dotx & vbcrlf
next
msgbox Dotx2
复制代码