2 files changed, 42 insertions, 0 deletions
diff --git a/1430/CH7/EX7.8/exa7_8.sce b/1430/CH7/EX7.8/exa7_8.sce
new file mode 100644
index 000000000..64a153be1
--- /dev/null
+++ b/1430/CH7/EX7.8/exa7_8.sce
@@ -0,0 +1,18 @@
+// Example 7.8
+// Three-Phase Circuit with Line Impedance
+V_ab_m=45*10^3; // Volts
+Z_l=complex(0.5,3); // Each transmission line impedance
+Z=complex(4.5,9); // Load impedance
+V_l_m=V_ab_m // Line voltage
+V_phi=V_ab_m/sqrt(3); // Phase voltage
+Z_Y=Z_l+Z; // total phase impedance
+I_l=V_phi/(abs(Z_Y));
+P= 3*real(Z_Y)*(I_l)^2; // Real power generated by source
+Q= 3*imag(Z_Y)*(I_l)^2; // Reactive power generated by source
+P_L=3*real(Z)*I_l^2; // Real power that reaches the load
+Eff=P_L/P;
+disp(I_l,"RMS line current(in Amps)=")
+disp(P,"Real power generated by source(in Watt)= ")
+disp(Q,"Reactive power generated by source(in VAr)=")
+disp(P_L,"Real power that reaches the load(in Watt)=")
+disp(Eff,"Power transfer Efficiency=")
diff --git a/1430/CH7/EX7.8/exa7_8.txt b/1430/CH7/EX7.8/exa7_8.txt
new file mode 100644
index 000000000..b475cebec
--- /dev/null
+++ b/1430/CH7/EX7.8/exa7_8.txt
@@ -0,0 +1,24 @@
+ 
+ 
+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 7\exa7.8.sce', -1)
+ 
+ RMS line current(in Amps)=   
+ 
+    1998.5202  
+ 
+ Real power generated by source(in Watt)=    
+ 
+    59911243.  
+ 
+ Reactive power generated by source(in VAr)=   
+ 
+    1.438D+08  
+ 
+ Real power that reaches the load(in Watt)=   
+ 
+    53920118.  
+ 
+ Power transfer Efficiency=   
+ 
+    0.9  
+