summaryrefslogtreecommitdiff
path: root/2297/CH6/EX6.12/Ex6_12.sce
blob: c8d02b21c4a8b4e61a9747ae9c4634c4ff9feb36 (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
//Example 6.12// emf
clc;
clear;
close;
format('v',7)
disp("part (a) generator ")
kva=4;//kVA
v=110;//volts
re=3;//syncronous reacrance in ohms
ip=((kva*10^3)/(sqrt(3)*v));//phase current in Amperes
ep=v/(sqrt(3));//phase voltage in volts
e1=ep+%i*(ip*3);//line voltage in volts
e11=sqrt((real(e1)^2)+imag(e1)^2);//line voltage per phase in volts
pf=0.8;//power factor
e12=(sqrt((real(e1)*pf)^2+(((imag(e1)*sqrt(1-pf^2))+imag(e1)))^2));//
e13=(sqrt((real(e1)*pf)^2+(((imag(e1)*sqrt(1-pf^2))-imag(e1)))^2));//
disp(e11,"emf  when the armature current is full load unit pf is,(V)=")
disp(e12,"emf  when the armature current is full load 0.8 pf (lag) is,(V)=")
disp(e13,"emf  when the armature current is full load 0.8 pf (lead) is,(V)=")
disp("part (b) motor")
kva=4;//kVa
v=110;//volts
re=3;//syncronous reacrance in ohms
ip=((kva*10^3)/(sqrt(3)*v));//phase current in Amperes
ep=v/(sqrt(3));//phase voltage in volts
e1=ep-%i*(ip*3);//line voltage in volts
e11=sqrt((real(e1)^2)+imag(e1)^2);//line voltage per phase in volts
pf=0.8;//power factor
e12=(sqrt((real(e1)*pf)^2+(((imag(e1)*sqrt(1-pf^2))-imag(e1)))^2));//
e13=(sqrt((real(e1)*pf)^2+(((imag(e1)*sqrt(1-pf^2))+imag(e1)))^2));//
disp(e11,"emf  when the armature current is full load unit pf is,(V)=")
disp(e12,"emf  when the armature current is full load 0.8 pf (lag) is,(V)=")
disp(e13,"emf  when the armature current is full load 0.8 pf (lead) is,(V)=")