From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 165/CH15/EX15.1/ex15_1.sce   | 16 ++++++++++++++++
 165/CH15/EX15.10/ex15_10.sce | 22 ++++++++++++++++++++++
 165/CH15/EX15.11/ex15_11.sce | 24 ++++++++++++++++++++++++
 165/CH15/EX15.2/ex15_2.sce   |  8 ++++++++
 165/CH15/EX15.3/ex15_3.sce   | 19 +++++++++++++++++++
 165/CH15/EX15.4/ex15_4.sce   |  8 ++++++++
 165/CH15/EX15.5/ex15_5.sce   | 22 ++++++++++++++++++++++
 165/CH15/EX15.6/ex15_6.sce   | 31 +++++++++++++++++++++++++++++++
 165/CH15/EX15.7/ex15_7.sce   | 24 ++++++++++++++++++++++++
 165/CH15/EX15.8/ex15_8.sce   |  8 ++++++++
 165/CH15/EX15.9/ex15_9.sce   |  9 +++++++++
 11 files changed, 191 insertions(+)
 create mode 100644 165/CH15/EX15.1/ex15_1.sce
 create mode 100644 165/CH15/EX15.10/ex15_10.sce
 create mode 100644 165/CH15/EX15.11/ex15_11.sce
 create mode 100644 165/CH15/EX15.2/ex15_2.sce
 create mode 100644 165/CH15/EX15.3/ex15_3.sce
 create mode 100644 165/CH15/EX15.4/ex15_4.sce
 create mode 100644 165/CH15/EX15.5/ex15_5.sce
 create mode 100644 165/CH15/EX15.6/ex15_6.sce
 create mode 100644 165/CH15/EX15.7/ex15_7.sce
 create mode 100644 165/CH15/EX15.8/ex15_8.sce
 create mode 100644 165/CH15/EX15.9/ex15_9.sce

(limited to '165/CH15')

diff --git a/165/CH15/EX15.1/ex15_1.sce b/165/CH15/EX15.1/ex15_1.sce
new file mode 100644
index 000000000..cd248fd0a
--- /dev/null
+++ b/165/CH15/EX15.1/ex15_1.sce
@@ -0,0 +1,16 @@
+//Example 15.1
+clc;
+
+//Design a LPF having a cutoff frequency of 2 kHz
+//With a pass band gain of 2
+fh=2000;        //Cutoff frequency in Hz
+C=0.01*10^-6;   //Assumed value of capacitor
+R=invr(2*%pi*fh*C);
+ceil(R);
+
+//Given pass band gain Af= 1 + Rf/R1
+Af=2;        //Pass band gain
+Rf=R1*(Af-1);
+//Now the most probable value for Rf and R1 is 10Kohm
+printf('\nFeedback resistence used is 10000 ohm\n')
+printf('\nInput resistence used is 10000 ohm\n')
\ No newline at end of file
diff --git a/165/CH15/EX15.10/ex15_10.sce b/165/CH15/EX15.10/ex15_10.sce
new file mode 100644
index 000000000..abbf7783d
--- /dev/null
+++ b/165/CH15/EX15.10/ex15_10.sce
@@ -0,0 +1,22 @@
+//Example 15.10
+clc;
+
+f1=1500;             //in Hz
+Q=10;
+R2=(316*10^3)/10;            //From given tables
+R3=(100*10^3)/(3.16*Q-1);    //From given tables
+R3=3.3*10^3;                 //Assumed
+//R1 is open circuited
+R4=(5.03*10^7)/f1;
+R5=R4;
+R6=1.8*10^3;
+R7=10000;        //Assumed a std Value
+R8=invr(invr(R6)+invr(R7))
+printf('\nFor Q=10 R1 is open circuited\n')
+printf('\nFor Q=10 R2 = %.2f k ohm\n',R2/1000)
+printf('\nFor Q=10 R3 = %.2f k ohm\n',R3/1000)
+printf('\nFor Q=10 R4 = %d k ohm\n',R4/1000)
+printf('\nFor Q=10 R5 = %d k ohm\n',R5/1000)
+printf('\nFor Q=10 R6 = %.1f k ohm\n',R6/1000)
+printf('\nFor Q=10 R7 = %d k ohm\n',R7/1000)
+printf('\nFor Q=06 R8 = %.2f k ohm\n',R8/1000)
\ No newline at end of file
diff --git a/165/CH15/EX15.11/ex15_11.sce b/165/CH15/EX15.11/ex15_11.sce
new file mode 100644
index 000000000..28628dd7f
--- /dev/null
+++ b/165/CH15/EX15.11/ex15_11.sce
@@ -0,0 +1,24 @@
+//Example 15.11
+clc;
+
+f1=4000;             //in Hz
+Q=8;
+R2=100000;            //From given tables
+R3=(100*10^3)/(3.48*Q-1);    //From given tables
+R3=3.9*10^3;                 //Assumed
+//R1 is open circuited
+R4=(5.03*10^7)/f1;
+R5=R4;
+R6=10000;        //Assumed a std value
+R7=10000;        //Assumed a std Value
+R8=10000;        //Assumed a std Value
+R9=invr(invr(R6)+invr(R7)+invr(R8))
+printf('\nFor Q=8 R1 is open circuited\n')
+printf('\nFor Q=8 R2 = %d k ohm\n',R2/1000)
+printf('\nFor Q=8 R3 = %.1f k ohm\n',R3/1000)
+printf('\nFor Q=8 R4 = %d k ohm\n',R4/1000)
+printf('\nFor Q=8 R5 = %d k ohm\n',R5/1000)
+printf('\nFor Q=8 R6 = %d k ohm\n',R6/1000)
+printf('\nFor Q=8 R7 = %d k ohm\n',R7/1000)
+printf('\nFor Q=8 R8 = %d k ohm\n',R8/1000)
+printf('\nFor Q=8 R9 = %.2f k ohm\n',R9/1000)
\ No newline at end of file
diff --git a/165/CH15/EX15.2/ex15_2.sce b/165/CH15/EX15.2/ex15_2.sce
new file mode 100644
index 000000000..8d08f1ffa
--- /dev/null
+++ b/165/CH15/EX15.2/ex15_2.sce
@@ -0,0 +1,8 @@
+//Example 15.2
+clc;
+
+wc=20000;        //Cutoff frequency in rad/s
+C=0.01*10^-6;   //Assumed value of capacitor
+R=invr(wc*C);
+x=ceil(R);
+printf('\nResistence Value required is %.2f k ohm\n',x/1000)
\ No newline at end of file
diff --git a/165/CH15/EX15.3/ex15_3.sce b/165/CH15/EX15.3/ex15_3.sce
new file mode 100644
index 000000000..a123fa079
--- /dev/null
+++ b/165/CH15/EX15.3/ex15_3.sce
@@ -0,0 +1,19 @@
+//Example 15.3
+clc;
+
+//Design a 2nd order LPF having a cutoff frequency of 2 kHz
+fh=2000;        //Cutoff frequency in Hz
+C2=3.3*10^-9;   //Assumed value of capacitor
+C3=C2;
+R=invr(2*%pi*fh*C2);
+//Assume a std value of R
+R=22*10^3;
+R2=R;
+R3=R;
+R1=10000;            //Assumed
+Rf=.560*R1;
+
+printf('\nAssumed values of Capcitors C2 & C3 = %.2f nF\n',C2*10^9)
+printf('\nValues of Resistors R2 & R3 = %.2f k ohm\n',R2/10^3)
+printf('\nValues of Feedback Resistor Rf = %.2f k ohm\n',Rf/10^3)
+printf('\nValues of Input Resistors R1 = %.2f k ohm\n',R1/10^3)
\ No newline at end of file
diff --git a/165/CH15/EX15.4/ex15_4.sce b/165/CH15/EX15.4/ex15_4.sce
new file mode 100644
index 000000000..e24247d73
--- /dev/null
+++ b/165/CH15/EX15.4/ex15_4.sce
@@ -0,0 +1,8 @@
+//Example 15.4
+clc;
+
+C=2.2*10^-9;        //in farads
+R=47*10^3;          //in ohms
+x=2*%pi*R*C;
+fl=invr(x);
+printf('\nLower Cut Off frequency fl Of 2nd order Butterworth HPF = %.2f kHz\n',fl/1000)
\ No newline at end of file
diff --git a/165/CH15/EX15.5/ex15_5.sce b/165/CH15/EX15.5/ex15_5.sce
new file mode 100644
index 000000000..a9fce3a76
--- /dev/null
+++ b/165/CH15/EX15.5/ex15_5.sce
@@ -0,0 +1,22 @@
+//Example 15.5
+clc;
+
+fl=100;            //in Hz
+fh=1000;           //in Hz
+gain=4;
+C=0.01*10^-6;      //Assumed
+
+//For a LPF
+R=invr(2*%pi*fh*C);
+printf('\nValue of Resistor R for a LPF = %.1f k ohm\n',R/1000)
+
+//For a HPF
+R=invr(2*%pi*fl*C);
+printf('\nValue of Resistor R for a HPF = %d k ohm\n',R/1000)
+
+fc=sqrt(fl*fh);
+Q=fc/(fh-fl);
+printf('\nValue of Q for the given filter = %.2f \n',Q)
+if Q<10 then
+    printf('\nQ value is less 10, hence a Wide Band Filter\n')
+end
\ No newline at end of file
diff --git a/165/CH15/EX15.6/ex15_6.sce b/165/CH15/EX15.6/ex15_6.sce
new file mode 100644
index 000000000..885c7b231
--- /dev/null
+++ b/165/CH15/EX15.6/ex15_6.sce
@@ -0,0 +1,31 @@
+//Example 15.6
+clc;
+
+fc=1000;        //in Hz
+Q=5;
+Avo=8;
+C=0.01*10^-6;    //Assumed
+
+R1=Q*invr(2*%pi*fc*C*Avo);
+//Assume a std value
+R1=10000;
+
+R2=Q*invr(2*%pi*fc*C*(2*Q^2-Avo));
+//Assume a std Value
+R2=2000;
+
+R3=Q*invr(%pi*fc*C);
+//Assume a std value
+R3=150*10^3;
+
+//Centre frequency is changed to 1.5 kHz
+fc1=1500;
+R21=R2*(fc/fc1)^2;
+//Assume a std value
+R21=820;
+
+printf('\nValue of Capacitors C1, C2 & C3 = %.2f uF\n',C*10^6)
+printf('\nValue of Resistor R1 = %.2f k ohm\n',R1/10^3)
+printf('\nValue of Resistor R2 = %.2f k ohm\n',R2/10^3)
+printf('\nValue of Resistor R3 = %.2f k ohm\n',R3/10^3)
+printf('\nValue of Resistor R2 after changing centre frequency to 1.5 kHz= %.2f ohm\n',R21)
\ No newline at end of file
diff --git a/165/CH15/EX15.7/ex15_7.sce b/165/CH15/EX15.7/ex15_7.sce
new file mode 100644
index 000000000..c0418077d
--- /dev/null
+++ b/165/CH15/EX15.7/ex15_7.sce
@@ -0,0 +1,24 @@
+//Example 15.7
+clc;
+
+fh=100;            //in Hz
+fl=1000;           //in Hz
+C=0.01*10^-6;      //Assumed
+R1=10000;          //Assumed
+Rf=R1;
+R2=R1;
+R3=R1;
+R4=R1;
+
+//For a LPF
+R=invr(2*%pi*fh*C);
+printf('\nValue of Resistor R for a LPF = %d k ohm\n',R/1000)
+
+//For a HPF
+R=invr(2*%pi*fl*C);
+printf('\nValue of Resistor R for a HPF = %.1f k ohm\n',R/1000)
+
+printf('\nValue of Resistor R1 & Rf = %.1f k ohm\n',R1/1000)
+
+Rom=invr(invr(R2)+invr(R3)+invr(R4));
+printf('\nValue of Resistor Rom = %.1f k ohm\n',Rom/1000)
\ No newline at end of file
diff --git a/165/CH15/EX15.8/ex15_8.sce b/165/CH15/EX15.8/ex15_8.sce
new file mode 100644
index 000000000..8dd4968d9
--- /dev/null
+++ b/165/CH15/EX15.8/ex15_8.sce
@@ -0,0 +1,8 @@
+//Example 15.8
+clc;
+
+C=0.047*10^-6;      //in farads
+f=50;               //in ohms
+x=2*%pi*f*C;
+R=invr(x);
+printf('\nValue of resistor R = %.2f k ohm\n',R/1000)
\ No newline at end of file
diff --git a/165/CH15/EX15.9/ex15_9.sce b/165/CH15/EX15.9/ex15_9.sce
new file mode 100644
index 000000000..577bbb79a
--- /dev/null
+++ b/165/CH15/EX15.9/ex15_9.sce
@@ -0,0 +1,9 @@
+//Example 15.9
+clc;
+
+C=0.01*10^-6;       //in farads
+R=15*10^3;          //in ohms
+f=2500;             //in Hz
+x=2*%pi*f*C*R;
+phi=2*atan(x);
+printf('\nPhase angle phi = -%d deg\n',phi*180/%pi)
\ No newline at end of file
-- 
cgit