initial commit / add all books

12 files changed, 346 insertions, 0 deletions

diff --git a/608/CH24/EX24.01/24_01.sce b/608/CH24/EX24.01/24_01.sce
new file mode 100755
index 000000000..da0743913
--- /dev/null
+++ b/608/CH24/EX24.01/24_01.sce
@@ -0,0 +1,34 @@
+//Problem 24.01: Determine the values of the resistance and the series-connected inductance or capacitance for each of the following impedances:(a)(12 + i5)ohm (b)-i40 ohm (c)30/_60° ohm (d)2.20 x 10^6 /_-30° ohm. Assume for each a frequency of 50 Hz.

+

+//initializing the variables:

+z1 = 12 + %i*5;

+z2 = -40*%i;

+r3 = 30;

+theta3 = 60;  // in degrees

+r4 = 2.20E6; 

+theta4 = -30; // in degrees

+f = 50; // in Hz

+

+//calculation:

+//for an R–L series circuit, impedance

+// Z = R + iXL

+Ra = real(z1)

+XLa = imag(z1)

+La = XLa/(2*%pi*f)

+//for a purely capacitive circuit, impedance Z = -iXc

+Xcb = abs(imag(z2))

+Cb = 1/(2*%pi*f*Xcb)

+z3 = r3*cos(theta3*%pi/180) + %i*(r3*sin(theta3*%pi/180))

+Rc = real(z3)

+XLc = imag(z3)

+Lc = XLc/(2*%pi*f)

+z4 = r4*cos(theta4*%pi/180) + %i*(r4*sin(theta4*%pi/180))

+Rd = real(z4)

+Xcd = abs(imag(z4))

+Cd = 1/(2*%pi*f*Xcd)

+

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

+printf("\n (a)an impedance (12 + i5)ohm represents a resistance of %.0f ohm in series with an inductance of %.2E", Ra,La)

+printf("\n (b)an impedance -i40 ohm represents a pure capacitor of capacitance %.2E", Cb)

+printf("\n (c)an impedance 30/_60° ohm represents a resistance of %.0f ohm in series with an inductance of %.2E", Rc,Lc)

+printf("\n (d)an impedance 2.20 x 10^6 /_-30° ohm represents a resistance of %.2E ohm in series with a capacitor of capacitance %.2E",Rd, Cd)
\ No newline at end of file
diff --git a/608/CH24/EX24.02/24_02.sce b/608/CH24/EX24.02/24_02.sce
new file mode 100755
index 000000000..cd3f7cde2
--- /dev/null
+++ b/608/CH24/EX24.02/24_02.sce
@@ -0,0 +1,27 @@
+//Problem 24.02: Determine, in polar and rectangular forms, the current flowing in an inductor of negligible resistance and inductance 159.2 mH when it is connected to a 250 V, 50 Hz supply.

+

+//initializing the variables:

+L = 0.1592 ; // in Henry

+V = 250; // in Volts

+f = 50; // in Hz

+R = 0; // in ohms

+

+//calculation:

+//for an R–L series circuit, impedance

+// Z = R + iXL

+XL = 2*%pi*f*L

+Z = R + %i*XL

+I = V/Z

+x = real(I)

+y = imag(I)

+r = (x^2 + y^2)^0.5

+if ((x==0)&(y<0)) then

+    theta = -90

+elseif ((x==0)&(y>0)) then

+    theta = +90

+else

+    theta = atan(y/x)*180/%pi

+end

+

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

+printf("\n current is (%.0f/_%.0f°) A", r, theta)
\ No newline at end of file
diff --git a/608/CH24/EX24.03/24_03.sce b/608/CH24/EX24.03/24_03.sce
new file mode 100755
index 000000000..aeed42f53
--- /dev/null
+++ b/608/CH24/EX24.03/24_03.sce
@@ -0,0 +1,20 @@
+//Problem 24.03: A 3 μF capacitor is connected to a supply of frequency 1 kHz and a current of 2.83/_90° A flows. Determine the value of the supply p.d.

+

+//initializing the variables:

+C = 3E-6 ; // in farad

+f = 1000; // in Hz

+ri = 2.83;

+thetai = 90; // in degrees

+

+//calculation:

+//Capacitive reactance Xc

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

+// circuit impedance Z

+Z = -1*%i*Xc

+I = ri*cos(thetai*%pi/180) + %i*ri*sin(thetai*%pi/180)

+V = I*Z

+x = real(V)

+y = imag(V)

+

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

+printf("\n supply p.d. is %.0f + (%.0f) V", x,y)
\ No newline at end of file
diff --git a/608/CH24/EX24.04/24_04.sce b/608/CH24/EX24.04/24_04.sce
new file mode 100755
index 000000000..f59dd5524
--- /dev/null
+++ b/608/CH24/EX24.04/24_04.sce
@@ -0,0 +1,34 @@
+//Problem 24.04: The impedance of an electrical circuit is (30 - i50) ohms.Determine (a) the resistance, (b) the capacitance, (c) the modulus of the impedance, and (d) the current flowing and its phase angle, when the circuit is connected to a 240 V, 50 Hz supply.

+

+//initializing the variables:

+V = 240; // in Volts

+f = 50; // in Hz

+Z = 30 - %i*50;

+

+//calculation:

+//Since impedance Z = 30 - i50,

+//resistance

+R = real(Z)

+//capacitive reactance

+Xc = abs(imag(Z))

+//capacitance

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

+//modulus of impedance

+modZ = (R^2 + Xc^2)^0.5

+I = V/Z

+x = real(I)

+y = imag(I)

+r = (x^2 + y^2)^0.5

+if ((x==0)&(y<0)) then

+    theta = -90

+elseif ((x==0)&(y>0)) then

+    theta = +90

+else

+    theta = atan(y/x)*180/%pi

+end

+

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

+printf("\n (a)resistance is %.0f ohm", R)

+printf("\n (b)capacitance is %.2E Farad", C)

+printf("\n (c)modulus of impedance is %.2f ohm", modZ)

+printf("\n (d)current flowing and its phase angle is (%.2f/_%.2f°) A", r, theta)
\ No newline at end of file
diff --git a/608/CH24/EX24.05/24_05.sce b/608/CH24/EX24.05/24_05.sce
new file mode 100755
index 000000000..34b8162d8
--- /dev/null
+++ b/608/CH24/EX24.05/24_05.sce
@@ -0,0 +1,43 @@
+//Problem 24.05: A 200 V, 50 Hz supply is connected across a coil of negligible resistance and inductance 0.15 H connected in series with a 32 ohm resistor. Determine (a) the impedance of the circuit, (b) the current and circuit phase angle, (c) the p.d. across the 32 ohm resistor, and (d) the p.d. across the coil.

+

+//initializing the variables:

+V = 200; // in Volts

+f = 50; // in Hz

+R = 32; // in ohms

+L = 0.15; // in Henry

+

+//calculation:

+//Inductive reactance XL

+XL = 2*%pi*f*L

+//impedance, Z

+Z = R + %i*XL

+//Current I

+I = V/Z

+xi = real(I)

+yi = imag(I)

+ri = (xi^2 + yi^2)^0.5

+if ((xi==0)&(yi<0)) then

+    thetai = -90

+elseif ((xi==0)&(yi>0)) then

+    thetai = +90

+else

+    thetai = atan(yi/xi)*180/%pi

+end

+//P.d. across the resistor

+VR = I*R

+xr = real(VR)

+yr = imag(VR)

+rr = (xr^2 + yr^2)^0.5

+thetar = atan(yr/xr)*180/%pi

+//P.d. across the coil, VL

+VL = I*%i*XL

+xl = real(VL)

+yl = imag(VL)

+rl = (xl^2 + yl^2)^0.5

+thetal = atan(yl/xl)*180/%pi

+

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

+printf("\n (a)impedance is %.0f + (%.1f)i ohm", real(Z), imag(Z))

+printf("\n (b)current flowing and its phase angle is (%.2f/_%.2f°) A", ri, thetai)

+printf("\n (c)P.d. across the resistor is (%.2f/_%.2f°) V", rr,thetar)

+printf("\n (d)P.d. across the coil, VL is (%.2f/_%.2f°) V", rl, thetal)
\ No newline at end of file
diff --git a/608/CH24/EX24.06/24_06.sce b/608/CH24/EX24.06/24_06.sce
new file mode 100755
index 000000000..0218f0b51
--- /dev/null
+++ b/608/CH24/EX24.06/24_06.sce
@@ -0,0 +1,21 @@
+//Problem 24.06: Determine the value of impedance if a current of (7+i16)A flows in a circuit when the supply voltage is (120+i200)V. If the frequency of the supply is 5 MHz, determine the value of the components forming the series circuit.

+

+//initializing the variables:

+V = 120 + %i*200; // in Volts

+f = 5E6; // in Hz

+I = 7 + %i*16;  // in amperes

+

+//calculation:

+//impedance, Z

+Z = V/I

+R = real(Z)

+X = imag(Z) 

+if ((R>0)&(X<0)) then

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

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

+    printf("\n The series circuit thus consists of a resistor of resistance %.2f ohm and a capacitor of capacitance %.2E Farad\n",R,C)

+elseif ((R>0)&(X>0)) then

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

+    L = 2*%pi*f*X

+    printf("\n The series circuit thus consists of a resistor of resistance %.2f ohm and a inductor of insuctance %.2E Henry\n",R,L)

+end
\ No newline at end of file
diff --git a/608/CH24/EX24.07/24_07.sce b/608/CH24/EX24.07/24_07.sce
new file mode 100755
index 000000000..862ea67d5
--- /dev/null
+++ b/608/CH24/EX24.07/24_07.sce
@@ -0,0 +1,24 @@
+//Problem 24.07: For the circuit shown in Figure 24.11, determine the value of impedance Z2.

+

+//initializing the variables:

+rv = 70; // in volts

+thetav = 30; // in degrees

+ri = 3.5; // in amperes

+thetai = -20; // in degrees

+//z1 consist of two resistance

+R1 = 4.36; // in ohms

+R2 = -2.1*%i; // in ohms

+

+//calculation:

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

+I = ri*cos(thetai*%pi/180) + %i*ri*sin(thetai*%pi/180)

+//impedance, Z

+Z = V/I

+//Total impedance Z = z1 + z2

+Z1 = R1 + R2

+Z2 = Z - Z1

+x = real(Z2)

+y = imag(Z2) 

+

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

+printf("\n impedance Z2 is %.2f + (%.2f) ohm\n",x,y)
\ No newline at end of file
diff --git a/608/CH24/EX24.08/24_08.sce b/608/CH24/EX24.08/24_08.sce
new file mode 100755
index 000000000..ae16b15bd
--- /dev/null
+++ b/608/CH24/EX24.08/24_08.sce
@@ -0,0 +1,29 @@
+//Problem 24.08: A circuit comprises a resistance of 90 ohm in series with an inductor of inductive reactance 150 ohm. If the supply current is(1.35/_0°)A, determine (a) the supply voltage, (b) the voltage across the 90 ohm resistance, (c) the voltage across the inductance, and (d) the circuit phase angle. Draw the phasor diagram. 

+

+//initializing the variables:

+R = 90; // in ohms

+XL = 150; // in ohms

+ri = 1.35; // in amperes

+thetai = 0; // in degrees

+

+//calculation:

+I = ri*cos(thetai*%pi/180) + %i*ri*sin(thetai*%pi/180)

+//Circuit impedance Z

+Z = R + %i*XL

+//Supply voltage, V

+V = I*Z

+//Voltage across 90 ohm resistor

+VR = real(V)

+//Voltage across inductance, VL

+VL = imag(V)

+xv = real(V)

+yv = imag(V)

+rv = (xv^2 + yv^2)^0.5

+thetav = atan(yv/xv)*180/%pi

+phi = thetav - thetai

+

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

+printf("\n (a)Supply voltage, V is %.2f + (%.2f)i V",xv,yv)

+printf("\n (b)Voltage across 90 ohm resistor, VR is %.2f V",VR)

+printf("\n (c)Voltage across inductance, VL is %.2f V",VL)

+printf("\n (d)Circuit phase angle is %.2f°",phi)
\ No newline at end of file
diff --git a/608/CH24/EX24.09/24_09.sce b/608/CH24/EX24.09/24_09.sce
new file mode 100755
index 000000000..f54b72242
--- /dev/null
+++ b/608/CH24/EX24.09/24_09.sce
@@ -0,0 +1,28 @@
+//Problem 24.09: A coil of resistance 25 ohm and inductance 20 mH has an alternating voltage given by v = 282.8sin(628.4t + pi/3) volts applied across it. Determine (a) the rms value of voltage (in polar form), (b) the circuit impedance, (c) the rms current flowing, and (d) the circuit phase angle.

+

+//initializing the variables:

+R = 25; // in ohms

+L = 0.02; // in henry

+Vm = 282.8; // in volts

+w = 628.4; // in rad/sec

+phiv = %pi/3; // phase angle

+

+//calculation:

+//rms voltage

+Vrms = 0.707*Vm*cos(phiv) + %i*0.707*Vm*sin(phiv)

+//frequency

+f = w/(2*%pi)

+//Inductive reactance XL

+XL = 2*%pi*f*L

+//Circuit impedance Z

+Z = R + %i*XL

+//Rms current

+Irms = Vrms/Z

+phii = atan(imag(Irms)/real(Irms))*180/%pi

+phi = phiv*180/%pi - phii

+

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

+printf("\n (a)the rms value of voltage is %.2f + (%.2f)i V ",real(Vrms), imag(Vrms))

+printf("\n (b)the circuit impedance is %.2f + (%.2f)i ohm ",R, XL)

+printf("\n (c)the rms current flowing is %.2f + (%.2f)i A ",real(Irms), imag(Irms))

+printf("\n (d)Circuit phase angle is %.2f° ",phi)
\ No newline at end of file
diff --git a/608/CH24/EX24.10/24_10.sce b/608/CH24/EX24.10/24_10.sce
new file mode 100755
index 000000000..8114102c1
--- /dev/null
+++ b/608/CH24/EX24.10/24_10.sce
@@ -0,0 +1,24 @@
+//Problem 24.10: A 240 V, 50 Hz voltage is applied across a series circuit comprising a coil of resistance 12 ohm and inductance 0.10 H, and 120 μF capacitor. Determine the current flowing in the circuit.

+

+//initializing the variables:

+R = 12; // in ohms

+L = 0.10; // in henry

+C = 120E-6; // in Farads

+f = 50; // in Hz

+V = 240; // in volts

+

+//calculation:

+//Inductive reactance, XL

+XL = 2*%pi*f*L

+//Capacitive reactance, Xc

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

+//Circuit impedance Z

+Z = R + %i*(XL - Xc)

+I = V/Z

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

+phiv = 0 // in degrees

+phi = phiv - phii

+

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

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

+printf("and Circuit phase angle is %.2f°\n",phi)
\ No newline at end of file
diff --git a/608/CH24/EX24.11/24_11.sce b/608/CH24/EX24.11/24_11.sce
new file mode 100755
index 000000000..73e0e273f
--- /dev/null
+++ b/608/CH24/EX24.11/24_11.sce
@@ -0,0 +1,29 @@
+//Problem 24.11:A coil of resistance R ohms and inductance L henrys is connected in series with a 50 μF capacitor. If the supply voltage is 225 V at 50 Hz and the current flowing in the circuit is 1.56/_-30° A, determine the values of R and L. Determine also the voltage across the coil and the voltage across the capacitor.

+

+//initializing the variables:

+C = 50E-6; // in Farads

+f = 50; // in Hz

+V = 225; // in volts

+ri = 1.5; // in Amperes

+thetai = -30; // in degrees

+

+//calculation:

+I = ri*cos(thetai*%pi/180) + %i*ri*sin(thetai*%pi/180)

+//Capacitive reactance, Xc

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

+//Circuit impedance Z

+Z = V/I

+R = real(Z)

+XL = imag(Z) + Xc

+//inductance L

+L = XL/(2*%pi*f)

+//Voltage across coil

+Zcoil = R + %i*XL

+Vcoil = I*Zcoil

+//Voltage across capacitor,

+Vc = -1*I*Xc*%i

+

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

+printf("\n (a)resistance is %.2f ohm and inductance is %.2f H ",R, L)

+printf("\n (b)voltage across the coil is %.2f + (%.2f)i V ",real(Vcoil), imag(Vcoil))

+printf("\n (c)voltage across the capacitor is %.2f + (%.2f)i V ",real(Vc), imag(Vc))
\ No newline at end of file
diff --git a/608/CH24/EX24.12/24_12.sce b/608/CH24/EX24.12/24_12.sce
new file mode 100755
index 000000000..7bfc78088
--- /dev/null
+++ b/608/CH24/EX24.12/24_12.sce
@@ -0,0 +1,33 @@
+//Problem 24.12: For the circuit shown in Figure 24.17, determine the values of voltages V1 and V2 if the supply frequency is 4 kHz. Determine also the value of the supply voltage V and the circuit phase angle. Draw the phasor diagram.

+

+//initializing the variables:

+C = 2.653E-6; // in Farads

+R1 = 8; // in ohms

+R2 = 5; // in ohms

+L = 0.477E-3; // in Henry

+f = 4000; // in Hz

+ri = 6; // in Amperes

+thetai = 0; // in degrees

+

+//calculation:

+I = ri*cos(thetai*%pi/180) + %i*ri*sin(thetai*%pi/180)

+//Capacitive reactance, Xc

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

+//impedance Z1

+Z1 = R1 - %i*Xc

+//inductive reactance XL

+XL = 2*%pi*f*L

+//impedance Z2,

+Z2 = R2 + %i*XL

+//voltage V1

+V1 = I*Z1

+//voltage V2

+V2 = I*Z2

+//Supply voltage, V

+V = V1 + V2

+phiv = atan(imag(V)/real(V))*180/%pi

+phi = phiv - thetai

+

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

+printf("\n supply voltage is %.2f + (%.2f)i V\n",real(V), imag(V))

+printf("and Circuit phase angle is %.2f° \n",phi)
\ No newline at end of file