中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [挑战]批处理视觉-变大变小的圆形+同步变色
作者:
标题: [挑战]批处理视觉-变大变小的圆形+同步变色 上一主题 | 下一主题
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『楼 主』:  [挑战]批处理视觉-变大变小的圆形+同步变色

以上题目只是最终版的 当前我个人需要解决的问题：批处理如何开根？ 暂时思路 ：确定圆的标准式方程 （x-a）^2+(y-b)^2=n^2 n为半径 半径大小设为渐渐变大的变量，而a,b则是圆心坐标 一些思路参考这个帖子：【视觉类】从中间逐渐扩大再变小的方形框框+变色


2008-7-14 10:10
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复
HAT
版主





积分 9023
发帖 5017
注册 2007-5-31
状态 离线
『第 2 楼』:  

有人贴过开方的代码，我来转载一下吧：）
@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




2008-7-14 10:49
查看资料  发短消息 网志   编辑帖子  回复  引用回复
bat-zw
金牌会员

永远的学习者


积分 3105
发帖 1276
注册 2008-3-8
状态 离线
『第 3 楼』:  

感觉这个很难，真的还不是一般的难，cmd中的换行将制约最小的一个圆的形状。看看下面这段模拟的弧就知道了：
                               o
                           o
                         o
                        o
                       o
                       o
[ Last edited by zw19750516 on 2008-7-14 at 12:31 PM ]




批处理之家新域名：www.bathome.net
2008-7-14 12:22
查看资料  发送邮件  发短消息 网志  OICQ (841615149)  编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 4 楼』:  

看了一下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 ]


2008-7-16 08:19
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (523066680)  编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023