summaryrefslogtreecommitdiff
path: root/165/CH15
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /165/CH15
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '165/CH15')
-rw-r--r--165/CH15/EX15.1/ex15_1.sce16
-rw-r--r--165/CH15/EX15.10/ex15_10.sce22
-rw-r--r--165/CH15/EX15.11/ex15_11.sce24
-rw-r--r--165/CH15/EX15.2/ex15_2.sce8
-rw-r--r--165/CH15/EX15.3/ex15_3.sce19
-rw-r--r--165/CH15/EX15.4/ex15_4.sce8
-rw-r--r--165/CH15/EX15.5/ex15_5.sce22
-rw-r--r--165/CH15/EX15.6/ex15_6.sce31
-rw-r--r--165/CH15/EX15.7/ex15_7.sce24
-rw-r--r--165/CH15/EX15.8/ex15_8.sce8
-rw-r--r--165/CH15/EX15.9/ex15_9.sce9
11 files changed, 191 insertions, 0 deletions
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