diff options
Diffstat (limited to '3472/CH25/EX25.3')
| -rw-r--r-- | 3472/CH25/EX25.3/Example25_3.sce | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/3472/CH25/EX25.3/Example25_3.sce b/3472/CH25/EX25.3/Example25_3.sce new file mode 100644 index 000000000..b1ccbba6c --- /dev/null +++ b/3472/CH25/EX25.3/Example25_3.sce @@ -0,0 +1,53 @@ +// 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 18: POWER DISTRIBUTION SYSTEMS
+
+// EXAMPLE : 18.3 :
+// Page number 438-439
+clear ; clc ; close ; // Clear the work space and console
+
+// Given data
+l = 400.0 // Length of cable(m)
+i = 1.0 // Load(A/m)
+I_1 = 120.0 // Current at 40m from end A(A)
+l_1 = 40.0 // Distance from end A(A)
+I_2 = 72.0 // Current at 72m from end A(A)
+l_2 = 120.0 // Distance from end A(A)
+I_3 = 48.0 // Current at 200m from end A(A)
+l_3 = 200.0 // Distance from end A(A)
+I_4 = 120.0 // Current at 320m from end A(A)
+l_4 = 320.0 // Distance from end A(A)
+r = 0.15 // Cable resistance(ohm/km)
+V_A = 250.0 // Voltage at end A(A)
+V_B = 250.0 // Voltage at end A(A)
+
+// Calculations
+I = poly(0,"I") // Current from end A(A)
+A_A1 = l_1*r*(I-(1.0/2)*i*l_1) // Drop over length(V)
+I_d_1 = 40.0 // Distributed tapped off current(A)
+I_A1_A2 = I-l_1-l_2 // Current fed in over length(A)
+A1_A2 = (l_2-l_1)*r*(I_A1_A2-(1.0/2)*i*(l_2-l_1)) // Drop over length(V)
+I_d_2 = 80.0 // Distributed tapped off current(A)
+I_A2_A3 = I_A1_A2-(I_2+I_d_2) // Current fed in over length(A)
+A2_A3 = (l_3-l_2)*r*(I_A2_A3-(1.0/2)*i*(l_3-l_2)) // Drop over length(V)
+I_d_3 = 80.0 // Distributed tapped off current(A)
+I_A3_A4 = I_A2_A3-(I_3+I_d_3) // Current fed in over length(A)
+A3_A4 = (l_4-l_3)*r*(I_A3_A4-(1.0/2)*i*(l_4-l_3)) // Drop over length(V)
+I_d_4 = 120.0 // Distributed tapped off current(A)
+I_A4_B = I_A3_A4-(I_4+I_d_4) // Current fed in over length(A)
+A4_B = (l-l_4)*r*(I_A4_B-(1.0/2)*i*(l-l_4)) // Drop over length(V)
+V_drop = A_A1+A1_A2+A2_A3+A3_A4+A4_B // Total voltage drop in terms of I
+I = roots(V_drop) // Current(A)
+I_total = 760.0 // Total load current(A)
+I_B = I_total-I // Current from B(A)
+A_A3 = 2.0*r/1000*(l_1*(I-20)+(l_2-l_1)*(I-200)+(l_3-l_2)*(I-352)) // Potential drop over length A_A3(V)
+V_A3 = V_A-A_A3 // Voltage at the lowest run lamp(V)
+
+// Results
+disp("PART II - EXAMPLE : 18.3 : SOLUTION :-")
+printf("\nPosition of lowest-run lamp, A_3 = %.f m", l_3)
+printf("\nVoltage at the lowest-run lamp = %.1f V", V_A3)
|