summaryrefslogtreecommitdiff
path: root/3760/CH6/EX6.7/Ex6_7.sce
blob: 5a4acb72e11d8b36a7c7641c789a0b6edc8616e2 (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
clc;
Psh=10000;
P=4;
f=50;
Pi=660;
Pw=420;
I_l=8;
rs=1.2;
Pi_fl=11200;
I_fl=18;
Ns=(120*f)/P;
Ws=(2*3.14*Ns)/60;


//for part a
disp('for part a ');

Pstl=Pi-Pw-((3*I_l*I_l*rs)/(3));
mprintf('The stator core loss is \n %f W \n',Pstl);

//for part b
disp('for part b ');

Pg=Pi_fl-Pstl-(3*(I_fl/sqrt(3))*(I_fl/sqrt(3))*rs);
Prl=Pg-Psh;
mprintf('The rotor loss is %f W \n',Prl);

//for part c
disp('for part c ');

Prol=Prl-Pw;
mprintf('The rotor ohmic loss is %f W \n',Prol);

//for part d
disp('for part d ');

s_fl=Prol/Pg;
Nr=Ns*(1-s_fl);
mprintf('Full Load speed of rotor is %f rpm \n',Nr);

//for part e
disp('for part e ');

Te=Pg/Ws;
Tsh=Psh/((Ws)*(1-s_fl));
E=(Psh/Pi_fl)*100;
mprintf('The internal torque is %f Nm \n The shaft torque is %f Nm \n The motor Efficiency is %f percent',Te,Tsh,E);