From 96490f609bec8ee0b1827faf893d0f6daecc9a53 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Wed, 1 Oct 2014 22:00:11 +0300
Subject: Add pi.awk program in MPFR chapter.

---
 awklib/eg/prog/pi.awk | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 awklib/eg/prog/pi.awk

(limited to 'awklib/eg/prog/pi.awk')

diff --git a/awklib/eg/prog/pi.awk b/awklib/eg/prog/pi.awk
new file mode 100644
index 00000000..3297beff
--- /dev/null
+++ b/awklib/eg/prog/pi.awk
@@ -0,0 +1,18 @@
+# pi.awk --- compute the digits of pi
+#
+# Katie Wasserman, katie@wass.net
+# August 2014
+
+BEGIN {
+    digits = 100000
+    two = 2 * 10 ^ digits
+    pi = two
+    for (m = digits * 4; m > 0; --m) {
+        d = m * 2 + 1
+        x = pi * m
+        div(x, d, result)
+        pi = result["quotient"]
+        pi = pi + two
+    }
+    print pi
+}
-- 
cgit v1.2.3