Changeset 26766 for trunk/extsrc/gpcsw/gpcsrc/fits/burntool/burnutils.c

Timestamp:

Feb 3, 2010, 1:00:09 PM (16 years ago)

Author:

watersc1

Message:

New burntool, with trails retained even if they had a poor slope.

File:

• trunk/extsrc/gpcsw/gpcsrc/fits/burntool/burnutils.c (modified) (1 diff)

trunk/extsrc/gpcsw/gpcsrc/fits/burntool/burnutils.c

@@ -290 +290 @@
    return(0);
 }
+
+/****************************************************************/
+/* Return of RMS relative to Fit y = ax + b */
+STATIC int linearrms(int npt, double *x, double *y, double a, double b, 
+                     double *rms)
+{
+   *rms = 0.0;
+   while(--npt >= 0) *rms += (y[npt]-a*x[npt]-b)*(y[npt]-a*x[npt]-b);
+   if(*rms > 0) *rms = sqrt(*rms);
+   return(0);
+}