2 files changed, 36 insertions, 0 deletions
diff --git a/1430/CH7/EX7.4/exa7_4.sce b/1430/CH7/EX7.4/exa7_4.sce
new file mode 100644
index 000000000..56c441e2c
--- /dev/null
+++ b/1430/CH7/EX7.4/exa7_4.sce
@@ -0,0 +1,20 @@
+// Example 7.4
+// Power-Transfer Efficiency
+// from figure 7.8
+V_rms=300; // Volts
+R_s=2;// Ohms
+Z_R= 20;
+Z_C= -%i*10;
+Z_RC=(Z_C*Z_R)/(Z_C+Z_R);
+// Total impedance seen by source
+Z=R_s+Z_RC;
+I_rms=V_rms/(abs(Z)); // RMS value of current
+P=real(Z)*I_rms^2;// Real Power
+Q= imag(Z)*I_rms^2; // Reactive Power
+P_s= R_s*I_rms^2;
+P_L=real(Z_RC)*I_rms^2;
+// Power transfer efficiency
+Eff=P_L/P;
+disp(I_rms,"RMS valur of current(in Amps)=")
+disp(P,"Real Power(in Watts)=")
+disp(Q,"Reactive Power(in VAr)=")
diff --git a/1430/CH7/EX7.4/exa7_4.txt b/1430/CH7/EX7.4/exa7_4.txt
new file mode 100644
index 000000000..c30efeaa9
--- /dev/null
+++ b/1430/CH7/EX7.4/exa7_4.txt
@@ -0,0 +1,16 @@
+ 
+ 
+-->exec('C:\Users\sangeet\Documents\Scilab\Circuits\Chapter 7\exa7.4.sce', -1)
+ 
+ RMS valur of current(in Amps)=   
+ 
+    30.  
+ 
+ Real Power(in Watts)=   
+ 
+    5400.  
+ 
+ Reactive Power(in VAr)=   
+ 
+  - 7200.  
+