initial commit / add all books

15 files changed, 304 insertions, 0 deletions

diff --git a/2252/CH7/EX7.1/Ex7_1.sce b/2252/CH7/EX7.1/Ex7_1.sce
new file mode 100755
index 000000000..3a626c6ea
--- /dev/null
+++ b/2252/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,14 @@
+

+//calculating current flowing in the circuit

+L=0.1//inductance

+f=50//frequency

+Xl=2*%pi*f*L

+R=15//total resistance in the circuit

+Z=sqrt(R^2+Xl^2)

+V=230//voltage applied to series circuit

+I=V/Z

+mprintf("Current flowing in the circuit=%f A\n",I)

+//calculating power factor

+pf=R/Z

+mprintf("Power factor of the circuit is %f(lagging)\nVoltage across reactor=%f V\nVoltage across resistor=%f V",pf,I*Xl,I*R)

+

diff --git a/2252/CH7/EX7.10/Ex7_10.sce b/2252/CH7/EX7.10/Ex7_10.sce
new file mode 100755
index 000000000..5d359443a
--- /dev/null
+++ b/2252/CH7/EX7.10/Ex7_10.sce
@@ -0,0 +1,10 @@
+

+//rating of bulb is 100 W,110 V

+P=100

+V=110

+I=P/V//normal current of bulb

+//voltage across bulb should be 110 V

+Vc=sqrt(230^2-V^2)//voltage across the capacitance

+Xc=Vc/I

+C=1/(100*%pi*Xc)

+mprintf("Capacitance of %f microF must be connected in series with the bulb",C*1D+6)

diff --git a/2252/CH7/EX7.11/Ex7_11.sce b/2252/CH7/EX7.11/Ex7_11.sce
new file mode 100755
index 000000000..9d695a364
--- /dev/null
+++ b/2252/CH7/EX7.11/Ex7_11.sce
@@ -0,0 +1,7 @@
+

+C=35D-6//capacitance

+f=50//frequency

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

+Z=2*Xc//voltage applied across the capacitance is equal to half of total voltage applied

+R=sqrt(Z^2-Xc^2)

+mprintf("Resistance of variable resistor, R=%f ohm",R)

diff --git a/2252/CH7/EX7.12/Ex7_12.sce b/2252/CH7/EX7.12/Ex7_12.sce
new file mode 100755
index 000000000..b4ac5109d
--- /dev/null
+++ b/2252/CH7/EX7.12/Ex7_12.sce
@@ -0,0 +1,25 @@
+

+//calculating current drawn

+V=230//voltage applied

+R=15+10//total resistance of the circuit

+L=.04+.1//total inductance

+Xl=2*%pi*50*L

+C=100D-6//capacitance

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

+X=Xl-Xc

+Z=sqrt(R^2+X^2)

+I=V/Z

+mprintf("Current drawn=%f A\n",I)

+//calculating voltages V1 and V2

+Z1=sqrt(15^2+(2*%pi*50*.04)^2)

+V1=I*Z1

+phi1=atand(2*%pi*50*.04/15)

+mprintf("V1=%f V and leads the current by %f degrees\n",V1,round(phi1))

+Z2=sqrt(10^2+(2*%pi*50*.1-1/(2*%pi*50*100D-6))^2)

+V2=I*Z2

+phi2=acosd(10/Z2)

+mprintf("V2=%f V and lags the current by %f degrees\n",V2,phi2)

+//calculating power factor of overall circuit

+pf=R/Z

+mprintf("Power factor of overall circuit=%f lagging",pf)

+//The answers vary from the textbook due to round off error

diff --git a/2252/CH7/EX7.13/Ex7_13.sce b/2252/CH7/EX7.13/Ex7_13.sce
new file mode 100755
index 000000000..30d282dbe
--- /dev/null
+++ b/2252/CH7/EX7.13/Ex7_13.sce
@@ -0,0 +1,26 @@
+

+//solving part(i)

+Rb=5//resistance of coil B

+Xb=2*%pi*50*.02//inductive reactance of coil B

+Zb=sqrt(Rb^2+Xb^2)

+phi_b=atand(Xb/Rb)//phase difference of Vb with current as reference phasor

+phi_a=90*%pi/180-phi_b*%pi/180//Va and Vb are in quadrature

+//Xc/R=tan(phi_a)

+//Vb=2*Va-->R^2+Xc^2=Zb^2/4

+//on solving for R and Xc

+R=sqrt((Zb^2/4)/(1+tan(phi_a)^2))

+Xc=tan(phi_a)*R

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

+mprintf("R=%f ohm\nC=%f microF\n",R,C*1D+6)

+//solving part(ii)

+Rt=5+R//total resistance of circuit

+Xt=Xb-Xc//resultant reactance of circuit

+Zt=sqrt(Rt^2+Xt^2)

+V=220//applied voltage

+I=V/Zt

+mprintf("Current drawn by the circuit=%f A\n",I)

+//solving part(iii)

+//as the reactance is positive, circuit is inductive

+pf=Rt/Zt//lagging

+mprintf("Power factor of the circuit=%f(lagging)\n",pf)

+//the answers vary from the textbook due to round off error

diff --git a/2252/CH7/EX7.14/Ex7_14.sce b/2252/CH7/EX7.14/Ex7_14.sce
new file mode 100755
index 000000000..52d115364
--- /dev/null
+++ b/2252/CH7/EX7.14/Ex7_14.sce
@@ -0,0 +1,28 @@
+

+//calculating frequency of applied voltage

+C=25.5D-6//capacitance

+I=.4//current through circuit

+V=50//voltage across capacitor

+Xc=V/I

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

+mprintf("Frequency=%d Hz\n",round(f))

+//calculating parameters of choke coil

+V=35//voltage across choke coil

+Z=V/I//impedance of choke coil

+//r^2+(100*%pi*L)^2=Z^2

+R=20/.4

+Vac=45//voltage across ac portion of circuit

+Zac=Vac/I//impedance of ac portion

+//(R+r)^2+(100*%pi*L)^2=Zac^2

+//solving for r and L

+r=(Zac^2-Z^2-R^2)/(2*R)

+L=sqrt(Z^2-r^2)/(100*%pi)

+Xl=2*%pi*50*L

+mprintf("Parameters of choke coil:\nResistance=%f ohm\nInductance=%f H\nInductive reactance=%f ohm\n",r,L,Xl)

+//calculating applied voltage

+Z=sqrt((R+r)^2+(Xl-Xc)^2)

+V=I*Z

+mprintf("Voltage applied to the circuit=%f V\n",V)

+//calculating losses in choke coil

+W=I^2*r

+mprintf("Losses in choke coil=%d W\n",round(W))

diff --git a/2252/CH7/EX7.15/Ex7_15.sce b/2252/CH7/EX7.15/Ex7_15.sce
new file mode 100755
index 000000000..143938678
--- /dev/null
+++ b/2252/CH7/EX7.15/Ex7_15.sce
@@ -0,0 +1,23 @@
+

+//calculating capacitance to give resonance

+Xl=2*%pi*50*.4

+Xc=Xl

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

+mprintf("Capacitance=%f microF\n",C*1D+6)

+//calculating current

+R=5

+Z=R

+V=110

+I=V/Z

+mprintf("current drawn=%f A\n",I)

+//calculating voltage across inductance

+Xl=2*%pi*50*.4

+Vl=I*Xl

+mprintf("Voltage across inductance=%f V\n",Vl)

+//calculating voltage across capacitance

+Xc=Xl

+Vc=I*Xc

+mprintf("Voltage across capacitance=%f V\n",Vc)

+//calculating Q-factor

+Q_factor=Vl/V

+mprintf("Q-factor of the circuit=%f",Q_factor)

diff --git a/2252/CH7/EX7.2/Ex7_2.sce b/2252/CH7/EX7.2/Ex7_2.sce
new file mode 100755
index 000000000..1a917a6f9
--- /dev/null
+++ b/2252/CH7/EX7.2/Ex7_2.sce
@@ -0,0 +1,11 @@
+

+V1=200//voltage applied to non-inductive load

+I1=20//current flowing through the load

+R=V1/I1

+V=230//applied voltage to series connection of R and L

+I=I1

+Z=V/I

+Xl=sqrt(Z^2-R^2)

+L=Xl/(2*%pi*50)

+phi=atand(Xl/R)

+mprintf("Inductance of the reactor=%f H, phase angle between applied voltage and the current is %f degrees",L,phi)

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

diff --git a/2252/CH7/EX7.4/Ex7_4.sce b/2252/CH7/EX7.4/Ex7_4.sce
new file mode 100755
index 000000000..5ef975f0a
--- /dev/null
+++ b/2252/CH7/EX7.4/Ex7_4.sce
@@ -0,0 +1,17 @@
+

+//calculating current drawn at 50 Hz

+V=220//voltage applied to choke coil

+f=50//frequency of supply

+I1=12//current taken by choke coil

+R1=0//resistance of coil is negligible

+Xl=V/I1

+I2=16.5//current taken by the resistor

+R=V/I2

+Z=sqrt(R^2+Xl^2)

+I=V/Z

+mprintf("Current taken by the circuit at 50 Hz=%f A\n",I)

+//calculating current drawn at 30 Hz

+Xl_dash=30/50*Xl

+Z_dash=sqrt(Xl_dash^2+R^2)

+I=V/Z_dash

+mprintf("Current drawn by the circuit at 30 Hz=%f A\n",I)

diff --git a/2252/CH7/EX7.5/Ex7_5.sce b/2252/CH7/EX7.5/Ex7_5.sce
new file mode 100755
index 000000000..98834677a
--- /dev/null
+++ b/2252/CH7/EX7.5/Ex7_5.sce
@@ -0,0 +1,13 @@
+

+//let resistance and inductance of the coil be R and L respectively

+V=220//voltage applied to coil

+f=50//frequency of supply

+I=60//current indicated by ammeter

+Z1=V/I

+//when the frequency is increased to 100 Hz

+I=40//current indicated by ammeter

+Z2=V/I

+//on solving for L

+L=sqrt((Z2^2-Z1^2)/3)/(100*%pi)

+R=sqrt(Z1^2-(100*%pi*L)^2)

+mprintf("Resistance of coil=%f ohm\nInductance of coil=%f H",R,L)

diff --git a/2252/CH7/EX7.6/Ex7_6.sce b/2252/CH7/EX7.6/Ex7_6.sce
new file mode 100755
index 000000000..3ece3a104
--- /dev/null
+++ b/2252/CH7/EX7.6/Ex7_6.sce
@@ -0,0 +1,38 @@
+

+//calculating parameters of each coil

+I=3//current through the circuit

+//for coil A

+Ra=12/3//resistance

+Va=15//voltage drop

+Za=Va/I

+Xa=sqrt(Za^2-Ra^2)

+//for coil B

+Rb=6/3//resistance

+Vb=9//voltage drop

+Zb=Vb/I

+Xb=sqrt(Zb^2-Rb^2)

+//for coil C

+Rc=9/3//resistance

+Vc=12//voltage drop

+Zc=Vc/I

+Xc=sqrt(Zc^2-Rc^2)

+mprintf("Parameters of\nCoilA: Ra=%f ohm, Xa=%f ohm\nCoil B: Rb=%f ohm, Xb=%f ohm\nCoil C: Rc=%f ohm, Xc=%f ohm\n",Ra,Xa,Rb,Xb,Rc,Xc)

+//calculating power factor of each coil

+pf_a=Ra/Za

+pf_b=Rb/Zb

+pf_c=Rc/Zc

+mprintf("power factor of the coils are\npf_a=%f(lagging)\npf_b=%f(lagging)\npf_c=%f(lagging)\n",pf_a,pf_b,pf_c)

+//calculating power dissipated for each coil

+Pa=I^2*Ra

+Pb=I^2*Rb

+Pc=I^2*Rc

+mprintf("Power dissipated in these coils:\nPa=%f W\nPb=%f W\nPc=%f W\n",Pa,Pb,Pc)

+//calculating power factor of whole circuit

+Rt=Ra+Rb+Rc

+Xt=Xa+Xb+Xc

+Zt=sqrt(Rt^2+Xt^2)

+pf=Rt/Zt

+mprintf("Power factor of the whole circuit=%f lagging\n",pf)

+//calculating voltage applied across the whole circuit

+V=I*Zt

+mprintf("Voltage applied across the whole circuit=%f V",V)

diff --git a/2252/CH7/EX7.7/Ex7_7.sce b/2252/CH7/EX7.7/Ex7_7.sce
new file mode 100755
index 000000000..7fa398ef9
--- /dev/null
+++ b/2252/CH7/EX7.7/Ex7_7.sce
@@ -0,0 +1,20 @@
+

+//r1 be the variable resistance

+X=10//total inductive reactance of circuit

+V=200//rms value of applied voltage

+//RMS value of current I=200/sqrt((2+r1)^2+10^2)

+//power consumed is P=I^2*r1

+//For max power, dP/dr=0

+//on solving

+r1=sqrt(104)

+mprintf("Value of variable resistor at the instant of max power consumed in it is %f ohm\n",r1)

+//solving part(ii), let r2 be the variable resistance-I=200/sqrt((200+r2)^2+10^2),P=I^2*(2+r2)

+//for max power, dP/dr=0

+//on solving

+r2=10-2

+mprintf("Value of variable resistor=%d ohm for the condition of max power consumed by the circuit\n",round(r2))

+I1=200/sqrt((2+r1)^2+10^2)

+I2=200/sqrt((2+r2)^2+10^2)

+pf1=(2+r1)/sqrt((2+r1)^2+10^2)

+pf2=(2+r2)/sqrt((2+r2)^2+10^2)

+mprintf("Current in case(i)=%f A at %f pf lagging\nCurrent in case(ii)=%f A at %f pf lagging\n",I1,pf1,I2,pf2)

diff --git a/2252/CH7/EX7.8/Ex7_8.sce b/2252/CH7/EX7.8/Ex7_8.sce
new file mode 100755
index 000000000..baed86f02
--- /dev/null
+++ b/2252/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,23 @@
+

+//both the coils draw lagging currents, hence both are inductive

+//for coil A

+Va=10//voltage applied

+Ia=2//current drawn

+Za=Va/Ia

+pf=.8//power factor

+Ra=pf*Za

+Xa=sqrt(Za^2-Ra^2)

+//for coil B

+Vb=5//voltage applied

+Ib=2//current drawn

+Zb=Vb/Ib

+pf=.7//power factor

+Rb=pf*Zb

+Xb=sqrt(Zb^2-Rb^2)

+

+Rt=Ra+Rb//total resistance of circuit

+Xt=Xa+Xb//total reactance of circuit

+Z=sqrt(Rt^2+Xt^2)

+V=Ia*Z

+pf=Rt/Z

+mprintf("Voltage to be applied to the circuit of coils A and B in series=%f V and pf=%f lagging",V,pf)

diff --git a/2252/CH7/EX7.9/Ex7_9.sce b/2252/CH7/EX7.9/Ex7_9.sce
new file mode 100755
index 000000000..161f705fd
--- /dev/null
+++ b/2252/CH7/EX7.9/Ex7_9.sce
@@ -0,0 +1,24 @@
+

+//calculating capacitance

+Xc=4//capacitive reactance

+f=50

+omega=2*%pi*f

+C=1/(omega*Xc)

+mprintf("Capacitance C=%f microF\n",C*1D+6)

+//calculating impedance

+R=5//resistance of circuit

+Z=sqrt(R^2+Xc^2)

+mprintf("Impedance of circuit=%f ohm\n",Z)

+//calculating current taken by circuit

+V=200

+I=V/Z

+mprintf("Current drawn by circuit=%f A\n",I)

+//calculating voltage drop across the resistance

+Vr=I*R

+mprintf("Voltage drop across the resistance=%f V\n",Vr)

+//calculating voltage drop across the reactance

+Vc=I*Xc

+mprintf("Voltage drop across the reactance=%f V\n",Vc)

+//calculating power factor

+pf=R/Z

+mprintf("Power factor of the circuit=%f leading",pf)