vcNormVector :: ContactMap -> U.Vector Double
vcNormVector c = U.generate n $ \i -> (U.foldl1' (+) $ mat `MS.takeRow` i) / 1e6
  where
    mat = _matrix c
    n = fst $ MS.dim mat

vcNormVector :: ContactMap -> U.Vector Double
vcNormVector c = U.generate n $ \i -> (U.foldl1' (+) $ mat `MS.takeRow` i) / 1e6
  where
    mat = _matrix c
    n = fst $ MS.dim mat

vcNormVector c = U.generate n $ \i -> (U.foldl1' (+) $ mat `MS.takeRow` i) / 1e6
  where
    mat = _matrix c
    n = fst $ MS.dim mat
