1 files changed, 28 insertions, 0 deletions
diff --git a/3472/CH10/EX10.3/Example10_3.sce b/3472/CH10/EX10.3/Example10_3.sce
new file mode 100644
index 000000000..1f62b74d2
--- /dev/null
+++ b/3472/CH10/EX10.3/Example10_3.sce
@@ -0,0 +1,28 @@
+// 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 3: STEADY STATE CHARACTERISTICS AND PERFORMANCE OF TRANSMISSION LINES
+
+// EXAMPLE : 3.3 :
+// Page number 129
+clear ; clc ; close ; // Clear the work space and console
+
+// Given data
+I = 200.0               // Line current(A)
+PF_r = 0.8              // Receiving end lagging power factor
+R = 0.6                 // Total resistance of the line(ohm)
+X = 1.0                 // Total inductive resistance of the line(ohm)
+n  = 0.93               // Efficiency(%)
+
+// Calculations
+V_r = 3*I**2*R/((3*I*PF_r/n)-3*I*PF_r)   // Receiving end phase voltage(V)
+sin_phi_r = (1-PF_r**2)**0.5             // Sinφ_R
+V_s = V_r+I*R*PF_r+I*X*sin_phi_r         // Sending end voltage(V)
+V_s_ll = 3**0.5*V_s                      // Sending end line voltage(V)
+
+// Results
+disp("PART II - EXAMPLE : 3.3 : SOLUTION :-")
+printf("\nSending end voltage, V_s(line-line)  = %.2f V", V_s_ll)