Merge pull request #1 from ziejd2/octave_php_separate

Octave php separate

1 files changed, 13 insertions, 0 deletions

diff --git a/sourcecodes/bnt-master/SLP/misc/compute_bnet_nparams.m b/sourcecodes/bnt-master/SLP/misc/compute_bnet_nparams.m
new file mode 100644
index 00000000..3366375f
--- /dev/null
+++ b/sourcecodes/bnt-master/SLP/misc/compute_bnet_nparams.m
@@ -0,0 +1,13 @@
+function [D,d]= compute_bnet_nparams(bnet)
+% [D,d] = compute_bnet_nparams(bnet)
+%
+% D is the dimension of the network
+% d is the vector containing the number of parameters for all nodes
+
+N = length(bnet.dag);
+d = zeros(1,N);
+for i=1:N
+   a = struct(bnet.CPD{i});
+   d(i) = a.nparams;
+end
+D = sum(d);