MATLAB CODE:
%air density factor
ad=(3.92*73.1)/(273+26.07);
%Given
b=73.154; %barometric pressure
t=26.67; %temperature
go=21.1; %dielectric strength of air
mo=0.85; %roughness factor
mv=0.72; %roughness factor
r=0.518; %radius in cm
D=244; %distance between two conductors
vo=110/sqrt(3);
%Critical disruptive voltage
vc=go*ad*mo*r*log(244/0.518);
fprintf("The value of Critical Disruptive Voltage = %f V \n",vc)
%Visual disruptive voltage
vv=ad*mv*go*r*(1+(0.3/sqrt(0.9568*0.518)))*log(244/0.518);
fprintf("The value of Visual Disruptive Voltage = %f V\n",vv)
%Power Loss in fair weather
pl=0.00241*(75/ad)*sqrt(r/D)*((vo-54.27)^2)*160*3;
fprintf("The value of Power Loss in fair weather = %f KW\n",pl)
%Power Loss in foul weather
pfl=0.00241*(75/ad)*sqrt(r/D)*((vo-(0.8*54.27))^2)*160*3;
fprintf("The value of Power loss in foul weather = %f KW\n",pfl)
OUTPUT:
The value of Critical Disruptive Voltage = 54.788087 V
The value of Visual Disruptive Voltage = 66.185054 V
The value of Power Loss in fair weather = 356.093976 KW/phase/km
The value of Power loss in foul weather = 1684.333750 KW/phase/km