From 07247e6b4d7d4656c9db15583871cc6ae2651b2a Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 14 Sep 2012 19:45:14 -0400
Subject: [PATCH] Add the forward_euler function.

---
 forward_euler.m | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 forward_euler.m

diff --git a/forward_euler.m b/forward_euler.m
new file mode 100644
index 0000000..c6ef217
--- /dev/null
+++ b/forward_euler.m
@@ -0,0 +1,45 @@
+function df = forward_euler(integer_order, h, f, x)
+  ##
+  ## Use the forward Euler method to compute the derivative of `f` at
+  ## a point `x`.
+  ##
+  ## INPUTS:
+  ##
+  ##   * ``integer_order`` - The order of the derivative.
+  ##
+  ##   * ``h`` - The step size.
+  ##
+  ##   * ``f`` - The function whose derivative we're computing.
+  ##
+  ##   * ``x`` - The point at which to compute the derivative.
+  ##
+
+  if (integer_order == 0)
+    df = x;
+    return;
+  end
+    
+  ## We need a few points around `x` to compute the derivative at `x`.
+  ## The number of points depends on the order.
+  if (even(integer_order))
+    offset_b = integer_order / 2;
+    offset_f = offset_b;
+  else
+    ## When the order is odd, we need one more "forward" point than we
+    ## do "backward" points.
+    offset_b = (integer_order - 1) / 2;
+    offset_f = offset_b + 1;
+  end
+
+  backward_xs = [x-(offset_b*h) : h : x];
+
+  ## We'll always have at least one forward point, so start this vector
+  ## from (x + h) and include `x` itself in the backward points.
+  forward_xs = [x+h : h : x+(offset_f*h)];
+
+  xs = horzcat(backward_xs, forward_xs);
+
+  ## Now that we have all of the points that we need in xs, we can use
+  ## the divided_difference function to compute the derivative.
+  df = divided_difference(f, xs);
+end
-- 
2.43.2