summaryrefslogtreecommitdiff
path: root/1319/CH8/EX8.1/8_1.sce
blob: 75bf78051b790336932341862229784c63b89432 (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
//Find the percentage slip and poles of the motor

clc;
clear;

p=12;
n=500;
nlim=1440;
f=p*n/120;
c=1;

while(c>0) // Used to find out the poles of the motor nearest to the full load slip
    P=2*c;
    N=120*f/P;
    g=(5/100)*N;
    if((N-nlim)>(0.05*N))
        c=c+1;
    else
        c=0;
    end
end

slip=(N-nlim)*100/N;

printf('The Number of poles of the induction motor is %g \n',P)
printf('The percentage slip is %g percent \n',slip)