Merge pull request #1 from ziejd2/octave_php_separate

Octave php separate

1 files changed, 17 insertions, 0 deletions

diff --git a/sourcecodes/bnt-master/KPMtools/subplot2.m b/sourcecodes/bnt-master/KPMtools/subplot2.m
new file mode 100644
index 00000000..fb8c1c2f
--- /dev/null
+++ b/sourcecodes/bnt-master/KPMtools/subplot2.m
@@ -0,0 +1,17 @@
+function subplot2(nrows, ncols, i, j)
+% function subplot2(nrows, ncols, i, j)
+
+
+sz = [nrows ncols];
+%k = sub2ind(sz, i, j)
+k = sub2ind(sz(end:-1:1), j, i);
+subplot(nrows, ncols, k);
+
+if 0
+  ncols_plot = ceil(sqrt(Nplots));
+  nrows_plot = ceil(Nplots/ncols_plot);
+  Nplots = nrows_plot*ncols_plot;
+  for p=1:Nplots
+    subplot(nrows_plot, ncols_plot, p);
+  end
+end