function vykresli_mag_indukci(Uzly,Trojuhelniky,u)

figure
hold on

m = size(Trojuhelniky,2);
mag_indukce = zeros(2,m);
max_mag_indukce = 0;

for k=1:m
    Trojuhelnikk = Trojuhelniky(:,k);
    Uzlyk = Uzly(:,Trojuhelnikk);
    Rk = [ Uzlyk(:,2)-Uzlyk(:,1) , Uzlyk(:,3)-Uzlyk(:,1) ];
    uk = u(Trojuhelnikk);
    
    Bk = inv(Rk')*[-1 1 0;-1 0 1]*uk;
    mag_indukce(:,k) = [Bk(2);-Bk(1)];
    if norm(mag_indukce(:,k))>max_mag_indukce
        max_mag_indukce = norm(mag_indukce(:,k));
    end
    
end
   
for k=1:m
    Trojuhelnikk = Trojuhelniky(:,k);
    Uzlyk = Uzly(:,Trojuhelnikk);

    tezistek = sum(Uzlyk,3)/3;
    mag_indukce_k = mag_indukce(:,k)/(10*max_mag_indukce);
    
    line([tezistek(1),tezistek(1)+mag_indukce_k(1)],[tezistek(2),tezistek(2)+mag_indukce_k(2)]);
end

hold off
