initial commit / add all books

1 files changed, 19 insertions, 0 deletions

diff --git a/3760/CH1/EX1.3/Ex1_3.sce b/3760/CH1/EX1.3/Ex1_3.sce
new file mode 100644
index 000000000..f3d33b98e
--- /dev/null
+++ b/3760/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,19 @@
+clc;

+f=50; // frequency in hertz

+E1=2200; // supply voltage in volts

+E2=220; // secondary side voltage in volts

+P=361; // core loss in watts

+Io=0.6; // exciting current in Ampere

+Is=60; // secondary load current in Ampere

+pf=0.8; // power factor 

+Ic=P/E1; // core loss component of current

+printf('core loss component of exciting current is %f A\n',Ic);

+Im=sqrt(Io^2-Ic^2); // magnetising component of current

+printf('magnetising component of exciting current is %f A\n',Im);

+ip=Is*(E2/E1); // primary current required to neutralise the secondary current

+Iv=ip*pf+Ic; // total vertical compartment of primary current

+Ih=ip*0.6+Im; // total horizontal compartment of primary current,pf cos(theta)=0.8 so sin(theta)=0.6

+Ip=sqrt(Iv^2+Ih^2); // toatl primary current

+printf('Total primary current is %f A\n',Ip);

+ppf=Iv/Ip; // primary power factor

+printf('primary power factor is %f (lagging)',ppf);