summaryrefslogtreecommitdiff
path: root/1319/CH8/EX8.10/8_10.sce
blob: 03f7b85c377941b4d75494828aac3058300c3cdc (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
//To determine parameters of an 3 phase delta connected 4 pole induction motor

clc;
clear;

V=440;
f=50;
p=4;
E2=150;
Nr=1450;

Ns=120*f/p;

s=(Ns-Nr)/Ns;

rf=s*f; // Rotor frequency

Eir=s*E2; // Rotor induced EMF per phase
gc=1;

// To find the GCD of both the voltages
for i=E2:-1:1
    a=modulo(V,i);
    b=modulo(E2,i);
    if(a==0&b==0)
        gc=gc*i;
        break;
    end
end

printf('The parameters for a motor running at 1450 rpm are \n')
printf('i) The slip = %g percent \n',s)
printf('ii) The frequency of the rotor induced EMF =%g Hz \n',rf)
printf('iii) The rotor induced EMF per phase = %g V \n',Eir)
printf('iv) Stator to rotor turn ratio = %g : %g \n',V/gc,E2/gc)