From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 14 Sep 2012 14:28:47 +0000 (-0400)
Subject: Add the partition function.
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=commitdiff_plain;h=1a5bceb9de6bd3a511e7edcb6ab08f84dae63948

Add the partition function.
Remove shebang lines from non-executable files.
Begin the solve_poisson function.
---

diff --git a/bisect.m b/bisect.m
old mode 100755
new mode 100644
index 56e099e..3e8faa5
--- a/bisect.m
+++ b/bisect.m
@@ -1,5 +1,3 @@
-#!/usr/bin/octave --silent
-
 function root = bisect(f, a, b, epsilon)
   ## Find a root of the function `f` on the closed interval [a,b].
   ##
diff --git a/divided_difference.m b/divided_difference.m
old mode 100755
new mode 100644
index 139fa47..7b8020e
--- a/divided_difference.m
+++ b/divided_difference.m
@@ -1,5 +1,3 @@
-#!/usr/bin/octave --silent
-
 function dd = divided_difference(f, xs)
   ## Compute divided difference of `f` at points `xs`. The argument `xs`
   ## is assumed to be a vector containing at least one element. If it
diff --git a/has_root.m b/has_root.m
old mode 100755
new mode 100644
index 5c835d8..da518e9
--- a/has_root.m
+++ b/has_root.m
@@ -1,5 +1,3 @@
-#!/usr/bin/octave --silent
-
 function has_root = has_root(fa, fb)
   ## Use the intermediate value theorem to determine whether or not some
   ## function has an odd number of roots on an interval. If the function
diff --git a/partition.m b/partition.m
new file mode 100644
index 0000000..ac616cf
--- /dev/null
+++ b/partition.m
@@ -0,0 +1,28 @@
+function [p,delta] = partition(integerN, a, b)
+  ## Partition the interval [a,b] into integerN subintervals. We do not
+  ## requite that a<b.
+  ##
+  ## INPUTS:
+  ##
+  ##   * integerN - The number of subintervals.
+  ##
+  ##   * a - The "left" endpoint of the interval to partition.
+  ##
+  ##   * b - The "right" endpoint of the interval to partition.
+  ##
+  ##
+  ## OUTPUTS:
+  ##
+  ##   * p - The resulting partition, as a vector of length integerN+1.
+  ##
+  ##   * delta - The distance between x_i and x_{i+1} in the partition.
+  ##
+  ##
+
+  ## We don't use abs() here because `b` might be less than `a`. In that
+  ## case, we want delta negative so that when we add it to `a`, we move
+  ## towards `b`.
+  delta = (b - a)/integerN
+
+  p = [a : delta : b]
+end
diff --git a/solve_poisson.m b/solve_poisson.m
new file mode 100644
index 0000000..be1b1ec
--- /dev/null
+++ b/solve_poisson.m
@@ -0,0 +1,17 @@
+function u = solve_poisson(integerN, f)
+  ##
+  ## Numerically solve the poisson equation,
+  ##
+  ##   -u_xx(x) = f(x)
+  ##
+  ## in one dimension, subject to the boundary conditions,
+  ##
+  ##   u(0) = 0
+  ##   u(1) = 1
+  ##
+  ## over the interval [0,1]. It is assumed that the function `f` is at
+  ## least continuous on [0,1].
+  ##
+
+  [xs,h] = partition(integerN, a, b);
+end