X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=c_inner_product.m;h=1d7bfd1e67122823724ebafb8ee919fe58c9980e;hp=ca98008acb9228ed932fe9be95ee5d070a771803;hb=ee2abb133ffec1ba0a9177cb290738ce7a188dcf;hpb=0e3046e87797f5bdcc009765ee8b327e72413100

diff --git a/c_inner_product.m b/c_inner_product.m
index ca98008..1d7bfd1 100644
--- a/c_inner_product.m
+++ b/c_inner_product.m
@@ -1,4 +1,24 @@
 function ip = c_inner_product(w, a, b, v1, v2)
-  integrand = @(x) w(x)*v1(x)*v2(x)
-  ip = quad(integrand, a, b)
+  ##
+  ## The usual inner product defined on the space of continuous
+  ## functions over the interval [a,b].
+  ##
+  ## INPUT:
+  ##
+  ##   * ``w`` -- The weight function.
+  ##
+  ##   * ``a`` -- The left endpoint of the interval.
+  ##
+  ##   * ``b`` -- The right endpoint of the interval.
+  ##
+  ##   * ``v1`` -- The first vector.
+  ##
+  ##   * ``v2`` -- The second vector.
+  ##
+  ## OUTPUT:
+  ##
+  ## The inner product <v1, v2>.
+  ##
+  integrand = @(x) w(x)*v1(x)*v2(x);
+  ip = quad(integrand, a, b);
 end