summaryrefslogtreecommitdiff
path: root/98/CH13/EX13.11/example13_11.sce
blob: 67aca5682b734b85a0a6d46f55c9d7a11bf995e6 (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
47
48
49
50
51
52
53
54
55
56
57
//Chapter 13
//Example 13_11
//Page 322

clear;clc;

Va=230;
Ic=25;
Id=50;
Ie=30;
If=40;
Vb=235;
Lac=50;
Lcd=25;
Lde=25;
Lef=50;
Lfb=50;
r=0.3;
l=200;

//resistance for 1000 m length of conductor
R=2*r;

Rac=R*Lac/1000;
Rcd=R*Lcd/1000;
Rde=R*Lde/1000;
Ref=R*Lef/1000;
Rfb=R*Lfb/1000;

//considering drop across various sections of the distributor and adding them to calculate Ia
Ia=(Va-Vb+(Ic*Rcd)+(Ic+Id)*Rde+(Ic+Id+Ie)*Ref+(Ic+Id+Ie+If)*Rfb)/(Rac+Rcd+Rde+Ref+Rfb);

Iac=Ia;
Icd=Ia-Ic;
Ide=Ia-Ic-Id;
Ief=Ia-Ic-Id-Ie;
Ifb=Ia-Ic-Id-Ie-If;

Vd=Va-(Iac*Rac+Icd*Rcd);

printf("Resistance per 1000 m of distributor = %.2f ohm \n\n", R);
printf("Resistance of section AC = %.3f ohm \n", Rac);
printf("Resistance of section CD = %.3f ohm \n", Rcd);
printf("Resistance of section DE = %.3f ohm \n", Rde);
printf("Resistance of section EF = %.3f ohm \n", Ref);
printf("Resistance of section FB = %.3f ohm \n\n", Rfb);

printf("Ia = %.1f A \n\n", Ia);

printf("(i) Current in section AC = Iac = %.2f A \n", Iac);
printf("    Current in section CD = Icd = %.2f A \n", Icd);
printf("    Current in section DE = Ide = %.2f A \n", Ide);
printf("    Current in section EF = Ief = %.2f A \n", Ief);
printf("    Current in section FB = Ifb = %.2f A \n\n", Ifb);

printf("(ii) Voltage at D = Vd = %.2f V \n", Vd  );