From ac3f2036f4500944650cddc154b6fa11d08eafdf Mon Sep 17 00:00:00 2001
From: Owain Kenway <o.kenway@ucl.ac.uk>
Date: Tue, 12 Dec 2017 17:58:16 +0000
Subject: [PATCH] Version in maxima.

---
 maxima_pi_dir/pi.mac | 8 ++++++++
 maxima_pi_dir/run.sh | 5 +++++
 2 files changed, 13 insertions(+)
 create mode 100644 maxima_pi_dir/pi.mac
 create mode 100755 maxima_pi_dir/run.sh

diff --git a/maxima_pi_dir/pi.mac b/maxima_pi_dir/pi.mac
new file mode 100644
index 0000000..f6f0f2f
--- /dev/null
+++ b/maxima_pi_dir/pi.mac
@@ -0,0 +1,8 @@
+print("Calculating PI using:")$ 
+print(" ", ns, " slices")$
+print("  1 processor")$
+p(n) := (4/n)* sum((1/(1+(((i-0.5)/n)^2))),i,0,n);
+bg:elapsed_real_time()$
+print("Estimated value of PI:", p(ns))$
+ed:elapsed_real_time()$
+print("Time taken: ", ed-bg, " seconds")$
diff --git a/maxima_pi_dir/run.sh b/maxima_pi_dir/run.sh
new file mode 100755
index 0000000..571a7f8
--- /dev/null
+++ b/maxima_pi_dir/run.sh
@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+
+num_threads=${1:-1000000}
+com="ns:${num_threads}$ batchload(\"pi.mac\")$"
+maxima --very-quiet -r="$com"