From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1850/CH6/EX6.1/exa_6_1.sce   | 24 ++++++++++++++++++++++++
 1850/CH6/EX6.11/exa_6_11.sce | 11 +++++++++++
 1850/CH6/EX6.12/exa_6_12.sce | 20 ++++++++++++++++++++
 1850/CH6/EX6.13/exa_6_13.sce | 14 ++++++++++++++
 1850/CH6/EX6.14/exa_6_14.sce | 15 +++++++++++++++
 1850/CH6/EX6.15/exa_6_15.sce | 16 ++++++++++++++++
 1850/CH6/EX6.2/exa_6_2.sce   | 20 ++++++++++++++++++++
 1850/CH6/EX6.3/exa_6_3.sce   | 21 +++++++++++++++++++++
 1850/CH6/EX6.4/exa_6_4.sce   | 18 ++++++++++++++++++
 1850/CH6/EX6.5/exa_6_5.sce   | 15 +++++++++++++++
 1850/CH6/EX6.6/exa_6_6.sce   | 18 ++++++++++++++++++
 1850/CH6/EX6.7/exa_6_7.sce   | 30 ++++++++++++++++++++++++++++++
 1850/CH6/EX6.8/exa_6_8.sce   | 26 ++++++++++++++++++++++++++
 1850/CH6/EX6.9/exa_6_9.sce   | 23 +++++++++++++++++++++++
 14 files changed, 271 insertions(+)
 create mode 100755 1850/CH6/EX6.1/exa_6_1.sce
 create mode 100755 1850/CH6/EX6.11/exa_6_11.sce
 create mode 100755 1850/CH6/EX6.12/exa_6_12.sce
 create mode 100755 1850/CH6/EX6.13/exa_6_13.sce
 create mode 100755 1850/CH6/EX6.14/exa_6_14.sce
 create mode 100755 1850/CH6/EX6.15/exa_6_15.sce
 create mode 100755 1850/CH6/EX6.2/exa_6_2.sce
 create mode 100755 1850/CH6/EX6.3/exa_6_3.sce
 create mode 100755 1850/CH6/EX6.4/exa_6_4.sce
 create mode 100755 1850/CH6/EX6.5/exa_6_5.sce
 create mode 100755 1850/CH6/EX6.6/exa_6_6.sce
 create mode 100755 1850/CH6/EX6.7/exa_6_7.sce
 create mode 100755 1850/CH6/EX6.8/exa_6_8.sce
 create mode 100755 1850/CH6/EX6.9/exa_6_9.sce

(limited to '1850/CH6')

diff --git a/1850/CH6/EX6.1/exa_6_1.sce b/1850/CH6/EX6.1/exa_6_1.sce
new file mode 100755
index 000000000..d2def07a8
--- /dev/null
+++ b/1850/CH6/EX6.1/exa_6_1.sce
@@ -0,0 +1,24 @@
+// Exa 6.1
+clc;
+clear;
+close;
+// Given Data
+f_H= 2;// in kHz
+f_H= f_H*10^3;// in Hz
+C=0.01;// in micro F
+C=C*10^-6;// in F
+R= 1/(2*%pi*f_H*C);// in ohm
+R=R*10^-3;// in kohm
+// R may be taken a pot of 10 k ohm
+R=10;// in k ohm
+// Since the passbond gain is 2.5, so
+// 1+Rf/R1= 2.5 or Rf= 1.5*R1
+// Since Rf||R1
+R1= R*2.5/1.5;// in k ohm
+Rf= R1*1.5;// in k ohm
+disp("Value of R1 is : "+string(R1)+" k ohm")
+disp("Value of Rf is : "+string(Rf)+" k ohm")
+
+
+
+
diff --git a/1850/CH6/EX6.11/exa_6_11.sce b/1850/CH6/EX6.11/exa_6_11.sce
new file mode 100755
index 000000000..9271618f3
--- /dev/null
+++ b/1850/CH6/EX6.11/exa_6_11.sce
@@ -0,0 +1,11 @@
+// Exa 6.11
+clc;
+clear;
+close;
+// Given Data
+fL= 200;// in Hz
+fH= 1;// in kHz
+fH=fH*10^3;// in Hz
+fc= sqrt(fL*fH);// in Hz
+Q= fc/(fH-fL);
+disp(Q,"The value of Q for filter")
diff --git a/1850/CH6/EX6.12/exa_6_12.sce b/1850/CH6/EX6.12/exa_6_12.sce
new file mode 100755
index 000000000..17887b328
--- /dev/null
+++ b/1850/CH6/EX6.12/exa_6_12.sce
@@ -0,0 +1,20 @@
+// Exa 6.12
+clc;
+clear;
+close;
+// Given Data
+format('v',5)
+fH= 200;// in Hz
+fL= 2;// in kHz
+fL=fL*10^3;// in Hz
+C= 0.05;// in micro F
+C=C*10^-6;// in F
+R_desh= 1/(2*%pi*fH*C);// in ohm
+R_desh=R_desh*10^-3;// in kohm
+R= 1/(2*%pi*fL*C);// in ohm
+R=R*10^-3;// in kohm
+disp(R_desh,"Value of R_desh in kohm");
+disp("Or 18 kohm (Standard value)")
+disp(R,"Value of R in kohm");
+disp("Or 1.8 kohm (Standard value)")
+
diff --git a/1850/CH6/EX6.13/exa_6_13.sce b/1850/CH6/EX6.13/exa_6_13.sce
new file mode 100755
index 000000000..8bf8300c4
--- /dev/null
+++ b/1850/CH6/EX6.13/exa_6_13.sce
@@ -0,0 +1,14 @@
+// Exa 6.13
+clc;
+clear;
+close;
+// Given Data
+format('v',7)
+fN= 50;// in Hz
+C= 0.068;// in micro F
+C=C*10^-6;// in F
+R= 1/(2*%pi*fN*C);// in ohm
+R=R*10^-3;// in kohm
+R=ceil(R)
+disp(R,"Value of R in kohm");
+disp("For R/2, two "+string(R)+" kohm resistors connected in parallel may be used and for 2C component, two parallel connected 0.068 micro F capacitors may be used")
diff --git a/1850/CH6/EX6.14/exa_6_14.sce b/1850/CH6/EX6.14/exa_6_14.sce
new file mode 100755
index 000000000..91d754654
--- /dev/null
+++ b/1850/CH6/EX6.14/exa_6_14.sce
@@ -0,0 +1,15 @@
+// Exa 6.14
+clc;
+clear;
+close;
+// Given Data
+format('v',7)
+fN= 60;// in Hz
+// Let
+C= 0.06;// in micro F
+C=C*10^-6;// in F
+R= 1/(2*%pi*fN*C);// in ohm
+R=R*10^-3;// in kohm
+disp(R,"Value of R in kohm");
+disp("Or 47 kohm (Standard value)")
+disp("For R/2, two 47 kohm resistors connected in parallel may be used and for 2C component, two parallel connected 0.06 micro F capacitors may be used")
diff --git a/1850/CH6/EX6.15/exa_6_15.sce b/1850/CH6/EX6.15/exa_6_15.sce
new file mode 100755
index 000000000..b1c07501e
--- /dev/null
+++ b/1850/CH6/EX6.15/exa_6_15.sce
@@ -0,0 +1,16 @@
+// Exa 6.15
+clc;
+clear;
+close;
+// Given Data
+format('v',7)
+f= 2;// in kHz
+f=f*10^3;// in Hz
+C= 0.01;// in micro F
+C=C*10^-6;// in F
+R= 15;// in kohm
+R=R*10^3;// in ohm
+fie= -2*atand(2*%pi*f*R*C);
+fie= ceil(fie);
+disp(fie,"Phase shift in °");
+disp("i.e. "+string(abs(fie))+"° (lagging)")
diff --git a/1850/CH6/EX6.2/exa_6_2.sce b/1850/CH6/EX6.2/exa_6_2.sce
new file mode 100755
index 000000000..6f2d2e4da
--- /dev/null
+++ b/1850/CH6/EX6.2/exa_6_2.sce
@@ -0,0 +1,20 @@
+// Exa 6.2
+clc;
+clear;
+close;
+// Given Data
+f_H= 2;// in kHz
+f_H= f_H*10^3;// in Hz
+C=0.033;// in micor F
+C=C*10^-6;// in F
+C_desh= C;
+R= 1/(2*%pi*f_H*C);// in ohm
+R=R*10^-3;// in kohm
+R=2.7;// k ohm (Standard value)
+R_desh= R;
+// So 2*R= Rf*R1/(Rf+R1) = 0.586*R1^2/(1.586*R1)
+R1= 2*R*1.586/(0.586);// in k ohm
+R1= 15;// k ohm (Standard value)
+Rf= 0.586*R1;// in k ohm
+Rf= 10;// k ohm (Standard value)
+disp("Rf may be taken as a pot of : "+string(Rf)+" k ohm")
diff --git a/1850/CH6/EX6.3/exa_6_3.sce b/1850/CH6/EX6.3/exa_6_3.sce
new file mode 100755
index 000000000..cf71350e9
--- /dev/null
+++ b/1850/CH6/EX6.3/exa_6_3.sce
@@ -0,0 +1,21 @@
+// Exa 6.3
+clc;
+clear;
+close;
+// Given Data
+f_H= 1;// in kHz
+f_H= f_H*10^3;// in Hz
+C=0.0047;// in micro F
+C=C*10^-6;// in F
+C_desh= C;
+R= 1/(2*%pi*f_H*C);// in ohm
+R=R*10^-3;// in kohm
+R=floor(R);
+R_desh= R;
+R1=R ;// in k ohm
+Rf= 0.586*R1;// in k ohm
+Rf= ceil(Rf);// in k ohm
+disp(R,"Value of R in k ohm");
+disp(C*10^6,"Value of R in micro F");
+disp(R1,"Value of R1 in k ohm");
+disp(Rf,"Value of Rf in k ohm");
diff --git a/1850/CH6/EX6.4/exa_6_4.sce b/1850/CH6/EX6.4/exa_6_4.sce
new file mode 100755
index 000000000..0fd77ec75
--- /dev/null
+++ b/1850/CH6/EX6.4/exa_6_4.sce
@@ -0,0 +1,18 @@
+// Exa 6.4
+clc;
+clear;
+close;
+// Given Data
+f= 1;// in kHz
+f= f*10^3;// in Hz
+// Vout/Vin= 10
+R1= 100;// in k ohm
+R1=R1*10^3;// in ohm
+R2= 1000;// in k ohm
+R2=R2*10^3;// in ohm
+omega= 2*%pi*f;
+// Vout/Vin at a 3 dB frequency of 1 kHz = 1/sqrt(2) = omega*R2*C/sqrt(1+omega^2*R1^2*C2)
+C= sqrt(1/(omega^2*(2*R2^2-R1^2)));// in F
+disp(R1*10^-3,"Value of R1 in k ohm");
+disp(R2*10^-6,"Value of R2 in k ohm");
+disp(C,"Value of C in k ohm");
diff --git a/1850/CH6/EX6.5/exa_6_5.sce b/1850/CH6/EX6.5/exa_6_5.sce
new file mode 100755
index 000000000..fde03a624
--- /dev/null
+++ b/1850/CH6/EX6.5/exa_6_5.sce
@@ -0,0 +1,15 @@
+// Exa 6.5
+clc;
+clear;
+close;
+// Given Data
+R= 2.1;// in k ohm
+R=R*10^3;// in ohm
+R1= 20;// in k ohm
+R1=R1*10^3;// in ohm
+Rf= 60;// in k ohm
+Rf=Rf*10^3;// in ohm
+C=0.05;// in micro F
+C=C*10^-6;// in F
+fL= 1/(2*%pi*R*C);// in Hz
+disp(fL*10^-3,"Low cut-off frequency in kHz")
diff --git a/1850/CH6/EX6.6/exa_6_6.sce b/1850/CH6/EX6.6/exa_6_6.sce
new file mode 100755
index 000000000..e206993a3
--- /dev/null
+++ b/1850/CH6/EX6.6/exa_6_6.sce
@@ -0,0 +1,18 @@
+// Exa 6.6
+clc;
+clear;
+close;
+// Given Data
+R= 10;// in k ohm
+R=R*10^3;// in ohm
+R_desh= R;// in ohm
+C=0.1;// in micro F
+C=C*10^-6;// in F
+C_desh=0.0025;// in micro F
+C_desh=C_desh*10^-6;// in F
+fH= 1/(2*%pi*R_desh*C_desh);// in Hz
+disp(fH*10^-3,"Higher cut-off frequency in kHz")
+fL= 1/(2*%pi*R*C);// in Hz
+disp(fL,"Lower cut-off frequency in Hz")
+BW= fH-fL;
+disp(BW*10^-3,"Bandwidth in kHz")
diff --git a/1850/CH6/EX6.7/exa_6_7.sce b/1850/CH6/EX6.7/exa_6_7.sce
new file mode 100755
index 000000000..09d2299b3
--- /dev/null
+++ b/1850/CH6/EX6.7/exa_6_7.sce
@@ -0,0 +1,30 @@
+// Exa 6.7
+clc;
+clear;
+close;
+// Given Data
+fc= 1;// in kHz
+fc=fc*10^3;// in Hz
+Q=5;
+Af=8;
+// Let C=C1=C2=0.01 // in micro F
+C1= 0.01;// in micro F
+C1=C1*10^-6;// in F
+C2=C1;// in F
+C=C2;// in F
+R1= Q/(2*%pi*fc*C*Af);// in ohm
+R1=R1*10^-3;// in kohm
+R1=ceil(R1);
+R2= Q/(2*%pi*fc*C*(2*Q^2-Af));// in ohm
+R2=R2*10^-3;// in kohm
+R2=ceil(R2);
+R3= Q/(%pi*fc*C);// in ohm
+R3=R3*10^-3;// in kohm
+R3=ceil(R3);
+// The value of R2_desh required to change the centre frequency from 1 kHz to 2 kHz is
+f_desh_c= 2000;// in Hz
+R2_desh= R2*(fc/f_desh_c)^2;// in kohm
+disp(R1,"Value of R1 in kohm");
+disp(R2,"Value of R2 in kohm");
+disp(R3,"Value of R3 in kohm");
+disp(R2_desh,"Value of R2_desh in kohm");
diff --git a/1850/CH6/EX6.8/exa_6_8.sce b/1850/CH6/EX6.8/exa_6_8.sce
new file mode 100755
index 000000000..2941e9aa5
--- /dev/null
+++ b/1850/CH6/EX6.8/exa_6_8.sce
@@ -0,0 +1,26 @@
+// Exa 6.8
+clc;
+clear;
+close;
+// Given Data
+C= 0.1;// in micro F
+C=C*10^-6;// in F
+R1= 2;// in kohm
+R1=R1*10^3;// in ohm
+R2= 2/3;// in kohm
+R2=R2*10^3;// in ohm
+R3= 200;// in kohm
+R3=R3*10^3;// in ohm
+// R1= Q/(2*%pi*fc*C*Af)           (i)
+// R2= Q/(2*%pi*fc*C*(2*Q^2-Af))   (ii)
+// R3= Q/(%pi*fc*C)                (iii)
+// From (i) and (iii)
+Af= R3/(2*R1);
+// From (ii) and (iii)
+Q= sqrt(1/2*(R3/(2*R2)+Af));
+// From (iii)
+fc= Q/(R3*%pi*C);// in Hz
+omega_o= 2*%pi*fc;// in radians/second
+disp(Af,"Gain");
+disp(Q,"Value of Q");
+disp(omega_o,"Centre frequency in radians/second")
diff --git a/1850/CH6/EX6.9/exa_6_9.sce b/1850/CH6/EX6.9/exa_6_9.sce
new file mode 100755
index 000000000..67d2158a2
--- /dev/null
+++ b/1850/CH6/EX6.9/exa_6_9.sce
@@ -0,0 +1,23 @@
+// Exa 6.9
+clc;
+clear;
+close;
+// Given Data
+fL= 200;// in Hz
+fH= 1;// in kHz
+fH=fH*10^3;// in Hz
+//Let the capacitor C_desh be of 0.01 micro F 
+C_desh= 0.01*10^-6;// in F
+R_desh= 1/(2*%pi*fH*C_desh);// in ohm
+R_desh=R_desh*10^-3;// in kohm
+R_desh= 18;// in kohm
+// Let 
+C=0.05*10^-6;// in F
+R= 1/(2*%pi*fL*C);// in ohm
+R=R*10^-3;// in kohm
+R= 18;// in k ohm
+Rf= 10;// in kohm
+disp(Rf,"Value of Rf, Rf_desh, R1 and R1_desh in kohm");
+disp(R,"Value of R and R_desh in kohm");
+disp(C_desh*10^6,"Value of C_desh in micro F")
+disp(C*10^6,"Value of C in micro F")
-- 
cgit