summaryrefslogtreecommitdiff
path: root/2123/CH6/EX6.9/Exa_6_9.sce
blob: 592857f78b190cdb67dc52db399dcce0e4e1d961 (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
//Example No. 6.9
clc;
clear;
close;
format('v',7);

//Given Data : 
V=400;//volt
P=4;//pole
f=50;//Hz
r1=0.64;//ohm
r2=0.08;//ohm
x1=1.1;//ohm
x2=0.12;//ohm
T1=40;//N-m
N=1440;//rpm
N1=1300;//rpm
r2dash=r2*2^2;//ohm
x2dash=x2*2^2;//ohm
S=r2dash/sqrt(r1^2+(x1+x2dash)^2);//slip
disp(S,"Slip for maximum torque at 50 Hz : ");
V1=V/sqrt(3);//volt/phase
ns=2*f/P;//rps
Tmax=1.5*V1^2/(2*%pi*ns)*[1/(r1+sqrt(r1^2+(x1+x2dash)^2))];//Nm
disp(Tmax,"Maximum torque at 50 Hz in N-m : ");
n=ns*(1-S);//rps
N=n*60;//rpm
disp(N,"Speed at 50 Hz in rpm : ");
f=25;//Hz
x1=x1/2;//ohm
x2dash=x2dash/2;//ohm
S=r2dash/sqrt(r1^2+(x1+x2dash)^2);//slip
disp(S,"Slip for maximum torque at 25 Hz : ");
V1=V1/2;//volt/phase
ns=2*f/P;//rps
Tmax=1.5*V1^2/(2*%pi*ns)*[1/(r1+sqrt(r1^2+(x1+x2dash)^2))];//Nm
disp(Tmax,"Maximum torque at 25 Hz in N-m : ");
n=ns*(1-S);//rps
N=n*60;//rpm
disp(N,"Speed at 25 Hz in rpm : ");