summaryrefslogtreecommitdiff
path: root/2078/CH8/EX8.1/Example8_1.sce
blob: dadd485e384bf942ad60463124bc457c45955d3e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Exa 8.1
clc;
clear;
close;
format('v',6);
//Given data :
f=50;//Hz
hor_con=1.2;//horizontal configuration spacing in m
x=0.85;//telephone line location below power line in meter
I=120;//current in power line in A
d=0.4;//spacing between conductors in meter
dAD=sqrt(x^2+((hor_con+d)/2)^2);//m
dAC=sqrt(x^2+((hor_con-d)/2)^2);//m
dBD=dAC;//m
dBC=dAD;//m
M=d*log(sqrt(dAD*dBC/dAC/dBD));//mh/km
Vm=2*%pi*f*M*10^-3*I;//V
disp(Vm,"Voltage induced per Km in the line in Volt :");