summaryrefslogtreecommitdiff
path: root/2297/CH6/EX6.11/Ex6_11.sce
blob: df6858248173212dda574c17add94301fde60a13 (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
//Example 6.11// current per phase and power factor
clc;
clear;
close;
format('v',6)
v1=100;//emf in volts
vi=v1/sqrt(3);//induced emf in volts
r1=1;//rotor resistance ohms per phase
r2=4;//rotor reactance ohms per phase
r=sqrt(r1^2+r2^2);//rotor impedence per phase
rcp=(vi/r);//rotor current per phase
pf=(1/r);//power factor
disp("part (a)")
disp(rcp,"rotor current per phase is,(A)=")
disp(pf,"power factor is,=")
r3=3;//ohms
r4=r1+r3;//rotor resistance ohms per phase
r2=4;//rotor reactance ohms per phase
r=sqrt(r4^2+r2^2);//rotor impedence per phase
rcp=(vi/r);//rotor current per phase
pf=(r4/r);//power factor
disp("part (b)")
disp(rcp,"rotor current per phase is,(A)=")
disp(pf,"power factor is,=")