From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3888/CH14/EX14.1/Ex14_1.sce | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 3888/CH14/EX14.1/Ex14_1.sce

(limited to '3888/CH14/EX14.1/Ex14_1.sce')

diff --git a/3888/CH14/EX14.1/Ex14_1.sce b/3888/CH14/EX14.1/Ex14_1.sce
new file mode 100644
index 000000000..8ba96a1f3
--- /dev/null
+++ b/3888/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,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);
+
+
+
+
+
+
-- 
cgit