1 files changed, 27 insertions, 0 deletions
diff --git a/3745/CH1/EX1.42/Ex1_42.sce b/3745/CH1/EX1.42/Ex1_42.sce
new file mode 100644
index 000000000..05a205f74
--- /dev/null
+++ b/3745/CH1/EX1.42/Ex1_42.sce
@@ -0,0 +1,27 @@
+// Ex 42 Page 386
+
+clc;clear;close;
+// Given
+V1=250;//V
+V2=150;//V
+Vs1=200;//V
+Load1=5;//kW
+pf1=0.8;//lagging
+Load2=2;//kW
+pf2=1;//unity
+Vs2=100;//V
+
+I1=Load1*1000/V1/pf1;//A
+t1_ratio=V1/Vs1;//
+Ip1=I1*t1_ratio;//A at 0.8 pf (current drawn by primary)
+
+I2=Load2*1000/Vs2/pf2;//A
+t2_ratio=Vs2/V2;//
+Ip2=I2*t2_ratio;//A at 0.8 pf (current drawn by primary)
+
+Ipx=Ip1*pf1+Ip2;//A
+Ipy=Ip1*sqrt(1-pf1**2);//A
+I3=sqrt(Ipx**2+Ipy**2);//A
+printf("Current drawn by the transformer=%.2f A",I3)
+pf=Ipx/I3;//power factor
+printf("\n power factor = %.1f lagging",pf)