initial commit / add all books

1 files changed, 26 insertions, 0 deletions

diff --git a/3760/CH1/EX1.18/Ex1_18.sce b/3760/CH1/EX1.18/Ex1_18.sce
new file mode 100644
index 000000000..4dcbbda5d
--- /dev/null
+++ b/3760/CH1/EX1.18/Ex1_18.sce
@@ -0,0 +1,26 @@
+clc;

+P=20000; // rated power of transformer

+E1=2500; // primary side voltage

+E2=500; // secondary side voltage

+r1=8; // primary resistance in ohm

+x1=17; // primary leakage reactance in ohm

+r2=0.3; // secondary resistance in ohm

+x2=0.7; // secondary leakage reactane in ohm

+k=E2/E1; // turns ratio

+re2=r2+r1*k^2; // equivalent resistance referred to secondary winding

+xe2=x2+x1*k^2; // equivalent leakage reactance referred to secondary winding

+Il=P/E2; // full load secondary current

+disp('case a');

+pf=0.8; // lagging power factor

+vd=Il*(re2*pf+xe2*sqrt(1-pf^2)); // Voltage drop in impedance in volts

+vt=E2-vd; // secondary terminal voltage

+printf('secondary terminal voltage for a lagging power factor is %f v\n',vt);

+vr=((E2-vt)/E2)*100; // voltage regulation

+printf('voltage regulation for a lagging power factor is %f percent\n',vr);

+disp('case b');

+pf=0.8; // leading power factor

+vd=Il*(re2*pf-xe2*sqrt(1-pf^2)); // Voltage drop in impedance in volts

+vt=E2-vd; // secondary terminal voltage

+printf('secondary terminal voltage for a leading power factor is %f v\n',vt);

+vr=((E2-vt)/E2)*100; // voltage regulation

+printf('voltage regulation for a leading power factor is %f percent\n',vr);