initial commit / add all books

1 files changed, 33 insertions, 0 deletions

diff --git a/3760/CH1/EX1.10/Ex1_10.sce b/3760/CH1/EX1.10/Ex1_10.sce
new file mode 100644
index 000000000..2ab041e7c
--- /dev/null
+++ b/3760/CH1/EX1.10/Ex1_10.sce
@@ -0,0 +1,33 @@
+

+clc;

+E1=250;// voltage on low tension side

+E2=2500; // voltage on high tension side

+k=E2/E1; //turns ratio

+Z=380+230*%i; // given load connected to high tension side

+Zl=Z/k^2; // load referred to low tension side

+zl=0.2+0.7*%i; // leakage impedance of transformer

+zt=Zl+zl; // total series impedance

+ztm=abs(zt); // magnitude of total series impedance

+I1=E1/zt;

+I1m=abs(I1); // magnitude of primary load current 

+I2=I1m/k; // secondary load current

+vt=5*abs(Z);

+printf('secondary terminal voltage is %f V\n',vt);

+R=500; // shunt branch resistance

+X=250; // shunt branch leakage reactance

+Ic=E1/R; // core less component of current

+Im=E1/(%i*X); // magnetizing component of current

+Ie=Ic+Im;// total exciting current

+It=I1+Ie;// total current on low tension side

+Itm=abs(It);

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

+pf=cos(atan(imag(It),real(It)));

+printf('power factor is %f lagging\n',pf),

+lpf=real(Z)/abs(Z);

+op=vt*I2*lpf;

+printf('output power is %f W\n',op);

+pc=Ic^2*R; // core less power

+poh=I1m^2*real(zl); // ohmic losses

+pin=E1*Itm*pf; // input power

+n=(op/pin)*100; // efficiency

+printf('efficiency of transformer is %f percent',n);