summaryrefslogtreecommitdiff
path: root/1802/CH5/EX5.6/Exa5_6.sce
blob: c326ced207c5ccfba7f1a92b1c3eb2d48fe5fe9d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Exa 5.6
clc;
clear;
close;
//Given Data :
format('v',6);
P_del=10000*10^3;//in Watts
cos_fir=0.8;//unitless
R=0.95;//in ohm/km
VR=132*10^3;//in volt
IL=P_del/(sqrt(3)*VR*cos_fir);//in Ampere
//TotalLosses=3*I^2*R and should be equal to (7.5/100)*P_del;//in watt
l=(7.5/100)*P_del/(3*IL^2*R);//in km
disp(l,"Distance (in km) :");