summaryrefslogtreecommitdiff
path: root/3888/CH14/EX14.1/Ex14_1.sce
blob: 8ba96a1f3a30db33f83bd653500b1ca2cfa3c7a2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
//Electric Power Generation, Transmission and Distribution by S.N.Singh
//Publisher:PHI Learning Private Limited
//Year: 2012 ; Edition - 2 
//Example 14.1
//Scilab Version : 6.0.0    ; OS : Windows

clc;
clear;



d=600;                                                      //Distance between three conductors in cm
b=72;                                                       //Pressure in Hg
r=1;                                                        //Radius of the conductor in cm
t=27;                                                       //Air temperature in Celcius
m=0.90;                                                     //Irregularity factor
mv=0.82;                                                    //Surface factor
adf=3.92*b/(273+t);                                         //Air density factor 
Vc=r*21.1*m*0.9408*log(d/r);                                //Phase to neutral critical disruptive voltage in kV
cdv=Vc*sqrt(3);                                             //Line to line critical disruptive voltage in kV
Vv=21.1*mv*r*0.9408*(1+(0.3/sqrt(r*0.9408)))*log(d/r);      //Critical visual disruptive voltage
cvdv=Vv*sqrt(3);                                            //Line to line critical visual disruptive voltage in kV


printf("\nThe critical disruptive voltage is %.2f kV",cdv);
printf("\nThe  visual critical disruptive voltage is %.2f kV",cvdv);