summaryrefslogtreecommitdiff
path: root/3816/CH8/EX8.7.a/8_7a.sce
blob: fce834af562e700e6bfc444258d3cbaf8cdeaf7e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
clc;
clear;
V=420;
f=50;
P=6;
Z=1+(2*%i);//Both stator and rotor referred leakage impedance
J=3;//Total inertia of the drive
S1=1.96;
S2=1;
r1=1;
r2=1;
x1=4;
ti=((((r1^2)+(x1^2))/(2*r2))*((S2^2)-(S1^2)))+(2*r1*(S2-S1))+(r2*log(S2/S1));
Ws=2*%pi*(1000/60);
t=J*(105^2)*(-ti/(V^2));
disp(Ws,t,'The total time and speed is:')