summaryrefslogtreecommitdiff
path: root/1892/CH1/EX1.82/Example1_82.sce
blob: a1e5401e1b7216846ad5e93950f40b885b581109 (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
// Example  1.82

clc;clear;close;

// Given data
format('v',7);
TstByTfl=1;//ratio
TmaxByTfl=2;//ratio

//calculations
TstByTmax=TstByTfl/TmaxByTfl;//ratio
//Formula : TstByTmax=2*Sm/(1+Sm^2)
//TstByTmax*Sm^2-2*Sm+TstByTmax=0
P=[TstByTmax -2 TstByTmax];//polynomial for Sm
Sm=roots(P);//slip at max torque
Sm=Sm(2);//neglecting the higher value
disp(Sm,"(a) Slip at which max torque occurs : ");
//Formula : TflByTmax=2*S*Sm/(S^2+Sm^2) 
//S^2-TmaxByTfl*2*S*Sm+Sm^2=0
P=[1 -TmaxByTfl*2*Sm Sm^2];//polynomial for S
S=roots(P);//slip at max torque
//Sm=Sm(2);//neglecting the higher value
S=S(2);//neglecting the higher value
disp(S,"(b) Full load slip : ");
//I2stByI2fl^2=(Sm^2+S^2)/S^2/(1+Sm^2)
I2stByI2fl=sqrt((Sm^2+S^2)/S^2/(1+Sm^2));//ratio
disp(I2stByI2fl,"(c) Rotor current at starting ag full load current : ");