2078/CH7/EX7.1/Example7_1.sce


1
2
3
4
5
6
7
8
9
10

//Exa 7.1
clc;
clear;
close;
//Given data :
r=1;//cm
d=4;//meter
g0=30/sqrt(2);//kV/cm
LineVoltage=sqrt(3)*g0*r*log(d*100/r);//kV
disp(round(LineVoltage),"Line Voltage for comencing of corena(in kV) :");