1 files changed, 34 insertions, 0 deletions
diff --git a/3760/CH1/EX1.8/Ex1_8.sce b/3760/CH1/EX1.8/Ex1_8.sce
new file mode 100644
index 000000000..57ec999c1
--- /dev/null
+++ b/3760/CH1/EX1.8/Ex1_8.sce
@@ -0,0 +1,34 @@
+clc;
+P=33000; // rated power of transformer
+E1=2200; // primary voltage
+E2=220; // secondary voltage
+k=E2/E1; // turn's ratio
+r1=2.4; //primary winding resistance in ohm
+x1=6; // primary winding reactance in ohm
+r2=0.03; //secondary winding resistance in ohm
+x2=0.07; //secondary winding reactance in ohm
+r12=r1*k^2; //primary resistance referred to secondary
+x12=x1*k^2; //primary reactance referred to secondary
+printf('primary resistance and reactance referred to secondary are %f ohm and %f ohm\n',r12,x12);
+r21=r2/k^2; //secondary resistance referred to primary
+x21=x2/k^2; //secondary reactance referred to primary
+printf('secondary resistance and reactance referred to primary are %f ohm and %f ohm\n',r21,x21);
+re1=r1+r21;
+xe1=x1+x21;
+printf('equivalent resistance and reactance referred to primary are %f ohm and %f ohm\n',re1,xe1);
+re2=r2+r12;
+xe2=x2+x12;
+printf('equivalent resistance and reactance referred to secondary are %f ohm and %f ohm\n',re2,xe2);
+Ip=P/E1;
+printf('primary full load current is %f A\n',Ip);
+Is=P/E2;
+printf('secondary full load current is %f A\n',Is);
+O=Ip^2*re1;
+printf('ohmic losses at full load is %f W\n',O);
+Ils=160; // secondary side load current
+Ilp=Ils*k; // primary side load current
+Ze1=sqrt(re1^2+xe1^2);
+V=Ilp*Ze1;
+printf('Voltage applied to h.v side in order to obtain 160A short circuit cirrent in low voltage winding is %f V\n',V);
+Pi=Ilp^2*re1;
+printf('power input is %f W',Pi);