%Program na vypocet prudov vo vetvach obvodu podla prilozenej schemy.
%Vypocet sa uskutocnuje metodou sluckovych prudov a metodou uzlovych
%napati na zaklade uzivatelom zadanych hodnot napat. zdrojov a odporov.
U=input('Zadaj hodnoty nap. zdrojov vo Voltoch v tvare "[U1 U2]"\n');      %vstupne hodnoty napati
R=input('Zadaj hodnoty odporov v Ohmoch v tvare "[R1 R2 R3 R4 R5]"\n');    %vstupne hodnoty odporov

fprintf('\n--------------------------------------------------------------')
%Metoda sluckovych prudov
I=MSP(U,R);                                                            %volanie funkcie MSP.m   
fprintf('\n--------------------------------------------------------------')
fprintf('\nPrudy vo vetvach vypocitane MSP su:[I(1) I(2) I(3) I(4)I(5)]\n')
I=I                                                                        %vypis prudov   

%skuska pomocou 1.KZ:
if -I(1)+I(2)+I(3)<1e-6
    if -I(3)+I(4)-I(5)<1e-6
        if -I(2)-I(4)<1e-6
            disp('Prudy vo vetvach vyhovuju 1.KZ')
        else disp('Prudy vo vetvach nevyhovuju 1.KZ')   
        end
    else disp('Prudy vo vetvach nevyhovuju 1.KZ')    
    end
else disp('Prudy vo vetvach nevyhovuju 1.KZ')
end

fprintf('\n--------------------------------------------------------------')
%Metoda uzlovych napati
I=MUN(U,R);                                                            %volanie funkcie MUN.m
fprintf('\nPrudy vo vetvach vypocitane MUN su:[I(1) I(2) I(3) I(4)I(5)]\n')
I=I                                                                        %vypis prudov   

%skuska pomocou 1.KZ:
if -I(1)+I(2)+I(3)<1e-6
    if -I(3)+I(4)-I(5)<1e-6
        if -I(2)-I(4)<1e-6
            disp('Prudy vo vetvach vyhovuju 1.KZ')
        else disp('Prudy vo vetvach nevyhovuju 1.KZ')   
        end
    else disp('Prudy vo vetvach nevyhovuju 1.KZ')    
    end
else disp('Prudy vo vetvach nevyhovuju 1.KZ')
end

return
