7 files changed, 112 insertions, 0 deletions
diff --git a/3507/CH18/EX18.1/Ex18_1.sce b/3507/CH18/EX18.1/Ex18_1.sce
new file mode 100644
index 000000000..b3c144cf2
--- /dev/null
+++ b/3507/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,14 @@
+//chapter18
+//example18.1
+//page396
+L=1.25d-3 // H
+C=250d-12 // F
+R=10 // ohm
+
+fr=(((1/(L*C))-(R^2/L^2))^0.5)/(2*%pi)
+Zr=L/(C*R)
+Q=2*%pi*fr*L/R
+
+printf("resonant frequency of circuit = %.3f Hz or %.3f kHz \n",fr,fr/1000)
+printf("impedence of circuit at resonance = %.3f ohm or %.3f kilo ohm \n",Zr,Zr/1000)
+printf("quality factor of the circuit = %.3f",Q)
diff --git a/3507/CH18/EX18.2/Ex18_2.sce b/3507/CH18/EX18.2/Ex18_2.sce
new file mode 100644
index 000000000..01978f9bf
--- /dev/null
+++ b/3507/CH18/EX18.2/Ex18_2.sce
@@ -0,0 +1,18 @@
+//chapter18
+//example18.2
+//page396
+
+L=100d-6 // H
+C=100d-12 // F
+R=10 // ohm
+V=10 // V
+
+fr=(((1/(L*C))-(R^2/L^2))^0.5)/(2*%pi)
+Zr=L/(C*R)
+I=V/Zr
+
+printf("resonant frequency of circuit = %.3f Hz or %.3f kHz \n",fr,fr/1000)
+printf("impedence of circuit at resonance = %.3f ohm or %.3f kilo ohm or %.3f mega ohm\n",Zr,Zr/1000,Zr/1d6)
+printf("line current = %.4f ampere or %.3f micro ampere",I,I*1d6)
+
+// the accurate answer for resonant frequency is 1591.470 kHz
diff --git a/3507/CH18/EX18.3/Ex18_3.sce b/3507/CH18/EX18.3/Ex18_3.sce
new file mode 100644
index 000000000..2535724f7
--- /dev/null
+++ b/3507/CH18/EX18.3/Ex18_3.sce
@@ -0,0 +1,14 @@
+//chapter18
+//example17.3
+//page398
+
+fr=1200 // kHz
+Q=60
+
+BW=fr/Q
+f1=fr-(BW/2)
+f2=fr+(BW/2)
+
+printf("bandwidth = %.3f kHz \n",BW)
+printf("lower cut-off frequency = %.3f kHz \n",f1)
+printf("upper cut-off frequency = %.3f kHz \n",f2)
diff --git a/3507/CH18/EX18.4/Ex18_4.sce b/3507/CH18/EX18.4/Ex18_4.sce
new file mode 100644
index 000000000..dce805930
--- /dev/null
+++ b/3507/CH18/EX18.4/Ex18_4.sce
@@ -0,0 +1,19 @@
+//chapter18
+//example18.4
+//page401
+
+L=33d-3 // H
+C=0.1d-6 // F
+R=25 // ohm
+
+fr=1/(2*%pi*(L*C)^0.5)
+Xl=2*%pi*fr*L
+Q=Xl/R
+BW=fr/Q
+
+printf("resonant frequency = %.3f Hz or %.3f kHz \n",fr,fr/1000)
+printf("quality factor = %.3f \n",Q)
+printf("bandwidth = %.3f Hz \n",BW)
+
+// the accurate answer for bandwidth is 120.572 Hz but in book it is given as 120 Hz
+// the accurate answer for quality factor is 22.978 but in book it is given as 23
diff --git a/3507/CH18/EX18.5/Ex18_5.sce b/3507/CH18/EX18.5/Ex18_5.sce
new file mode 100644
index 000000000..cc96c1c1d
--- /dev/null
+++ b/3507/CH18/EX18.5/Ex18_5.sce
@@ -0,0 +1,10 @@
+//chapter18
+//example18.5
+//page402
+
+BW=200 // kHz
+fr=10d3 // kHz
+
+k=BW/fr
+
+printf("co-efficient of coupling = %.3f \n",k)
diff --git a/3507/CH18/EX18.6/Ex18_6.sce b/3507/CH18/EX18.6/Ex18_6.sce
new file mode 100644
index 000000000..d8340ef3e
--- /dev/null
+++ b/3507/CH18/EX18.6/Ex18_6.sce
@@ -0,0 +1,24 @@
+//chapter18
+//example18.6
+//page405
+
+L=50.7d-6 // H
+C=500d-12 // F
+R=10 // ohm
+Rl=1d6 // ohm
+
+fr=1/(2*%pi*(L*C)^0.5)
+R_dc=R
+Xl=2*%pi*fr*L
+Q=Xl/R
+Rp=Q*Xl
+R_ac=Rp*Rl/(Rp+Rl)
+
+printf("resonant frequency = %.3f Hz or %.3f kHz \n",fr,fr/1000) // amswer in book is incorrect
+printf("dc load = %.3f ohm \n",R_dc)
+printf("ac load = %.3f ohm or %.3f kilo ohm \n",R_ac,R_ac/1000)
+
+// in book the aswer for resonant frequency is 106 Hz which is incorrect
+// the correct answer is 999.611 kHz
+
+// the accurate answer for ac load is 10.038 kilo ohm
diff --git a/3507/CH18/EX18.7/Ex18_7.sce b/3507/CH18/EX18.7/Ex18_7.sce
new file mode 100644
index 000000000..96d22ac67
--- /dev/null
+++ b/3507/CH18/EX18.7/Ex18_7.sce
@@ -0,0 +1,13 @@
+//chapter18
+//example18.7
+//page406
+
+Vcc=50 // V
+Np=5
+Ns=1
+R=50 // ohm
+R_ac=(Np/Ns)^2*R
+Po=Vcc^2/R_ac
+
+printf("ac load = %.3f ohm \n",R_ac)
+printf("maximum load power = %.3f W \n",Po)