summaryrefslogtreecommitdiff
path: root/1319/CH5/EX5.8/5_8.sce
blob: 40f7123df03df521b1451a93ec691374e8083662 (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
37
38
39
40
41
42
43
44
45
46
// To calculate terminal voltage and current and efficiency

clc;
clear;

n=10; // Transformation ratio

E1=200;

R0=400;
X0=251*%i;

R1=0.16;
X1=0.7*%i;

R2=5.96; // As referred to the primary side
X2=4.44*%i; // As referred to the primary side

I1=E1/(R1+R2+X1+X2);

t1=atand(imag(I1)/real(I1));// Angle for primary current

Iw=E1/R0;
Im=E1/X0;

Ip=Iw+Im+I1;

Zl=R2+X2;

V2p=I1*Zl;// Secondary terminal voltage referred to primary side

V2=n*V2p;

t2=atand(imag(V2)/real(V2)); // Angle for V2

Po= (abs(I1)^2)*R2; // Output power

Pc=(abs(I1)^2)*R1;// Copper Loss

Pil=(abs(Iw)^2)*R0;// Iron Loss

eff= Po*100/(Po+Pc+Pil)// Efficiency

printf('a) The secondary terminal voltage = %f /_%f V \n',abs(V2),t2)
printf('b) The primary current = %f /_%f A \n',abs(I1),t1)
printf('c) The efficiency is %f percent \n',eff)