2078/CH4/EX4.2/Example4_2.sce


1
2
3
4
5
6
7
8
9
10
11
12
13

//Exa 4.2
clc;
clear;
close;
//Given data :
f=50;//Hz
a=10;//cm^2
l=500/1000;//km
r=sqrt(a/%pi);//cm
d=5*100;//cm
r_dash=r*0.7788;//cm
L=0.4*log(d/r_dash)*l;//mH
disp(L,"Loop inductance per km(mH)");