summaryrefslogtreecommitdiff
path: root/2078/CH4/EX4.6/Example4_6.sce
blob: e006068f651bcb5db45944700c75447306967022 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Exa 4.6
clc;
clear;
close;
//Given data :
r=2/2;//cm
rdash=0.7788*r;//cm
d12=0.12*100;//cm
d11dash=300;//cm
d12dash=sqrt(300^2+100^2);//cm
d21dash=d12dash;//cm
d22dash=d11dash;//cm
d11=rdash;//cm
d22=rdash;//cm
d12=100;//cm
d21=100;//cm
Dm=(d11dash*d12dash*d21dash*d22dash)^(1/4);//cm
Ds=(d11*d12*d21*d22)^(1/4);//cm
L=0.4*log(Dm/Ds);//mH/km
disp(L,"Loop inductance of line(mH/km)");