EMP_2016_17_LAB2

clear;
clc;

%unos podataka
Un = 440;
In = 56;
nn = 630;
Ra = 0.21;
Mt = 440;
Ruk = 1.5;
Rd1 = 3.21; Rd2 = 4.21; Rd3 = 5.21;

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

%ispis podataka
fprintf('REZULTATI PRORACUNA - ELEKTRODINAMICKO KOCENJE\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);
fprintf('Pocetni kocni moment Mpk1 = %.2f (Nm).\n', Mpk1);
fprintf('Pocetni kocni moment Mpk2 = %.2f (Nm).\n', Mpk2);
fprintf('Pocetni kocnji moment Mpk3 = %.2f (Nm).\n', Mpk3);

%plotanje i oznacavanje tacaka

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

%crtanje x-ose i y-ose i konstantnog tereta

plot([-1000, 1000], [0, 0], 'k');
plot([0, 0], [-1000, 1000], 'k');
plot([Mt, Mt], [-1000, 1000], '--k', 'LineWidth', 1.5);

text(Mt-40, -50, 'M_t', 'FontWeight', 'Bold');
text(-50, n0, 'n_0', 'FontWeight', 'Bold');
plot(0, n0, 'ko', 'LineWidth', 1.5);
text(Mt-50, np-30, 'n_p', 'FontWeight', 'Bold');
plot(Mt, np, 'ko', 'LineWidth', 1.5);
text(Mpk1-20, np+70, 'M_{pk1}', 'FontWeight', 'Bold');
plot(Mpk1, np, 'ro', 'LineWidth', 1.5);
text(Mpk2-20, np+70, 'M_{pk2}', 'FontWeight', 'Bold');
plot(Mpk2, np, 'go', 'LineWidth', 1.5);
text(Mpk3-20, np+70, 'M_{pk3}', 'FontWeight', 'Bold');
plot(Mpk3, np, 'bo', 'LineWidth', 1.5);
text(Mt-30, n1+70, 'n_1', 'FontWeight', 'Bold');
plot(Mt, n1, 'ro', 'LineWidth', 1.5);
text(Mt-30, n2+70, 'n_2', 'FontWeight', 'Bold');
plot(Mt, n2, 'go', 'LineWidth', 1.5);
text(Mt-30, n3+70, 'n_3', 'FontWeight', 'Bold');
plot(Mt, n3, 'bo', 'LineWidth', 1.5);