summaryrefslogtreecommitdiff
path: root/3760/CH6/EX6.23/Ex6_23.sce
blob: 177f130871fd96748365c207e512f98703448788 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
clc;
Pm=100000;
V=420;
P=6;
f=50;
sfl=0.04;
smT=0.2;

//for part a
disp('for part a');
Pg=Pm/(1-sfl);
Ws=(4*%pi*f)/P;
Tefl=Pg/Ws;
//a=Tefl/Tem
a=(1/(2/((sfl/smT)+(smT/sfl))));
Tem=a*Tefl;
mprintf('Maximum Torque is %f Nm \n',Tem);

//for part b
disp('for part b');
//b=Test/Tem
b=2/((1/smT)+(smT));
Test=b*Tem;
mprintf('The starting Torque is %f Nm \n',Test)

//for part c
disp('for part c');
Prot=sfl*Pg;
mprintf('Rotor Ohmic losses are %f W \n',Prot)

//for part d
disp('for part d');    
//Output is proportional to (s(1-s))/r2
//Given conditions gives the equation as s1*s1-s1+0.0768
Q=[1 -1 0.0768];
R=roots(Q);
s1=R(2);
mprintf('Slip is %f \n',s1)

//for part e
disp('for part e');    
Tefl=(Pm/(1-s1))/Ws;
mprintf('full-load torque is %f Nm \n',Tefl)

//for part f
disp('for part f');
smT1=2*smT;
mprintf('slip at maximum torque is %f',smT1);