标题: 特大数字运算的解决办法 [打印本页]
作者: youxi01 时间: 2006-11-19 02:20 标题: 特大数字运算的解决办法
大家都知道，在批处理中，无法对过大的数字进行运算，那我们如何突破此限制呢？解决办法希望大家跟帖讨论......
我这里提供我的一种思路，我把它叫“列竖式法”，因为它跟小学的“列竖式”很相似，就是分别拿下面的数字中的每个数字跟上面的数据相乘，然后把所以的数据加起来，从而得到答案，此法就是据此而来......
测试代码：
@echo off
setlocal enabledelayedexpansion
echo 正在进行计算...
echo.
set str1=123456789101112131415161718192021222324252627282930
set str2=123456789101112131415161718192021222324252627282930
echo %str1%
echo ×
echo %str2%
call :test %str1% "" ex
call :test %str2% _ ex_
for /l %%a in (0 1 %ex%) do (
for /l %%b in (0 1 %ex_%) do (
set /a mult=!num%%a!*!num%%b_!
set /a sum=%%a+%%b+1
rem 将所有的位数相同的数据全部加起来：例如，十位上的数字和十位上的数字相加；
set /a result!sum!+=!mult!
))
for /l %%a in (10000 -1 1) do (
if defined result%%a (
rem 定义前一位数字变量
set /a last=%%a-1
set var=!result%%a!
rem 如果该数大于10，则进位；
if !result%%a! GEQ 10 set /a result!last!+=!var:~0,-1!
set result=!var:~-1!!result!
)
)
echo.
echo =%result%
pause>nul
:test
for /l %%i in (0 1 100) do (
set var=%1
if "!var:~%%i,1!"=="" set /a %3=%%i-1 & goto :eof
rem 分别获得数字的千百万等位数；
set /a num%%i%2=!var:~%%i,1!)
说明：上述代码目前支持100位以内的数字相乘；对于以上代码起码还有另外的改进方案，可以提高运行效率，就是以前本人在另外一个帖子《用批处理作趣味数学题提过的，分段计算法，推荐使用5个数字分成一段，这样的话就可以避免大量的重复而频繁的计算，从而提高运行效率，至于后一种计算方法，还在测试阶段。setlocal enabledelayedexpansion
echo 正在进行计算...
echo.
set str1=123456789101112131415161718192021222324252627282930
set str2=123456789101112131415161718192021222324252627282930
echo %str1%
echo ×
echo %str2%
call :test %str1% "" ex
call :test %str2% _ ex_
for /l %%a in (0 1 %ex%) do (
for /l %%b in (0 1 %ex_%) do (
set /a mult=!num%%a!*!num%%b_!
set /a sum=%%a+%%b+1
rem 将所有的位数相同的数据全部加起来：例如，十位上的数字和十位上的数字相加；
set /a result!sum!+=!mult!
))
for /l %%a in (10000 -1 1) do (
if defined result%%a (
rem 定义前一位数字变量
set /a last=%%a-1
set var=!result%%a!
rem 如果该数大于10，则进位；
if !result%%a! GEQ 10 set /a result!last!+=!var:~0,-1!
set result=!var:~-1!!result!
)
)
echo.
echo =%result%
pause>nul
:test
for /l %%i in (0 1 100) do (
set var=%1
if "!var:~%%i,1!"=="" set /a %3=%%i-1 & goto :eof
rem 分别获得数字的千百万等位数；
set /a num%%i%2=!var:~%%i,1!)
以上只是我的一种解决思路，希望大家批评指正！
作者: vkill 时间: 2006-11-19 02:35
记得那个挑战批处理运算中这些都有提到
作者: youxi01 时间: 2006-11-19 03:06
看样子，我这新手又开错了帖子了！
原来已经有了讨论了！
http://www.cn-dos.net/forum/view ... =%E5%8F%82%E4%B8%8E
不过以上的计算方法，有缺点（暂不支持浮点数计算），但更有优点，在处理特别大的数字时，运行效率要高很多。
在同样的情况之下，以上帖子提供的代码计算123456789101112131415161718192021222324252627282930*123456789101112131415161718192021222324252627282930要好久，但以上代码两三秒就搞定
作者: zouzhxi 时间: 2006-11-19 04:00
如果把它改成除法，能算出圆周率吗PI=3.14……
作者: 不得不爱 时间: 2006-11-19 04:49
怎么我用楼主的代码他说是
找不到操作数。
找不到操作数。
啊
作者: youxi01 时间: 2006-11-19 06:48
我这里没有问题哦！
至于圆周率的计算，用批处理，有难度~我觉得是这样。
作者: electronixtar 时间: 2006-11-19 06:48
直接模拟汇编，用位运算可能是个好的思路
作者: 不得不爱 时间: 2006-11-19 06:58
原来是set /a num%%i%2=!var:~%%i,1!有错误，应该是：
set /a num%%i%~2=!var:~%%i,1!
作者: youxi01 时间: 2006-11-19 07:11
想不明白，为什么“set /a num%%i%~2=!var:~%%i,1! “可以防止部分错误呢？
作者: 不得不爱 时间: 2006-11-19 22:49
因为call :test %str1% "" ex里的第二个参数是""啊，set /a num%%i%~2=!var:~%%i,1!会自动去掉%2里的""，否则set /a num%%i%2=!var:~%%i,1!就相当于set /a num%%i""=!var:~%%i,1!,这样能不出错吗？
作者: 不得不爱 时间: 2006-11-19 22:54
另外进位应该从最底位开始，否则也会出错，因为有时会发生连续多次进位，那你那种算法就会出错
作者: 6622186 时间: 2007-4-5 11:27
65536 乘以 65536 会把每一位数字截去.
作者: bjsh 时间: 2007-4-5 22:15
我这这里的第26楼写过一段除法的;
被除数理论上可以任意大;最后小数点后精确到的位数理论上可以是任意多位;不过试过100万位确实不行;会提示输出过长;
不过始终没有解决 除数大于 10的九次方的情况
http://www.cn-dos.net/forum/view ... ghlight=&page=2
作者: flyinspace 时间: 2007-4-5 23:36
呵呵，的确。模拟汇编会更快的计算。方法也更简单。