超级π算法 vb源程序

超级π算法 vb源程序 π的前7000位，你知道吗？ 超级π算法 vb源程序 能够无限制的计算π的值。 你能记住π几位呢？ 下面是π的结果： 3.1415926535897932384626433832795288419716939937510582097494459230781640628620899862803482534211706798214808651328236647093844695558223172535940812848111745028412701938521155596446229489549303819644288109756659334461284756482337867831652712019914564856692346348610454326648213393607260249141273724587066063155881748815209209628292549171536436789259036113305305488204665213841469519415116094330572736575959195309218611738193261179310511854807446237996274956735188575272489122793818301194912983367336244065664386021394946395224737190702179869437027705392171762931767523846748184676694513200056812714526356082778577134275778960917363717872146844090122495343014654958537105792279689258923542019956112129021968643441815981362977477130996051870721134999999837297804995105973173281609631859502445945534690830264252230825334468503526193118817101031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268661300192787661119590921642198938095257201654858632788659361533818279682330195203530185296899577362259941389124972177528347913151557485724245415695950829533116861727855889750983817546374649393192550604092770167113900984882401285836163563707660147118194295559619894676783744944825537977472684710404753464620804668425906949129331367702898915210475216205696602458038151935112533824303558764247496473263914199272604269922796782354781636009341721641219924586315032861829745557067498385054945885869269956909272179750932955321165344987202755960236480665499119881834797753566369874265425278625518184175746728909777727938008164706161452491921732172147723501414419735685481613611573525521334757418494684385233239073941433345477624168625189835694855620992192221842725502542568876717904946016534668049886272327917868578438382796797668145410095388378636095068642251252051173929848960841284886269456042419652852221066118630674427862239194945047123713786960956364371917287467764657573962413890865832645995813390478027590099465764789512694683983525957098258226252248947726719478268482601476990902640136394437455305068203496252451749399651431429809190659259372216964615157098583874105978859597729754989316175392846813826868386894277415599185592524595395943104997252468084598727364469584865383673622262699124608051243884394512441365497627807977156914359977012961608944169486855584840635342207222582848864815845602850601684273945226746767889525213852254995466672782398645659611635488623057745649803559363456817432411251507606947945109659609425228879710893145669136867228748940560115033086179286892087476091782493858900971490967598526136554978189312978482168299894872265880485756401427047755513237964145152374623436454285844479526586782105114135473573952311342716610213596953623144295248493718711014576540359027993440374200731057853906219838744780847848968332144571386875194350643021845319104848100537061468674919278191197939952061419663428754440643745123718192179998391159195618146751426912397489409071864942319615679452809514655022523160388193014209376213785595663893778708339069792077346722182 562599661501421503068038447734549202605414665925201497442857325186660021324340881971048633173464965145390579626856100550810665879699816357473638452571459102897064141109712628439397595156771577423378699360072305587631763594218731251471205329281918261861258673215791984148488291644706095752769572209175671167229109816991528017350671274858322287183529353965725121083579151369882091444210067510334671103141267111369908658516398315197165151168517143765761835155650884909989859982387345528331635507647918535893226185489632132933089857642467525970915481416549859461637180270981994309924488957571282895923233260972997120844335732654893823911932597463667305836041428138830320382490375898524374417029132765618093773444307746921120191302330380197621101100449293215160842444859637669838952286847831235526582131449576857262433441893039686426243417732269780280731891544110104468232527162010526522721116603966655730925471105578537634668206531098965269186256476931257586356620185581729360659876486117910453348850346113657686753249441668396265797877185560845529654126654085306143444318586769751456614680700237877659134401712749470420562235389945613140711270407854733269939081454664645880797270826683634328587856983523580893306575740679545716377525422114955761581402501262285941302164715597925923099796547376125517656751357517829666454779174511299614890304639947132962173443751895735961458901938971311179042978285647503203198691514287808599048019412147221317947647772622414254854540332157185361422881375850430633217518297986622371721591607716692547487389866549494501146546284336639379003976926567214638530673609657120918076383271664162748888078692562902284721040317211860820419000422966171196377921337575114959501566496318629472654736425238177036751590673502350728354056704038674351362222477158915049539844489333096348787693259939780541934144737744184263129868099888687413264721569516239658645730216315981931951673538129741677294786724229246543668009806769282382806899640048243540370141631496589794092432378969070697794223625822168895738379862315937764716512289357861588161755782973523344642815126272373431465319777741631990665541876397929334419521541341899485444734567383162499341913181480927777103863877343177207545654532207770921201905166096284909263601975988281613323166636528619326686336062735676303544776280350450777235547158595487027908143562401451718062464362679456127531813407833336254232783944975382437205835311477119926063813346776879695970309833913077109870408591337464144282277263465947474587847787201927715287317679770715721344473605700733492436931138354931631284042512192565179806941135280131470130478164378851852909285452011658393419656213491434159562586586557055269496520985803385722426482939728584783163057777560688876446248246857926039535277348030482905876075825147470916439613626764492562742042083208566119062545433721315359584568772462901618766795246163425225771954291629919306455377991403734432875262888963995879475729174642635745525479091451357111369419119393251910762082520261879853188770584297259167781314969900919211697173727847684726860849003377242429165135051683233643503895172989392233451722013812869650117844874519612122859937162313017114448464093896449544400619869075485160263275529834918747866808818338512283345850486082503930213321971551843063545500766828294930413776552793975175461395398468339363830474611996653858153842568533862186725233428387112328278921250771262946322956398989893582116745627012183564622013496715188190973038 119849734072396103685466431939509790190699639552453005450580685501956730229219139339185683449039820595512263535361920419947455385938102343955449597783779023742161727111723643435439478221818528624085140066604433258885698670543154706965747458553323233421073015459405165537906866273337995851156257843229882737231989875714159578111963583300594087306812160287649628674464774649159950549737425626901049377819868359381465741268049256487985561453723478673303946883834363465537949864192756387293174872332083760112329911367938627089438799362016295154133714248928307220126901475466847653576164773794675249757155527819653621323926406160136358155907422022031872776052772190556148425551879253034351398442532234157623361064250639049758656271095359194658975141310348227693062474353632569167815478181152843667957061108615331544521274739245449454236828860613408414863776700961271512491404302725386076482363414334623518975766452164137679690314951918575984423919862916421939949072362346468441173940326591840443785133389452574239950829659122850855582157250310712571266830240292952522118726767562204154251618416348475651699981161410102996078386992916032884002691041407928862150784245167090876992821206604183718065355672525325675328612914248776182582976515795984703562226293486003415872298053498965022629174878822734209222245339856264766914905562842503912 有兴趣的背背吧~~ 呵呵~~ 无限不循环的无理数到底有多长呢？ 这里有π的计算源程序。 下面是计算的VBA源程序： Sub 计算π() Dim a&, b&, c&, d&, e&, f&(28010), g& a = 10000 b = 0 c = 28000 While b < c f(b) = a / 5 b = b + 1 Wend Do While c > 0 d = 0 g = c * 2 b = c Do d = d + f(b) * a g = g - 1 f(b) = d Mod g d = Fix(d / g) g = g - 1 b = b - 1 If b = 0 Then Exit Do d = d * b DoEvents Loop c = c - 14 ActiveDocument.Range.InsertAfter (e + d \ a) e = d Mod a Loop End Sub 使用方法：打开word，按Alt+F11 键，然后将以上全部红色部分复制粘贴到打开的VBE窗体中， 然后将鼠标定位到刚刚粘贴的区域中，按F5键，你就看到效果了。 下面是VB源程序： Option Explicit Dim a&, b&, c&, d&, e&, f&(28010), g& Private Sub Command1_Click() While b < c f(b) = a / 5 b = b + 1 Wend Do While c > 0 d = 0 g = c * 2 b = c Do d = d + f(b) * a g = g - 1 f(b) = d Mod g d = Fix(d / g) g = g - 1 b = b - 1 If b = 0 Then Exit Do d = d * b DoEvents Loop c = c - 14 Text1 = Text1 & (e + d \ a) e = d Mod a Loop End Sub Private Sub Form_Load() a = 10000 b = 0 c = 28000 'Text1.MultiLine = True ' Text1.ScrollBars = 2 Text1.Text = "" End Sub π的计算方法： 圆周率 圆周率是指平面上圆的周长与直径之比 （ratio of the circumference of a circle to the diameter） 。用符号π（读音：pài） 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 示。中国古代有圆率、周率、周等名称。（在一般计算时π=3.14） 圆周率的历史 古希腊欧几里得《几何原本》（约公元前3世纪初）中提到圆周率是常数，中国古算书《周髀算 经》（ 约公元前2世纪）中有“径一而周三”的记载，也认为圆周率是常数。历史上曾采用过圆周 率的多种近似值，早期大都是通过实验而得到的结果，如古埃及纸草书（约公元前1700）中取π=（4/3）^4?3.1604 。第一个用科学方法寻求圆周率数值的人是阿基米德，他在《圆的度量》（公 元前3世纪）中用圆内接和外切正多边形的周长确定圆周长的上下界，从正六边形开始，逐次加 倍计算到正96边形，得到(3+(10/71))<π<(3+(1/7)) ，开创了圆周率计算的几何方法（亦称古典 方法，或阿基米德方法），得出精确到小数点后两位的π值。 中国数学家刘徽在注释《九章算术》（263年）时只用圆内接正多边形就求得π的近似值，也得出精确到两位小数的π值，他的方法被后人称为割圆术。他用割圆术一直算到圆内接正192边形。 南北朝时代数学家祖冲之进一步得出精确到小数点后7位的π值（约5世纪下半叶），给出不足 近似值3.1415926和过剩近似值3.1415927，还得到两个近似分数值，密率355/113和约率22/7。其中的密率在西方直到1573才由德国人奥托得到，1625年发表于荷兰工程师安托尼斯的著作中， 欧洲称之为安托尼斯率。 阿拉伯数学家卡西在15世纪初求得圆周率17位精确小数值，打破祖冲之保持近千年的纪录。 德国数学家柯伦于1596年将π值算到20位小数值，后投入毕生精力，于1610年算到小数后35位数，该数值被用他的名字称为鲁道夫数。 1579年法国数学家韦达给出π的第一个解析表达式。 此后，无穷乘积式、无穷连分数、无穷级数等各种π值表达式纷纷出现，π值计算精度也迅速增加。1706年英国数学家梅钦计算π值突破100位小数大关。1873 年另一位英国数学家尚可斯将 π值计算到小数点后707位，可惜他的结果从528位起是错的。到1948年英国的弗格森和美国 的伦奇共同发表了π的808位小数值，成为人工计算圆周率值的最高纪录。 电子计算机的出现使π值计算有了突飞猛进的发展。1949年美国马里兰州阿伯丁的军队弹道研 究实验室首次用计算机（ENIAC）计算π值，一下子就算到2037位小数，突破了千位数。1989年美国哥伦比亚大学研究人员用克雷－2型和IBM－VF型巨型电子计算机计算出π值小数点后4.8亿位数，后又继续算到小数点后10.1亿位数，创下新的纪录。 除π的数值计算外，它的性质探讨也吸引了众多数学家。1761年瑞士数学家兰伯特第一个证明π是无理数。1794年法国数学家勒让德又证明了π2也是无理数。到1882年德国数学家林德曼首次证明了π是超越数，由此否定了困惑人们两千多年的「化圆为方」尺规作图问题。还有人对π的特征及与其它数字的联系进行研究。如1929年苏联数学家格尔丰德证明了eπ 是超越数等等。 圆周率的计算 古今中外，许多人致力于圆周率的研究与计算。为了计算出圆周率的越来越好的近似值，一代代 的数学家为这个神秘的数贡献了无数的时间与心血。 十九世纪前，圆周率的计算进展相当缓慢，十九世纪后，计算圆周率的世界纪录频频创新。整个 十九世纪，可以说是圆周率的手工计算量最大的世纪。 进入二十世纪，随着计算机的发明，圆周率的计算有了突飞猛进。借助于超级计算机，人们已经 得到了圆周率的2061亿位精度。 历史上最马拉松式的计算，其一是德国的Ludolph Van Ceulen，他几乎耗尽了一生的时间，计算 到圆的内接正262边形，于1609年得到了圆周率的35位精度值，以至于圆周率在德国被称为 Ludolph数；其二是英国的William Shanks，他耗费了15年的光阴，在1874年算出了圆周率的小数点后707位。可惜，后人发现，他从第528位开始就算错了。 把圆周率的数值算得这么精确，实际意义并不大。现代科技领域使用的圆周率值，有十几位已经 足够了。如果用Ludolph Van Ceulen算出的35位精度的圆周率值，来计算一个能把太阳系包起 来的一个圆的周长，误差还不到质子直径的百万分之一。以前的人计算圆周率，是要探究圆周率 是否循环小数。自从1761年Lambert证明了圆周率是无理数，1882年Lindemann证明了圆周率是超越数后，圆周率的神秘面纱就被揭开了。 现在的人计算圆周率, 多数是为了验证计算机的计算能力，还有，就是为了兴趣。 圆周率的计算方法 古人计算圆周率，一般是用割圆法。即用圆的内接或外切正多边形来逼近圆的周长。Archimedes用正96边形得到圆周率小数点后3位的精度；刘徽用正3072边形得到5位精度；Ludolph Van Ceulen用正262边形得到了35位精度。这种基于几何的算法计算量大，速度慢，吃力不讨好。 随着数学的发展，数学家们在进行数学研究时有意无意地发现了许多计算圆周率的公式。下面挑 选一些经典的常用公式加以介绍。除了这些经典公式外，还有很多其它公式和由这些经典公式衍 生出来的公式，就不一一列举了。 1、 Machin公式 [这个公式由英国天文学教授John Machin于1706年发现。他利用这个公式计算到了100位的圆周率。Machin公式每计算一项可以得到1.4位的十进制精度。因为它的计算过程中被乘数和被除 数都不大于长整数，所以可以很容易地在计算机上编程实现。 Machin.c 源程序 还有很多类似于Machin公式的反正切公式。在所有这些公式中，Machin公式似乎是最快的了。虽然如此，如果要计算更多的位数，比如几千万位，Machin公式就力不从心了。下面介绍的算法， 在PC机上计算大约一天时间，就可以得到圆周率的过亿位的精度。这些算法用程序实现起来比 较复杂。因为计算过程中涉及两个大数的乘除运算，要用FFT(Fast Fourier Transform)算法。FFT可以将两个大数的乘除运算时间由O(n2)缩短为O(nlog(n))。 2、 Ramanujan公式 1914年，印度数学家Srinivasa Ramanujan在他的 论文 政研论文下载论文大学下载论文大学下载关于长拳的论文浙大论文封面下载 里发表了一系列共14条圆周率的计算公式，这是其中之一。这个公式每计算一项可以得到8位的十进制精度。1985年Gosper用这个公式计算到了圆周率的17,500,000位。 1989年，David & Gregory Chudnovsky兄弟将Ramanujan公式改良成为： 这个公式被称为Chudnovsky公式，每计算一项可以得到15位的十进制精度。1994年Chudnovsky兄弟利用这个公式计算到了4,044,000,000位。Chudnovsky公式的另一个更方便于计算机编程 的形式是： 3、AGM(Arithmetic-Geometric Mean)算法 Gauss-Legendre公式： 这个公式每迭代一次将得到双倍的十进制精度，比如要计算100万位，迭代20次就够了。1999年9月Takahashi和Kanada用这个算法计算到了圆周率的206,158,430,000位，创出新的世界纪录。 4、Borwein四次迭代式： 这个公式由Jonathan Borwein和Peter Borwein于1985年发表，它四次收敛于圆周率。 这个公式简称BBP公式，由David Bailey, Peter Borwein和Simon Plouffe于1995年共同发表。它打破了传统的圆周率的算法，可以计算圆周率的任意第n位，而不用计算前面的n-1位。