[数值计算] [分享]批处理使用牛顿迭代法快速求平方根或近似值

batman

@echo off
rem 原理来源于牛顿迭代法，只能计算1-214748，保留两位小数
set /p a=请输入数：
set /a a*=10000,b=a
for /l %%a in (1,1,100) do set /a b=(b+a/b)/2
set /a c=b*b,a/=10000
echo %a%的平方根或近似值为：%b:~,-2%.%b:~-2%
echo %b:~,-2%.%b:~-2%*%b:~,-2%.%b:~-2%=%c:~,-4%.%c:~-4%
pause>nul
复制代码

[ 本帖最后由 batman 于 2009-4-26 03:54 编辑 ]