批处理视觉-变大变小的圆形+同步变色 - 中国DOS联盟论坛

以上题目只是最终版的
当前我个人需要解决的问题：批处理如何开根？

暂时思路：确定圆的标准式方程（x-a）^2+(y-b)^2=n^2
n为半径半径大小设为渐渐变大的变量，而a,b则是圆心坐标

一些思路参考这个帖子：【视觉类】从中间逐渐扩大再变小的方形框框+变色

有人贴过开方的代码，我来转载一下吧：）

@echo off
set a=2
set/p p=请输入需要开平方的数字(0~321063之间)
set/p w=请输入精确到小数点后几位
:lp
set /a a=(p/a+a)/2,n=a*a,y=p-n
set r=%a%
if %n% gtr %p% goto lp
if %n% equ %p% goto ok
:lp1
set/a b+=1,m=0,x=r*20,y*=100
:lp2
set/a m+=1,s=(x+m)*m
if %s% gtr %y% goto lp3
goto lp2
:lp3
set/a m-=1,s=(x+m)*m,y-=s
set r=%r%%m%&set t=%t%%m%
if %w% equ %b% goto ok
goto lp1
:ok
if not "%t%" == ""  set a=%a%.%t%  
echo %p%开平方结果: %a%
pause>nul
goto :eof

感觉这个很难，真的还不是一般的难，cmd中的换行将制约最小的一个圆的形状。看看下面这段模拟的弧就知道了：

[ Last edited by zw19750516 on 2008-7-14 at 12:31 PM ]

看了一下2楼的，现在才觉得dos好像真的不能直接开根啊……
有没有外部命令文件可以的？

看来会很麻烦了……不过如果类似这样的也算
00
0 0
0 0
0 0
0 0
即使是自己编辑也会有重合或位置相同的小部分。所以允许重合。不过还是很难……

在网吧（没时间啊……）临时写了一些东西和题目关系不太大，不过觉得有用
还是写下来……下次继续

@echo off
setlocal enabledelayedexpansion
set zero=00000000000000000000000000000000000000
set kong=%zero:0= %
:a
set /p n1="输入一个整数，开根后的数将约为整数:"
for /l %%a in (1,1,100) do (
set /a n2=%%a*%%a
if !n2! equ !n1! (set n3=%%a &goto unit2)
)

:unit2
echo %n3%
for %%n in (%n3%) do (echo,!kong:~0,%%n!00)
pause
goto a

--------------------------------------------------------------------------------
越想越晕这个标题有的想喽……回家慢慢想……说不定能给出新的
圆的方程那就牛逼拉

[ Last edited by 523066680 on 2008-7-16 at 09:23 AM ]

第1楼　523066680	发表于 2008-07-14 10:10
银牌会员　发帖 1,133　积分 2,362
[挑战]批处理视觉-变大变小的圆形+同步变色以上题目只是最终版的当前我个人需要解决的问题：批处理如何开根？暂时思路：确定圆的标准式方程（x-a）^2+(y-b)^2=n^2 n为半径半径大小设为渐渐变大的变量，而a,b则是圆心坐标一些思路参考这个帖子：【视觉类】从中间逐渐扩大再变小的方形框框+变色

第2楼　HAT	发表于 2008-07-14 10:49
版主　发帖 5,017　积分 9,023
有人贴过开方的代码，我来转载一下吧：） @echo off set a=2 set/p p=请输入需要开平方的数字(0~321063之间) set/p w=请输入精确到小数点后几位 :lp set /a a=(p/a+a)/2,n=aa,y=p-n set r=%a% if %n% gtr %p% goto lp if %n% equ %p% goto ok :lp1 set/a b+=1,m=0,x=r20,y=100 :lp2 set/a m+=1,s=(x+m)m if %s% gtr %y% goto lp3 goto lp2 :lp3 set/a m-=1,s=(x+m)*m,y-=s set r=%r%%m%&set t=%t%%m% if %w% equ %b% goto ok goto lp1 :ok if not "%t%" == "" set a=%a%.%t% echo %p%开平方结果: %a% pause>nul goto :eof

第3楼　bat-zw	发表于 2008-07-14 12:22
金牌会员　发帖 1,276　积分 3,105
感觉这个很难，真的还不是一般的难，cmd中的换行将制约最小的一个圆的形状。看看下面这段模拟的弧就知道了： o o o o o o [ Last edited by zw19750516 on 2008-7-14 at 12:31 PM ]

第4楼　523066680	发表于 2008-07-16 08:19
银牌会员　发帖 1,133　积分 2,362
看了一下2楼的，现在才觉得dos好像真的不能直接开根啊…… 有没有外部命令文件可以的？看来会很麻烦了……不过如果类似这样的也算 00 0 0 0 0 0 0 0 0 即使是自己编辑也会有重合或位置相同的小部分。所以允许重合。不过还是很难…… 在网吧（没时间啊……）临时写了一些东西和题目关系不太大，不过觉得有用还是写下来……下次继续 @echo off setlocal enabledelayedexpansion set zero=00000000000000000000000000000000000000 set kong=%zero:0= % :a set /p n1="输入一个整数，开根后的数将约为整数:" for /l %%a in (1,1,100) do ( set /a n2=%%a%%a if !n2! equ !n1! (set n3=%%a &goto unit2) ) :unit2 echo %n3% for %%n in (%n3%) do (echo,!kong:~0,%%n!00) pause goto a -------------------------------------------------------------------------------- 越想越晕这个标题有的想喽……回家慢慢想……说不定能给出新的圆的方程那就牛逼拉 [ Last edited by 523066680 on 2008-7-16 at 09:23 AM* ]