From a1956a4ff879eb2d34c7a0ca448f48ee6e64ce99 Mon Sep 17 00:00:00 2001
From: Samuel Fadel <samuelfadel@gmail.com>
Date: Tue, 1 Sep 2015 20:45:02 -0300
Subject: Improvements related to visual representation of distortions.

- New continuous color scale class;
- Improvements in signal handler for calculating distortions;
- Implementation of the NP(k) measure.
---
 measures.cpp | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 53 insertions(+), 3 deletions(-)

(limited to 'measures.cpp')

diff --git a/measures.cpp b/measures.cpp
index fe4077a..bee3515 100644
--- a/measures.cpp
+++ b/measures.cpp
@@ -1,11 +1,61 @@
 #include "mp.h"
 
+#include <algorithm>
+
+static
+void knn(const arma::mat &dmat, arma::uword i, arma::uword k, arma::uvec &nn, arma::vec &dist)
+{
+    arma::uword n = dist.n_rows;
+    if (k > n) {
+        return;
+    }
+
+    double dmax = arma::datum::inf;
+    nn.fill(i);
+    dist.fill(dmax);
+    for (arma::uword j = 0; j < n; j++) {
+        if (j == i) {
+            continue;
+        }
+
+        if (dmat(i, j) < dmax) {
+            arma::uword l;
+            for (l = 0; dmat(i, j) > dist[l] && l < k; l++);
+            for (arma::uword m = l + 1; m < k; m++) {
+                nn[m]   = nn[m - 1];
+                dist[m] = dist[m - 1];
+            }
+
+            nn[l] = j;
+            dist[l] = dmat(i, j);
+        }
+    }
+}
+
 arma::vec mp::neighborhoodPreservation(const arma::mat &distA,
                                        const arma::mat &distB,
-                                       int k)
+                                       arma::uword k)
 {
-    // TODO
-    return arma::vec(distA.n_rows, arma::fill::zeros);
+    arma::uword n = distA.n_rows;
+    arma::vec np(n);
+
+    for (arma::uword i = 0; i < n; i++) {
+        arma::uvec nnA(k);
+        arma::uvec nnB(k);
+        arma::vec dist(k);
+
+        knn(distA, i, k, nnA, dist);
+        knn(distB, i, k, nnB, dist);
+
+        std::sort(nnA.begin(), nnA.end());
+        std::sort(nnB.begin(), nnB.end());
+
+        arma::uword l;
+        for (l = 0; nnA[l] == nnB[l] && l < k; l++);
+        np[i] = ((double) l) / k;
+    }
+
+    return np;
 }
 
 arma::vec mp::silhouette(const arma::mat &distA,
-- 
cgit v1.2.3