blob: 8d9625650e23fbc68ff108303cfe6849bd6dec8d (
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
|
//Example 9_7 page no:356
clc;
Zrmag=3.61;
Zrang=56.3;
Zymag=2.23;
Zyang=-63.4;
Zbmag=5;
Zbang=53.13;
Zmag=19.10;
Zang=47.3;
//calculating the impedence magnitude and angle
Zrymag=(Zrmag*Zymag);
Zybmag=(Zymag*Zbmag);
Zbrmag=(Zbmag*Zrmag);
Zryang=(Zrang-Zyang);
Zybang=(Zyang-Zbang);
Zbrang=(Zbang-Zrang);
Zrymag=Zmag/Zbmag;
Zryang=Zang-Zbang;
Zybmag=Zmag/Zrmag;
Zybang=Zang-Zrang;
Zbrmag=Zmag/Zymag;
Zbrang=Zang-Zyang;
//converting to rectangular form
Zryrel=Zrymag*cosd(Zryang);
Zryimg=Zrymag*sind(Zryang);
Zry=Zryrel+(%i*Zryimg);
disp(Zry,"the impedence Zry is(in ohm)");
//converting to rectangular form
Zybrel=(Zybmag*cosd(Zybang));
Zybimg=(Zybmag*sind(Zybang));
Zyb=Zybrel+(%i*Zybimg);
disp(Zyb,"the impedence Zyb is(in ohm)");
//converting to rectangular form
Zbrrel=Zbrmag*cosd(Zbrang);
Zbrimg=Zbrmag*sind(Zbrang);
Zbr=Zbrrel+(%i*Zbrimg);
disp(Zbr,"the impedence Zbr is(in ohm)");
|
