Merge pull request #1 from ziejd2/octave_php_separate

Octave php separate

1 files changed, 7 insertions, 0 deletions

diff --git a/sourcecodes/bnt-master/KPMtools/wrap.m b/sourcecodes/bnt-master/KPMtools/wrap.m
new file mode 100644
index 00000000..9a5f2a2a
--- /dev/null
+++ b/sourcecodes/bnt-master/KPMtools/wrap.m
@@ -0,0 +1,7 @@
+function v = wrap(u,N)
+% WRAP Wrap a vector of indices around a torus.
+% v = wrap(u,N)
+%
+% e.g., wrap([-1 0 1 2 3 4], 3)   =   2 3 1 2 3 1
+
+v = mod(u-1,N)+1;