From 90f7241e600ba5c98d95b627f3c38f0efeea1b47 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Alexandre=20Delano=C3=AB?= <devel+git@delanoe.org>
Date: Thu, 24 Jan 2019 16:56:48 +0100
Subject: [PATCH] [Bridgeness] fix.
---
src/Gargantext/Viz/Graph/Bridgeness.hs | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/src/Gargantext/Viz/Graph/Bridgeness.hs b/src/Gargantext/Viz/Graph/Bridgeness.hs
index 68b5761e..fe33f375 100644
--- a/src/Gargantext/Viz/Graph/Bridgeness.hs
+++ b/src/Gargantext/Viz/Graph/Bridgeness.hs
@@ -35,7 +35,7 @@ ordEdgesBetween :: (Ord distance, Ord node)
=> [node] -> [node]
-> Map (node, node) distance
-> [((node, node), distance)]
-ordEdgesBetween c1 c2 d = reverse $ sortOn snd $ catMaybes
+ordEdgesBetween c1 c2 d = sortOn snd $ catMaybes
[ (,) <$> Just (n1,n2)
<*> lookup (n1,n2) d
| n1 <- c1
@@ -49,11 +49,10 @@ filterEdgesBetween :: (RealFrac b, Ord node, Ord distance) =>
-> [((node, node), distance)]
filterEdgesBetween b c1 c2 d = take n d'
where
- n = round $ b * i / (s1 + s2)
+ n = round $ b * i / (len c1 + len c2)
d' = ordEdgesBetween c1 c2 d
i = fromIntegral $ length d'
- s1 = fromIntegral $ length (ordEdgesBetween c1 c2 d)
- s2 = fromIntegral $ length (ordEdgesBetween c2 c2 d)
+ len c = fromIntegral $ length (ordEdgesBetween c c d)
bridgeness :: Bridgeness
--
2.21.0