From b2736cb062f4a9c6cd35890f2ea70a8331f7e6a8 Mon Sep 17 00:00:00 2001
From: Roland Haeder <roland@mxchange.org>
Date: Thu, 14 May 2015 19:37:26 +0200
Subject: [PATCH] Added calculation scripts (I know, they might be wrong) +
 moved some files and all these scripts are provided AS IS AND WITHOUT ANY
 WARRANTY.
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Roland Häder <roland@mxchange.org>
---
 contrib/{chash => }/LICENSE |  0
 contrib/exp/exp1.php        | 20 ++++++++++++++++++++
 contrib/exp/exp2.php        | 28 ++++++++++++++++++++++++++++
 contrib/{ => fib}/fib.php   |  0
 4 files changed, 48 insertions(+)
 rename contrib/{chash => }/LICENSE (100%)
 create mode 100644 contrib/exp/exp1.php
 create mode 100644 contrib/exp/exp2.php
 rename contrib/{ => fib}/fib.php (100%)

diff --git a/contrib/chash/LICENSE b/contrib/LICENSE
similarity index 100%
rename from contrib/chash/LICENSE
rename to contrib/LICENSE
diff --git a/contrib/exp/exp1.php b/contrib/exp/exp1.php
new file mode 100644
index 00000000..6ffd1a00
--- /dev/null
+++ b/contrib/exp/exp1.php
@@ -0,0 +1,20 @@
+<?php
+error_reporting(E_ALL | E_STRICT);
+
+print 'Eat 1 apple at the first day and next day eat twice!' . PHP_EOL;
+
+$years = 100;
+$m = $years / 4;
+
+$totalDays = ($years * 365 + $m);
+
+$x = 1; $y = 0;
+for ($i = 1; $i <= $totalDays; $i++) {
+	$x = bcmul($x, 2);
+	$y = bcadd($y, $x);
+} // END - foreach
+
+print 'After ' . $totalDays . ' days (' . $years . ' years) you have eaten ' . $y . ' fruits.' . PHP_EOL;
+print 'Length:' . strlen($y) . PHP_EOL;
+
+?>
diff --git a/contrib/exp/exp2.php b/contrib/exp/exp2.php
new file mode 100644
index 00000000..22e985d3
--- /dev/null
+++ b/contrib/exp/exp2.php
@@ -0,0 +1,28 @@
+<?php
+error_reporting(E_ALL | E_STRICT);
+
+bcscale(20);
+
+$balance = 1;
+$years = 100;
+$rate = 0.05;
+
+$totalMonths = $years * 12;
+
+print 'Invest ' . $balance . ' EUR and come back later.' . PHP_EOL;
+
+for ($i = 1; $i <= $totalMonths; $i++) {
+	if ($i % 12 == 0) {
+		$rate = bcdiv($rate, 1.01);
+	} // END - if
+
+	$interest = bcmul($balance, $rate);
+	$balance = bcadd($balance, $interest);
+
+	print 'Month ' . $i . ': rate=' . bcmul($rate, 100) . '%,interest=' . $interest . ',balance=' . $balance . PHP_EOL;
+} // END - foreach
+
+print 'After ' . $totalMonths . ' months (' . $years . ' years) you have ' . $balance . ' EUR back.' . PHP_EOL;
+//print 'Length:' . strlen($balance) . PHP_EOL;
+
+?>
diff --git a/contrib/fib.php b/contrib/fib/fib.php
similarity index 100%
rename from contrib/fib.php
rename to contrib/fib/fib.php
-- 
2.30.2