From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3472/CH14/EX14.9/Example14_9.sce | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 3472/CH14/EX14.9/Example14_9.sce

(limited to '3472/CH14/EX14.9')

diff --git a/3472/CH14/EX14.9/Example14_9.sce b/3472/CH14/EX14.9/Example14_9.sce
new file mode 100644
index 000000000..155fe19f0
--- /dev/null
+++ b/3472/CH14/EX14.9/Example14_9.sce
@@ -0,0 +1,37 @@
+// A Texbook on POWER SYSTEM ENGINEERING
+// A.Chakrabarti, M.L.Soni, P.V.Gupta, U.S.Bhatnagar
+// DHANPAT RAI & Co.
+// SECOND EDITION 
+
+// PART II : TRANSMISSION AND DISTRIBUTION
+// CHAPTER 7: UNDERGROUND CABLES
+
+// EXAMPLE : 7.9 :
+// Page number 215
+clear ; clc ; close ; // Clear the work space and console
+
+// Given data
+d = 2.5             // Conductor diameter(cm)
+D = 6.0             // Sheath diameter(cm)
+V_l = 66.0          // Line Voltage(kV)
+
+// Calculations
+alpha = (D/d)**(1.0/3)               // α
+d_1 = d*alpha                        // Best position of first intersheath(cm)
+d_2 = d_1*alpha                      // Best position of second intersheath(cm)
+V = V_l/3**0.5*2**0.5                // Peak voltage on core(kV)
+V_2 = V/(1+(1/alpha)+(1/alpha**2))   // Peak voltage on second intersheath(kV)
+V_1 = (1+(1/alpha))*V_2              // Voltage on first intersheath(kV)
+stress_max = 2*V/(d*log(D/d))        // Maximum stress without intersheath(kV/cm)
+stress_min = stress_max*d/D          // Minimum stress without intersheath(kV/cm)
+g_max = V*3/(1+alpha+alpha**2)       // Maximum stress with intersheath(kV/cm)
+
+// Results
+disp("PART II - EXAMPLE : 7.9 : SOLUTION :-")
+printf("\nMaximum stress without intersheath = %.2f kV/cm", stress_max)
+printf("\nBest position of first intersheath, d_1 = %.2f cm", d_1)
+printf("\nBest position of second intersheath, d_2 = %.3f cm", d_2)
+printf("\nMaximum stress with intersheath = %.2f kV/cm", g_max)
+printf("\nVoltage on the first intersheath, V_1 = %.2f kV", V_1)
+printf("\nVoltage on the second intersheath, V_2 = %.2f kV \n", V_2)
+printf("\nNOTE: Changes in the obtained answer is due to more precision here") 
-- 
cgit