[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
回lhjoanna版主,可能是我的言语没有注意,还请兄弟原谅。但对于超大数来讲,要构建素数表,永远都会存在效率问题,这就
是我的本意。
***共同提高***

TOP

思路:利用牛顿迭代法快速求出数的平方根近似值,从而最大程度上减少循环次数,算法如下:
    首先我们设要求的这个数为a,它的平方根为x;然后我们一开始令x=a;然后我们进入一个
循环,不断的令x=(x+a/x)/2,就是令x等于 x和a/x的平均值,这样迭代了10次左右就可以得到a
的平方根x的近似值。
因此将本人12楼的代码再次提速如下:
  1. @echo off&setlocal enabledelayedexpansion
  2. rem write by batman on 2009-4-26 3:20 of bbs.bathome.net
  3. set /p a=请输入一个大于6的偶数:
  4. set "t=%time:~,-3%"
  5. for /l %%a in (3,2,%a%) do (
  6.     set /a b=a-%%a,n=0,c=a&call :lp %%a !b!
  7.     if !n! equ 2 (
  8.        echo 开始时间:%t% 结束时间:!time:~,-3!
  9.        echo %a%=%%a+!b!&goto next
  10.     )
  11. )
  12. :next
  13. pause>nul&goto :eof
  14. :lp
  15. for /l %%a in (1,1,10) do set /a c=(c+a/c)/2
  16. for /l %%a in (3,2,%c%) do (
  17.      if %%a neq %1 set /a d=%1%%%%a
  18.      if !d! equ 0 goto :eof
  19. )
  20. set /a n+=1
  21. if "%2" neq "" shift&goto lp
复制代码

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

评分人数

***共同提高***

TOP

支持版主一下,谢谢了。

TOP

论坛逛得不多,但是每次来,都能看到各大高手的身手。。拜服
收入分四种:狂劳不得,多劳少得,少劳多得,不劳狂得。还好,我是第二种!

TOP

看来我还得好好学学数学哦。顶下各位版主了!真是不积小流,无以成江海啊!
学海无涯

TOP

  1. 18楼代码
  2. 请输入一个大于6的偶数:1000000
  3. 开始时间:22:04:42 结束时间:22:04:42
  4. 1000000=17+999983
复制代码
  1. 9楼代码
  2. 请输入一个整数(按i使用内置测试集,直接按回车退出): 999983
  3. 999983 是合数
复制代码

TOP

回复 22楼 的帖子

999983应该怎样分解质因数?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

原帖由 lhjoanna 于 2009-4-24 22:24 发表
先构造素数表,感觉用批来构造素数表效率很低啊,哪位高手如果能用位来实现就好了。
我也来写一个,先构造素数表,效率问题,只构造了10000以内的。@echo off&setlocal enabledelayedexpansion
echo.&echo 正在构建 ...
输的结果有问题啊!把所有数之和等于所输入偶数的结果都输出了,修改一下更好

TOP

虽然发现运算出现部分错误结果,但是还是很佩服各位老大这种高度。

TOP

电脑太发达了。批处理太强悍了。牛人太多了。

TOP

新手埋头学习中。

TOP

老师节日快乐,有个家伙老动我电脑,我怎么知道什么时间,有人在我不在时登陆过我电脑,即使是从锁定后登陆界面登陆的?

TOP

返回列表