标题: [挑战]批处理视觉-变大变小的圆形+同步变色 [打印本页]
作者: 523066680 时间: 2008-7-14 10:10 标题: [挑战]批处理视觉-变大变小的圆形+同步变色
以上题目只是最终版的
当前我个人需要解决的问题：批处理如何开根？
暂时思路 ：确定圆的标准式方程 （x-a）^2+(y-b)^2=n^2
n为半径 半径大小设为渐渐变大的变量，而a,b则是圆心坐标
一些思路参考这个帖子：【视觉类】从中间逐渐扩大再变小的方形框框+变色
作者: HAT 时间: 2008-7-14 10:49
有人贴过开方的代码，我来转载一下吧：）
@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
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
作者: bat-zw 时间: 2008-7-14 12:22
感觉这个很难，真的还不是一般的难，cmd中的换行将制约最小的一个圆的形状。看看下面这段模拟的弧就知道了：
o
o
o
o
o
o
[ Last edited by zw19750516 on 2008-7-14 at 12:31 PM ]o
o
o
o
o
作者: 523066680 时间: 2008-7-16 08:19
看了一下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 ]