summaryrefslogtreecommitdiff
path: root/98/CH13/EX13.2/example13_2.sce
blob: 5f57ae1c4526840ed5928f1e900a1ca3c9fc3612 (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
//Chapter 13
//Example 13_2
//Page 314

clear;clc;

ll=300;
max_drop=10;
p=1.78*1e-8;
Lac=40;
Lcd=60;
Lde=50;
Lef=100;
Lfb=50;
Ic=30;
Id=40;
Ie=100;
If=50;

Ief=If;
Ide=Ief+Ie;
Icd=Ide+Id;
Iac=Icd+Ic;

Rac=Lac/100;
Rcd=Lcd/100;
Rde=Lde/100;
Ref=Lef/100;

vd=Iac*Rac+Icd*Rcd+Ide*Rde+Ief*Ref;
r=max_drop/vd;
//for 100 m length of the conductor area is given by,
area=p*100*2/r;

printf("Resistance of 100 m length of distributor = %.5f ohm \n\n", r);
printf("Area = %.3f cm^2 \n", area*1e4);