1 files changed, 0 insertions, 46 deletions
diff --git a/lib/correlations.c b/lib/correlations.c
deleted file mode 100644
index 98c5767..0000000
--- a/lib/correlations.c
+++ /dev/null
@@ -1,46 +0,0 @@
-
-#include "fracture.h"
-
-double *get_corr(net_t *instance, uint_t **dists, cholmod_common *c) {
-  uint_t nv = instance->graph->dnv;
-  uint_t ne = instance->graph->ne;
-  uint_t *ev = instance->graph->dev;
-  bool nulldists = false;
-  if (dists == NULL) {
-    dists = graph_dists(instance->graph, false);
-    nulldists = true;
-  }
-  double *corr = calloc(nv, sizeof(double));
-  uint_t *numat = calloc(nv, sizeof(uint_t));
-
-  for (uint_t i = 0; i < ne; i++) {
-    uint_t v1 = ev[2 * i];
-    uint_t v2 = ev[2 * i + 1];
-    for (uint_t j = 0; j < ne; j++) {
-      uint_t v3 = ev[2 * j];
-      uint_t v4 = ev[2 * j + 1];
-      uint_t dist1 = dists[v1][v3];
-      uint_t dist2 = dists[v1][v4];
-      uint_t dist3 = dists[v2][v3];
-      uint_t dist4 = dists[v2][v4];
-      uint_t dist = (dist1 + dist2 + dist3 + dist4) / 4;
-      corr[dist] += instance->fuses[i] && instance->fuses[j];
-      numat[dist]++;
-    }
-  }
-
-  for (uint_t i = 0; i < nv; i++) {
-    if (numat[i] > 0) {
-      corr[i] /= numat[i];
-    }
-  }
-
-  if (nulldists) {
-    for (int i = 0; i < nv; i++) {
-      free(dists[i]);
-    }
-    free(dists);
-  }
-
-  return corr;
-}