X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=libctsim%2Ffilter.cpp;h=26c1c0eda20c5ddd42a29d450817732c2f5d80d1;hb=45ee9834e8a09c79d45aa823ae2afd31b39103a9;hp=5a4b0ef5fdccb6889b8b5012fb11a474c9f93630;hpb=806adf54f5b8d061662696b3b498bfab3cd8b2e6;p=ctsim.git

diff --git a/libctsim/filter.cpp b/libctsim/filter.cpp
index 5a4b0ef..26c1c0e 100644
--- a/libctsim/filter.cpp
+++ b/libctsim/filter.cpp
@@ -9,7 +9,7 @@
 **  This is part of the CTSim program
 **  Copyright (C) 1983-2000 Kevin Rosenberg
 **
-**  $Id: filter.cpp,v 1.32 2000/12/04 19:50:57 kevin Exp $
+**  $Id: filter.cpp,v 1.34 2001/01/12 03:49:07 kevin Exp $
 **
 **  This program is free software; you can redistribute it and/or modify
 **  it under the terms of the GNU General Public License (version 2) as
@@ -369,7 +369,7 @@ SignalFilter::spatialResponseCalc (int filterID, double bw, double x, double par
     q[i] = frequencyResponse (filterID, bw, z, param) * cos (TWOPI * z * x);
   
   double y = 2 * integrateSimpson (zmin, zmax, q, n);
-  delete q;
+  delete q;
 
   return (y);
 }
@@ -559,30 +559,21 @@ SignalFilter::spatialResponseAnalytic (int filterID, double bw, double x, double
 }
 
 
-/* NAME
- *   sinc			Return sin(x)/x function
- *
- * SYNOPSIS
- *   v = sinc (x, mult)
- *   double v			sinc value
- *   double x, mult
- *
- * DESCRIPTION
- *   v = sin(x * mult) / x;
- */
 
+// Functions that are inline in filter.h
+
+
+//  sinc			Return sin(x)/x function 
+//   v = sinc (x, mult)
+// Calculates sin(x * mult) / x;
+
+//  integral_abscos	Returns integral of u*cos(u)
+//
+//   q = integral_abscos (u, w)
+//   double q			Integral value
+//   double u			Integration variable
+//   double w			Upper integration boundary
+// Returns the value of integral of u*cos(u)*dV for V = 0 to w
 
-/* NAME
- *   integral_abscos			Returns integral of u*cos(u)
- *
- * SYNOPSIS
- *   q = integral_abscos (u, w)
- *   double q			Integral value
- *   double u			Integration variable
- *   double w			Upper integration boundary
- *
- * DESCRIPTION
- *   Returns the value of integral of u*cos(u)*dV for V = 0 to w
- */