summaryrefslogtreecommitdiff
path: root/Working_Examples/154/DEPENDENCIES/ch12_3.sce
blob: 1bb93b8e6fa57693d56cc1caf891250a98f55bf5 (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
clc
disp("Example 12.3")
printf("\n")

printf("Given")
disp("The system CBA is WYE connected")
disp("Effective line voltage is 120V")
disp("The three impedances are 20(-30 deg)")
Zmag=20;Zph=-30;
//Let maximum line voltage is Vmax
Vmax=120*sqrt(2)
//Let the line to neutral voltage magnitude be Vn
Vn=Vmax/sqrt(3)
//From fig 12.7(b)
//VAN=Vn(-90 deg)
//VBN=Vn(30 deg)
//VCN=Vn(150 deg)

//From figure 12.10
IAmag=Vn/Zmag
IAph=-90-Zph
printf("\nIA=%3.2f(%d deg)A\n",IAmag,IAph);

IBmag=Vn/Zmag
IBph=30-Zph
printf("\nIB=%3.2f(%d deg)A\n",IBmag,IBph);

ICmag=Vn/Zmag
ICph=150-Zph
printf("\nIC=%3.2f(%d deg)A\n",ICmag,ICph);