summaryrefslogtreecommitdiff
path: root/1109/CH5/EX5.6/5_6.sce
blob: 95c8a7ec3c087269e8693f6d079833720e888b0d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clear;
clc;
R=25;C=0.04*(10^-6);L=0.6*(10^-3);G=0;l=45*(10^-3);r=20;d=1;f=1000;
Rc=R+(r/d);
Lc=L+(l/d)
w=2*%pi*f;
Z=Rc+(%i*w*Lc);
Y=G+(%i*w*C);
P=sqrt(Z*Y);
a=real(P);
printf("-Attenuation per km line = %f neper/km\n",round(a*10^5)/10^5);
Fc=1/(%pi*(sqrt(Lc*C*d)));
printf("-Highest frequency of transmission will be cutoff frequency = %f kHz",round(Fc*(10^-3)*10^3)/10^3);