pi.zip |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
bugmans
高階會員 發表:95 回覆:322 積分:188 註冊:2003-04-12 發送簡訊給我 |
下載位置http://www.programmers.net/mirrors/DSP/ftp/d20free/ , 全文搜尋pi.zip
有附執行檔,就只是顯示pi近似值而已,但真正有趣的是piex.pas其中一段 This program, which produces the first 1000 digits of PI, A spigot algorithm for the Digits of pi,Stanley Rabinowitz and Stan Wagon, Am. Math. Monthly, March 1995, 195-203 http://web.comlab.ox.ac.uk/oucl/work/jeremy.gibbons/publications/spigot.pdf 真正好玩的是這篇http://www.matpack.de/Info/Mathematics/Pi.html 原來網路上所流傳精簡的程式碼就能算pi的近似值其背後的原理就是如此 類似問題 http://www.gzjzes.net/forum/Display.asp?ID=661&Board_ID=43 討論的網友還有提供另一篇文章Spigot algorithms by Jeremy Gibbons有關演算法的介紹 http://delphi.ktop.com.tw/board.php?cid=168&fid=923&tid=20583 http://delphi.ktop.com.tw/board.php?cid=168&fid=912&tid=67313 |
bugmans
高階會員 發表:95 回覆:322 積分:188 註冊:2003-04-12 發送簡訊給我 |
http://www.codecodex.com/wiki/index.php?title=Digits_of_pi_calculation
這裡有其他語言的寫法 http://www.google.com/search?client=opera&rls=zh-tw&q="printf("%.4d",e+d/a)"&sourceid=opera&ie=utf-8&oe=utf-8 原理介紹-外星人計算Pi的程序 int a=10000,b,c=2800,d,e,f[2801],g; main() { for(;b-c;) f[b ]=a/5; for(;d=0,g=c*2;c -=14,printf("%.4d",e d/a),e=d%a) for(b=c; d =f[b]*a,f[b]=d%--g,d/=g--,--b; d*=b); } |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |