Python 板


LINE

上一篇的程式稍微改變一下可以用來計算圓周率π (根本改超多) 使用 Chudnovsky 公式 https://en.wikipedia.org/wiki/Pi#Rapidly_convergent_series R(a,b)*P(a,b) 定義 S(a,b) = ------------- Q(a,b) (6b)! (6a)! R(a,b) = ----- ÷ ----- (第 a+1 項到第 b 項提出來的乘數) (3b)! (3a)! b! Q(a,b) = (----)^3*(640320)^(3*(b-a)) (第 a+1 項到第 b 項的分母) a! P(a,b) = 第 a+1 項到第 b 項的 (13591409+545140134*k) 分子部份通分後的和 接著就和上一篇差不多,把級數對半切再對半切再對半切再對半切...... 最後再一層一層通分合併起來即可。 ☆ ☆ ☆ 其實我還沒跑完十億位的計算,估計要一兩個小時 (被打) 用我的電腦計算一億位大約六分半鐘,消耗 1.2GB RAM (註:後來跑完了,耗時 1 小時 28 分鐘,RAM 用量最大值 12GB) 以下是程式碼,沒給命令列參數的話預設一樣是十萬位數。 如果要計算十億位,命令列參數像這樣指定: $ python3 pi.py 1000000000 注意要用 python3,假如出現語法錯誤 SyntaxError: invalid syntax 可能是使用到 python 2,可以用 python --version 確認版本 UNIX 系的作業系統有 time 指令可以測速 $ time python3 pi.py 1000000000 程式碼一樣放在 ideone.com 方便大家複製貼上, 但因為網站不提供 gmpy2 module 而無法執行。 # https://ideone.com/jAiHdM # # pi.py - Calculate Pi # import sys import math import gmpy2 from gmpy2 import mpfr from gmpy2 import mpz # # Global Variables # count = 0 total = 0 old_p = 0 # # Show Progress # def progress(): global count, old_p, total p = int(math.floor(1000*count/total+0.5)) if (p > old_p): old_p = p g = int(math.floor(72.5*count/total+0.5)) for c in range(72): if (c<g): print("H", sep="", end="") else: print("-", sep="", end="") print(" ", p/10, "%\r", sep="", end="", flush=True) if (count == total): print("\n", sep="", end="") # # Write digit string # def write_string(digit_string): fd = open("pi-py.txt", mode="w") fd.write(" pi = ") for c in range(len(digit_string)): if ((c != 1) and (c % 50 == 1)): fd.write("\t") fd.write(digit_string[c]) if (c == 0): fd.write(".") elif ((c % 1000) == 0): fd.write(" << ") fd.write(str(c)) fd.write("\r\n") elif ((c % 500) == 0): fd.write(" <\r\n") elif ((c % 50) == 0): fd.write("\r\n") elif ((c % 5) == 0): fd.write(" ") # Final new-line if ((c%50) != 0): fd.write("\r\n") fd.close() # # Recursive funcion. # def s(a, b, max): global count m = math.ceil((a + b) / 2) if (b - a == 1): if (a == 0): r = 120 # 6! q = mpz(640320**3) p = gmpy2.sub( gmpy2.mul(q, 13591409), gmpy2.mul(r, 13591409+545140134) ) else: r = mpz(8 * (a*6+1) * (a*6+3) * (a*6+5)) q = mpz((b*640320)**3) if ((b%2) == 0): p = gmpy2.mul(mpz(13591409 + b*545140134), r) else: p = gmpy2.mul(mpz(-13591409 - b*545140134), r) else: p1, q1, r1 = s(a, m, max) p2, q2, r2 = s(m, b, max) # Merge p = gmpy2.add( gmpy2.mul(p1, q2), gmpy2.mul(p2, r1) ) q = gmpy2.mul(q1, q2) if (b != max): r = gmpy2.mul(r1, r2) else: r = 0 count += 1 progress() return p, q, r; # # Calculate e # def calc_pi(digits): global total d = digits+1 n_terms = math.ceil(d*math.log(10)/(3*math.log(53360))) precision = math.ceil(d * math.log2(10)) + 4; print("d = ", d, ", n = ", n_terms, ", precision = ", precision, sep="") gmpy2.get_context().precision = precision gmpy2.get_context().emax = 1000000000000; print("Real precision =", gmpy2.get_context().precision) total = n_terms * 2 - 1 # Max progress p, q, r = s(0, n_terms, n_terms) q = gmpy2.mul(q, 426880) print("Recursion done. Processing division.") ef = gmpy2.div(q, p) ef = gmpy2.mul(ef, gmpy2.sqrt(10005)) print("Division done. Converting to digits.") estr, exp, prec = mpfr.digits(ef) estr = estr[0:d] print("Writing to file.") write_string(estr); # # main program # argc = len(sys.argv) if (argc >= 2): digits = int(sys.argv[1]) else: digits = 100000 calc_pi(digits) # End of pi.py -- 桃樂絲: 可是, 如果你沒有頭腦, 為什麼會說話? 稻草人: ㄝ, 我也不知... 但是有些人沒有頭腦也能說超~多話呢。 --



※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.250.31.177 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Python/M.1614076108.A.9EC.html ※ 編輯: Schottky (111.250.31.177 臺灣), 02/23/2021 19:25:34







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:BuyTogether站內搜尋

TOP