1 files changed, 30 insertions, 0 deletions
diff --git a/3369/CH12/EX12.6/Ex12_6.sce b/3369/CH12/EX12.6/Ex12_6.sce
new file mode 100755
index 000000000..c55cf9976
--- /dev/null
+++ b/3369/CH12/EX12.6/Ex12_6.sce
@@ -0,0 +1,30 @@
+//Chapter 12,Example 6, page 409
+//Determine the efective electrical parameters 
+clear
+clc
+rc = 0.0875*(1+0.004*50) // conductor resistance in ohm/km
+Rc = 0.105*85 // ohm
+w = 2*%pi*50
+Rsh = 23.2*10**-6*85*10**5/(%pi*(3^2-2.5^2)) // Resistance of sheath
+D = 8
+rsh = 1/2*(2.5+3)
+Xm = w*2*log(D/rsh)*10**-7*85000
+Ref = Rc + Xm^2*Rsh/(Rsh^2+Xm^2) // Effective AC resistance 
+Xc = 11.1// reactance with sheaths open-circuit
+Xef = Xc-(Xm^2/(Rsh^2+Xm^2)) //Effective reactance per cable
+SlCl = Rsh*Xm^2/(Rc*(Rsh^2+Xm^2)) // Sheath loss/conductor loss
+I = 400 // A
+emf = Xm*I // emf induced per sheath
+printf("\n Conductor resistance = %f ohm",rc)
+printf("\n Conductor resistance for the whole leangth (Rc) = %f ohm",Rc)
+printf("\n Resistance of sheath (Rsh) = %f ohm/Km ",Rsh)
+printf("\n Conductor to sheath mutual inductive reactance (Xm)= %f ohm/m ",Xm)
+printf("\n Effective AC resistance(Ref) = %f ohm ",Ref)
+printf("\n Reactance with sheaths open-circuit(Xc) = %f ohm ",Xc)
+printf("\n Effective reactance per cable(Xef) = %f ohm ",Xef)
+printf("\n Sheath loss/conductor loss = %f ",SlCl)
+printf("\n emf induced per sheath(emf) = %f V",emf)
+
+
+
+