initial commit / add all books

1 files changed, 43 insertions, 0 deletions

diff --git a/608/CH25/EX25.06/25_06.sce b/608/CH25/EX25.06/25_06.sce
new file mode 100755
index 000000000..52373c214
--- /dev/null
+++ b/608/CH25/EX25.06/25_06.sce
@@ -0,0 +1,43 @@
+//Problem 25.06: An a.c. network consists of a coil, of inductance 79.58 mH and resistance 18 ohm, in parallel with a capacitor of capacitance 64.96 μF. If the supply voltage is 250/_0° V at 50 Hz, determine (a) the total equivalent circuit impedance, (b) the supply current, (c) the circuit phase angle, (d) the current in the coil, and (e) the current in the capacitor.

+

+//initializing the variables:

+L = 0.07958; // in Henry

+R = 18; // in ohm

+C = 64.96E-6; // in Farad

+rv = 250; // in volts

+thetav = 0; // in degrees

+f = 50; // in Hz

+

+//calculation:

+//Inductive reactance

+XL = 2*%pi*f*L

+//capacitive reactance

+Xc = 1/(2*%pi*f*C)

+//impedance of the coil,

+Zcoil = R + %i*XL

+//impedance presented by the capacitor,

+Zc = -1*%i*Xc

+//Total equivalent circuit impedance,

+ZT = Zcoil*Zc/(Zcoil + Zc)

+//voltage

+V = rv*cos(thetav*%pi/180) + %i*rv*sin(thetav*%pi/180)

+//current, I

+I = V/ZT

+thetai = atan(imag(I)/real(I))*180/%pi

+phi = thetav - thetai

+if (phi>0) then

+    a = "lagging"

+else

+    a = "leading"

+end

+//Current in the coil, ICOIL

+Icoil = V/Zcoil

+//Current in the capacitor, IC

+Ic = V/Zc

+

+printf("\n\n Result \n\n")

+printf("\n (a)the circuit impedance is %.2f + (%.2f)i ohm ",real(ZT), imag(ZT))

+printf("\n (b)supply current, I is %.2f + (%.2f)i A ",real(I), imag(I))

+printf("\n (c)circuit phase relative is %s by %.2f° ",a,abs(phi))

+printf("\n (d)current in coil, Icoil is %.2f + (%.2f)i A ",real(Icoil), imag(Icoil))

+printf("\n (e)current in capacitor, Ic is %.2f + (%.2f)i A ",real(Ic), imag(Ic))
\ No newline at end of file