找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 23519|回复: 2

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

[复制链接]
发表于 2019-1-5 22:57:02 | 显示全部楼层 |阅读模式
本帖最后由 小程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%
复制代码

评分

参与人数 1PB +6 收起 理由
523066680 + 6 还是要加强一波。

查看全部评分

发表于 2019-1-6 12:17:18 | 显示全部楼层
本帖最后由 ivor 于 2019-1-6 19:56 编辑

看看热闹
  1. [Math]::pow(8.0,1/3)
复制代码
发表于 2019-1-6 13:16:06 | 显示全部楼层

看看热闹

本帖最后由 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));
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-18 22:12 , Processed in 0.018762 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表