1 files changed, 25 insertions, 0 deletions
diff --git a/2252/CH7/EX7.3/Ex7_3.sce b/2252/CH7/EX7.3/Ex7_3.sce
new file mode 100755
index 000000000..bf97b140e
--- /dev/null
+++ b/2252/CH7/EX7.3/Ex7_3.sce
@@ -0,0 +1,25 @@
+
+//calculating resistance, reactance and impedance of choke coil
+I=7.5//current flowing through the circuit
+V1=110//voltage across non-inductive resistor
+R=V1/I
+V2=180//voltage across choke coil
+Z=V2/I
+Zt=230/I//impedance of whole circuit
+r=(Zt^2-R^2-Z^2)/(2*R)
+Xl=sqrt(Z^2-r^2)
+mprintf("Reactance of coil=%f ohm\nResistance of coil=%f ohm\nImpedance of coil=%f ohm\n",Xl,r,Z)
+//calculating total resistance and impedance of the circuit
+Rt=r+R
+Zt=sqrt(Rt^2+Xl^2)
+mprintf("Total resistance of circuit=%f ohm\nTotal impedance of circuit=%f ohm\n",Rt,Zt)
+//calculating power absorbed by the coil
+P1=I^2*r
+mprintf("Power absorbed by the coil=%f W\n",P1)
+//calculating power drawn by circuit
+P2=I^2*(r+R)
+mprintf("Power drawn by the circuit=%f W\n",P2)
+//calculating power factor of whole circuit
+pf=Rt/Zt
+mprintf("Power factor of the whole circuit=%f lagging",pf)
+//answers vary from the textbook due to round off error