curveopt: symbolic: wip, before abandon provision for fdf

[moebius3.git] / findcurve.c

diff --git a/findcurve.c b/findcurve.c
index 0fa5c10a7691f085d7d1d53b6e2302a94a12e2a2..eec17d4da6ac715b5606819310c2ae220cb31534 100644 (file)
--- a/findcurve.c
+++ b/findcurve.c
@@ -25,15 +25,16 @@ static inline double sinc(double x) {
 static double target[N];
 
 static double cb_Efunc(void *xp) {
-  const double *x = xp;
-
-  e = 0;
-  for (i=0; i<N-3; i++) {
-    // A is point i, B i+1, C i+2, etc.
-    if (i == 0) {
-    } else if (i==N-2) {
+  const double *X = xp;
+
+  double e = 0;
+  for (P=0; P<N-3; P++) {
+    double d;
+    // A is point #p, B #p+1, C #p+2, etc.
+    if (P == 0) {
+    } else if (P==N-2) {
     } else {
-      E_CALCULATE_ED;
+      E_CALCULATE_MID;
 
   double F[N], e;
   int i;