批处理计算圆周率
上次给大家带来的是有个小游戏石头剪刀布,这次是用批处理计算圆周率。
前言
为什么要计算圆周率呢,因为圆周率是个无穷不循环小数,精确到每一位都是对计算机算力和内存的考验。计算圆周率也通常是对cpu加压的一种压力方式。随着圆周率pi的精度越来越高,计算的数值量级可达10^8,对cpu的计算精确度以及内存要求更大
提示:以下是本篇文章正文内容,下面案例可供参考
一、圆周率怎么计算?
本文是采用蒙特卡罗法计算的。正方形面积为S1,其内切圆面积为S2,S2/S1=pi/4,所以pi=4*S2/S1.
二、代码展示
代码如下:
@echo off
echo Computer Compute Capability!
echo push any key to start!
pause
echo start: %date:~0,20% %time:~0,10%
echo start: %date:~0,20% %time:~0,10%>record.txt
set counter=2
set n1=1
set n2=1
set ans
set num_all=0
set num_cir=0
set /a tim=0
set /a count=0
:restart
set /a count=count+1
set /a x=%random%%%1000
set /a y=%random%%%1000
set /a sum=x*x+y*y
if %sum% lss 1000000 (
set /a num_cir=num_cir+1
)
set /a num_all=num_all+1
if %count% equ 500 (
Set /a N1= num_cir+num_cir+num_cir+num_cir
set /a N2= num_all
Set /a Max= 30
set /a tim = tim+count
set /a count = 0
goto :begin
:over
Echo over: %date:~0,20% %time:~0,10%
Echo over: %date:~0,20% %time:~0,10% >>record.txt
Echo.The pi result:
Echo.The pi result: >>record.txt
Echo.%ans%
Echo.%ans% >>record.txt
echo count time:%tim%
echo count time:%tim% >>record.txt
)
goto :restart
####-----------------------------------
:begin
set /a TmpAns=%N1%/%N2%
set ans=%TmpAns%.
:: Echo.%ans%.>Answer.txt
<nul set /p "=%Tmpans%."
set /a TmpSub=%N2%*%TmpAns%
set /a N1=%N1%-%TmpSub%
set N1=%N1%0
If NOT "%n1%" == "00" (
if %n1% LSS %N2% (
set N1=%N1%0
set ans=%ans%0
)
) else (
Goto :Finished
)
set count=0
:loop
If "%count%" == "%max%" (
Goto :Finished
)
set /a TmpAns=%N1%/%N2%
set ans=%ans%%TmpAns%
<nul set /p "=%Tmpans%"
set /a TmpSub=%N2%*%TmpAns%
set /a N1=%N1%-%TmpSub%
set N1=%N1%0
If NOT "%n1%" == "00" (
if %n1% LSS %N2% (
set N1=%N1%0
set ans=%ans%0
)
) else (
Goto :Finished
)
set /a count=%count%+1
goto :loop
:finished
cls
set n1=1
set n2=1
goto :over
2.结果
程序运行完会生成一个record.txt。记录了开始时间和每次计算的结束时间和计算次数。
总结
这里对文章进行总结:
首先是要对圆周率计算方式选择,成功将圆周率算出,再将S2/S1进行小数处理。本人使用的AMD RYZEN7 4800H,计算到3.14花费了半个小时,计算次数为13w次,来比比计算小数点后多少位能用时最短和次数最少吧。