X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=partition.m;fp=partition.m;h=96ded5e194103e5a5ecaf92b0203ad74b97a87f7;hp=0000000000000000000000000000000000000000;hb=876e38fb99680748dfdf334ba450f633566d9b6a;hpb=62d652799ded51169bda744d8728e1d33582fa5f

diff --git a/partition.m b/partition.m
new file mode 100644
index 0000000..96ded5e
--- /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