[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[数值计算] 【代码分享】批处理整数开平方

本帖最后由 小程936 于 2019-1-5 23:01 编辑

用法:添加至bat末尾,调用方法call :s 数字
输出值为变量b和errorlevel
  1. :s
  2. set /a a=%1,b=a/2
  3. for /l %%a in (1,1,15) do set /a b=(b+a/b)/2
  4. exit /b %b%
复制代码
bug修正版
  1. 修正bug版
  2. :s
  3. if "#%1"=="#"  echo 未输入&set b=&exit /b
  4. set /a a=%1,b=a/2
  5. if "%a:~0,1%"=="-" echo 负数&set b=&exit /b
  6. if "%a%"=="0" set b=0&exit /b 0
  7. for /l %%a in (1,1,15) do set /a b=(b+a/b)/2
  8. exit /b %b%
复制代码
经测试,在±21亿的范围内,15次循环b=(b+a/b)/2就足以得出整数结果(截尾取整)。

如果需要计算小数,精度要求不高,也可以勉强做到。比如保留二位有效数字(截尾取整)
  1. set /p a=开平方数
  2. set /a a*=10000,b=a/2
  3. for /l %%a in (1,1,15) do set /a b=(b+a/b)/2
  4. echo %b:~0,-2%.%b:~-2%
复制代码
1

评分人数

本帖最后由 ivor 于 2019-1-6 19:56 编辑

看看热闹
  1. [Math]::pow(8.0,1/3)
复制代码

TOP

看看热闹

本帖最后由 yhcfsr 于 2019-1-6 13:48 编辑

  1. @set @n=0/*&echo off
  2. cscript -nologo -e:jscript "%~f0"
  3. pause&exit /b */
  4. WSH.Echo(Math.pow(8.0,1/3));
复制代码
QQ 33892006

TOP

返回列表