%tento skrip po zadání vstupních paramterů provede výpočet, a vykreslí momentovou charakteristiku asynchronního motoru
%(C)2020 Ondřej Louda, FS

%vstupní parametry
Mm=6; %maximalni moment
sb=0.2; %skluz při max. momentu
ns=3000; % otáčky statoru
n1=-3000; %dolní mez vykreslení charakteristiky (s respektováním znaménka prac. režimu)
n2=5000; %horní mez vykreslení charakteristiky
n=n1:0.001:n2; %oblast vykreselní momentové charakteristiky, nezávisle proměnná (otáčky) 

%vlastní výpočet
s=(ns-n)/ns; %skluz ve vyšetřovaném bodě
M=2*Mm./((s.*sb^-1)+(sb*s.^-1)); 

%grafický výstup
figure(1)
plot(n,M)
xlabel('Otáčky n[1/s]')
ylabel('Moment M [Nm]')
grid on