From 0e3046e87797f5bdcc009765ee8b327e72413100 Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 14 Nov 2012 17:27:04 -0500
Subject: [PATCH] Add the Octave c_inner_product function.

---
 c_inner_product.m | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 c_inner_product.m

diff --git a/c_inner_product.m b/c_inner_product.m
new file mode 100644
index 0000000..ca98008
--- /dev/null
+++ b/c_inner_product.m
@@ -0,0 +1,4 @@
+function ip = c_inner_product(w, a, b, v1, v2)
+  integrand = @(x) w(x)*v1(x)*v2(x)
+  ip = quad(integrand, a, b)
+end
-- 
2.43.2