Semestrálka 2

Hodim sem par uryvku z kodu, ktere nejspis uz stejne vsichni mame. Budte tak laskavy a kod NEodevzdavejte ve svoji praci (ikdyz se vsechny prace budou v mnohem podobat). Davam ho sem, aby bylo nad cim diskutovat a vysvetlit, jak ma semestalka vypadat.

• howto Install BNT
• manual k BNT

% nacteni dat
samples = read_odpady('odpady_txt.csv');
 
% jmena promennych
names = {'Auta', 'Den', 'Lokalita', 'Mnozstvi', 'Obdobi', 'Osidleni', 'Skladky', 'Slozeni', 'Spalovna', 'Toxicita', 'Vzdelanost'};
 
% promenne pro indexy
Auta      = 1;
Den       = 2;
Lokalita  = 3;
Mnozstvi  = 4;
Obdobi    = 5;
Osidleni  = 6; 
Skladky   = 7;
Slozeni   = 8;
Spalovna  = 9;
Toxicita  = 10;
Vzdelanost = 11; 
 
% pocet promennych
N=11;
 
% kolika hodnot mohou nabyvat jednotlive promenne
node_sizes = [ 4, 3, 3, 4, 4, 3, 2, 4, 3, 2, 2 ]';
 
% oddeleni nulovych dat
nanidx = max(isnan(cell2mat(samples)));
nansamples = samples(:, nanidx == 1);
samples    = samples(:, nanidx == 0);

% rucne vytvoreny DAG
dag = zeros(N,N);
dag(Lokalita, [Osidleni Slozeni Toxicita Vzdelanost]) = 1;
dag(Osidleni, Skladky) = 1;
dag(Obdobi, [Mnozstvi Slozeni]) = 1;
dag(Vzdelanost, Mnozstvi) = 1;
dag(Den, [Auta Mnozstvi]) = 1;
dag(Mnozstvi, [Auta, Spalovna]) = 1;
dag(Slozeni, Spalovna) = 1;
 
% vykresleni grafu site
draw_graph(dag, names);
 
% topologicke usporadani
[dag_top order_top node_sizes_top names_top] = top_sort_dag(dag, 'node_sizes', node_sizes, 'names', names);
 
% vytvoreni kostry site
bnet = mk_bnet(dag, node_sizes, 'names', names);