EMP_2016_17_LAB1

clc;
clear;

%unos podataka
Un = 440;
In = 56;
nn = 630;
Ra = 0.21;
Ruk = 1.5;
Mt = 440;
R1 = 8; R2 = 10; R3 = 12;

%proracun parametara
keFin = (Un - In*Ra)/nn;
kmFin = 9.55*keFin;
n0 = Un/(keFin);
np = n0 - (Mt*Ruk)/(9.55*keFin^2);
n1 = n0 - (Mt*(Ruk+R1))/(9.55*keFin^2);
n2 = n0 - (Mt*(Ruk+R2))/(9.55*keFin^2);
n3 = n0 - (Mt*(Ruk+R3))/(9.55*keFin^2);

%prikaz izracunatih vrijednosti

fprintf('REZULTATI PRORACUNA - KOCENJE S DODATNOM OTPORNOSTI \n');
fprintf('Brzina vrtnje idealnog praznog hoda n0 = %.2f (o/min).\n', n0);
fprintf('Brzina vrtnje prije pocetka kocenja nP = %.2f (o/min).\n', np);
fprintf('Brzina vrtnje na kraju kocenja n1 = %.2f (o/min).\n', n1);
fprintf('Brzina vrtnje na kraju kocenja n2 = %.2f (o/min).\n', n2);
fprintf('Brzina vrtnje na kraju kocenja n3 = %.2f (o/min).\n', n3);

%crtanje karakteristike

grid on;
hold on;
title('NEOVISNO UZBUDJENI MOTOR - KOCENJE S DODATNOM OTPORNOSTI');
xlabel('Moment M (Nm)');
ylabel('Brzina vrtnje n (o/min)');
plot([0, Mt], [n0, np], 'k', 'LineWidth', 1.5);
plot([0, Mt], [n0, n1], 'r', 'LineWidth', 1.5);
plot([0, Mt], [n0, n2], 'g', 'LineWidth', 1.5);
plot([0, Mt], [n0, n3], 'b', 'LineWidth', 1.5);
legend('Otpornost R', 'Otpornost R1', 'Otpornost R2', 'Otpornost R3', 'Location', 'SouthWest');

%crtanje x i y ose i konstantnog tereta
%plot([-100, 500], [0, 0], 'k');
%plot([0, 0], [-1000, 1000], 'k');
line([-100, 500], [0, 0]);
line([0, 0], [-1000, 1000]);
plot([Mt, Mt], [-1000, 1000], '--k', 'LineWidth', 1.5);
%oznacavanje tacaka na karakteristici
text(5, 40, '0');
text(-20, n0+20, 'n_0');
plot(0, n0, 'ko', 'LineWidth', 1.5);
text(Mt-20, np-50, 'n_p');
plot(Mt, np, 'ko', 'LineWidth', 1.5);
text(Mt-20, n1-50, 'n_1');
plot(Mt, n1, 'ro', 'LineWidth', 1.5);
text(Mt-20, n2-50, 'n_2');
plot(Mt, n2, 'go', 'LineWidth', 1.5);
text(Mt-20, n3-50, 'n_3');
plot(Mt, n3, 'bo', 'LineWidth', 1.5);