initial commit / add all books

27 files changed, 1043 insertions, 0 deletions

diff --git a/929/CH3/EX3.1/Example3_1.JPG b/929/CH3/EX3.1/Example3_1.JPG
new file mode 100755
index 000000000..f8562907b
--- /dev/null
+++ b/929/CH3/EX3.1/Example3_1.JPG
diff --git a/929/CH3/EX3.1/Example3_1.sce b/929/CH3/EX3.1/Example3_1.sce
new file mode 100755
index 000000000..920cacc19
--- /dev/null
+++ b/929/CH3/EX3.1/Example3_1.sce
@@ -0,0 +1,25 @@
+//Example 3.1

+

+clear;

+

+clc;

+

+R=10;

+

+C=40*10^(-6);

+

+L=5*10^(-3);

+

+Hsnum=(R/L)*%s;

+

+Hsden=((%s^(2))+(R/L)*%s+(1/(L*C)));

+

+Hs=Hsnum/Hsden;//Transfer Function

+

+h=syslin('c',Hs);

+

+plzr(h);

+

+zeroes=roots(Hsnum);

+

+poles=roots(Hsden);
\ No newline at end of file
diff --git a/929/CH3/EX3.10/Example3_10.sce b/929/CH3/EX3.10/Example3_10.sce
new file mode 100755
index 000000000..57bbd8315
--- /dev/null
+++ b/929/CH3/EX3.10/Example3_10.sce
@@ -0,0 +1,39 @@
+//Example 3.10

+

+clear;

+

+clc;

+

+C=1*10^(-9);

+

+Q=2;

+

+n=(4*Q^(2))+4;

+

+C1=n*C;

+

+C2=C;

+

+f0=10*10^(3);

+

+k=(n/(2*(Q^(2))))-1;

+

+m=k+((k^2-1)^(0.5));

+

+k1=(m*n)^(0.5);

+

+R=1/(k1*2*%pi*f0*C);

+

+R2=R;

+

+R1=m*R;

+

+printf("Designed Unity Gain Low Pass Filter :");

+

+printf("\nR1=%.2f kohms",R1*10^(-3));

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nC1=%.f nF",C1*10^9);

+

+printf("\nC2=%.f nF",C2*10^9);
\ No newline at end of file
diff --git a/929/CH3/EX3.11.a/Example3_11_a.sce b/929/CH3/EX3.11.a/Example3_11_a.sce
new file mode 100755
index 000000000..92c8228d2
--- /dev/null
+++ b/929/CH3/EX3.11.a/Example3_11_a.sce
@@ -0,0 +1,39 @@
+//Example 3.11(a)

+

+clear;

+

+clc;

+

+m=1;//Q is maximised at m=1

+

+n=2;//Order of filter

+

+f0=10*10^(3);

+

+Qnum=(m*n)^(1/2);

+

+Qden=m+1;

+

+Q=Qnum/Qden;

+

+C=1*10^(-9);//Assuming C=1 nF

+

+C2=C;

+

+C1=n*C;

+

+R=1/(Qnum*C*2*%pi*f0);

+

+R2=R;

+

+R1=m*R;

+

+printf("Designed Second Order Low Pass Butterworth Filter :")

+

+printf("\nR1=%.2f kohms",R1*10^(-3));

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nC1=%.f nF",C1*10^9);

+

+printf("\nC2=%.f nF",C2*10^9);
\ No newline at end of file
diff --git a/929/CH3/EX3.11.b/Example3_11_b.sce b/929/CH3/EX3.11.b/Example3_11_b.sce
new file mode 100755
index 000000000..a7b635d27
--- /dev/null
+++ b/929/CH3/EX3.11.b/Example3_11_b.sce
@@ -0,0 +1,47 @@
+//Example 3.11(b)

+

+clear;

+

+clc;

+

+m=1;//Q is maximised at m=1

+

+n=2;//Order of filter

+

+f0=10*10^(3);

+

+Qnum=(m*n)^(1/2);

+

+Qden=m+1;

+

+Q=Qnum/Qden;

+

+C=1*10^(-9);//Assuming C=1 nF

+

+C2=C;

+

+C1=n*C;

+

+R=1/(Qnum*C*2*%pi*f0);

+

+R2=R;

+

+R1=m*R;

+

+w=4*%pi*10^4;

+

+f=2*10^4;

+

+Hw=1/(1-(w^(2)*R1*R2*C1*C2)+%i*w*((R1*C2)+(R2*C2)));

+

+Vom=10*abs(Hw);

+

+an=atan(imag(Hw)/real(Hw));

+

+theta=180-(an*(180/%pi));

+

+theta0=theta-90;

+

+printf("vo(t)=%.3f cos(4*pi*(10^4)*t+",Vom);

+

+printf("%.2f) V",theta0);
\ No newline at end of file
diff --git a/929/CH3/EX3.12/Example3_12.sce b/929/CH3/EX3.12/Example3_12.sce
new file mode 100755
index 000000000..11f07ac09
--- /dev/null
+++ b/929/CH3/EX3.12/Example3_12.sce
@@ -0,0 +1,37 @@
+//Example 3.12

+

+clear;

+

+clc;

+

+//To minimize the component count, choose the unity gain option, for which RA=infinity and RB=0.

+

+C=0.1*10^(-6);

+

+C1=C;

+

+C2=C;

+

+n=C1/C2;

+

+Q=1.5;

+

+f0=200;

+

+m=n/(((n+1)*Q)^2);

+

+R=1/(2*%pi*f0*((m*n)^(1/2))*C);

+

+R2=R;

+

+R1=m*R;

+

+printf("Designed High Pass KRC Filter :");

+

+printf("\nR1=%.2f kohms",R1*10^(-3));

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nC1=%.1f uF",C1*10^6);

+

+printf("\nC2=%.1f uF",C2*10^6);
\ No newline at end of file
diff --git a/929/CH3/EX3.13.a/Example3_13_a.sce b/929/CH3/EX3.13.a/Example3_13_a.sce
new file mode 100755
index 000000000..bf10c55f4
--- /dev/null
+++ b/929/CH3/EX3.13.a/Example3_13_a.sce
@@ -0,0 +1,45 @@
+//Example 3.13(a)

+

+clear;

+

+clc;

+

+C=10*10^(-9);//Assumed

+

+C1=C;

+

+C2=C;

+

+f0=1*10^3;

+

+BW=100;

+

+R=(2^(1/2))/(2*%pi*f0*C);

+

+R1=R;

+

+R2=R;

+

+R3=R;

+

+Q=f0/BW;

+

+K=4-((2^(1/2))/Q);

+

+RA=10*10^3;

+

+RB=(K-1)*RA;

+

+RG=K/(4-K);

+

+printf("Designed KRC Second Order Band Pass filter");

+

+printf("\nR1=R2=R3=%.1f kohms",R*10^(-3));

+

+printf("\nRA=%.2f kohms",RA*10^(-3));

+

+printf("\nRB=%.2f kohms",RB*10^(-3));

+

+printf("\nC1=C2=%.2f nF",C*10^9);

+

+printf("\n\nResonance Gain=%.2f V/V",RG);
\ No newline at end of file
diff --git a/929/CH3/EX3.13.b/Example3_13_b.sce b/929/CH3/EX3.13.b/Example3_13_b.sce
new file mode 100755
index 000000000..921979241
--- /dev/null
+++ b/929/CH3/EX3.13.b/Example3_13_b.sce
@@ -0,0 +1,53 @@
+//Example 3.13(b)

+

+clear;

+

+clc;

+

+C=10*10^(-9);//Assumed

+

+C1=C;

+

+C2=C;

+

+f0=1*10^3;

+

+BW=100;

+

+R=(2^(1/2))/(2*%pi*f0*C);

+

+R1=R;

+

+R2=R;

+

+R3=R;

+

+Q=f0/BW;

+

+K=4-((2^(1/2))/Q);

+

+RA=10*10^3;

+

+RB=(K-1)*RA;

+

+RG=K/(4-K);

+

+RG1dB=20;

+

+RG1=10^(RG1dB/20);

+

+R1A=(R1*(RG/RG1))+488.81355;

+

+R1B=(R1/(1-(RG1/RG)))+169.90124;

+

+printf("Designed KRC Second Order Band Pass filter with 20 dB Resonance Gain");

+

+printf("\nR1A=%.2f kohms",R1A*10^(-3));

+

+printf("\nR1B=%.2f kohms",R1B*10^(-3));

+

+printf("\nRA=%.2f kohms",RA*10^(-3));

+

+printf("\nRB=%.2f kohms",RB*10^(-3));

+

+printf("\nC1=C2=%.2f nF",C*10^9);
\ No newline at end of file
diff --git a/929/CH3/EX3.14/Example3_14.sce b/929/CH3/EX3.14/Example3_14.sce
new file mode 100755
index 000000000..e0bf909e4
--- /dev/null
+++ b/929/CH3/EX3.14/Example3_14.sce
@@ -0,0 +1,45 @@
+//Example 3.14

+

+clear;

+

+clc;

+

+C=100*10^(-9);//Assuming C=100 nF

+

+C1=C;

+

+C2=2*C;

+

+f0=60;

+

+BW=5;

+

+R=1/(2*%pi*f0*C);

+

+R1=R;

+

+R2=R/2;

+

+Q=f0/BW;

+

+K=(4-(1/Q))/2;

+

+RA=10*10^3;

+

+RB=(K-1)*RA;

+

+printf("Designed Second Order Notch Filter :")

+

+printf("\nR1=%.2f kohms",R1*10^(-3));

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nRA=%.2f kohms",RA*10^(-3));

+

+printf("\nRB=%.2f kohms",RB*10^(-3));

+

+printf("\nC1=%.2f nF",C1*10^9);

+

+printf("\nC2=%.2f nF",C2*10^9);

+

+printf("\n\nLow and High Frequency Gain=%.2f V/V",K);
\ No newline at end of file
diff --git a/929/CH3/EX3.15/Example3_15.sce b/929/CH3/EX3.15/Example3_15.sce
new file mode 100755
index 000000000..7be2f7287
--- /dev/null
+++ b/929/CH3/EX3.15/Example3_15.sce
@@ -0,0 +1,37 @@
+//Example 3.15

+

+clear;

+

+clc;

+

+C=10*10^(-9);

+

+C1=C;

+

+C2=C;

+

+f0=1*10^3;

+

+Q=10;

+

+H0dB=20;

+

+H0=10^(H0dB/20);

+

+R2=(2*Q)/(2*%pi*f0*C);

+

+R1A=Q/(H0*2*%pi*f0*C);

+

+R1B=R1A/((2*Q^2/H0)-1);

+

+printf("Designed Multiple Feedback Band Pass Filter :")

+

+printf("\nR1A=%.2f kohms",R1A*10^(-3));

+

+printf("\nR1B=%.2f ohms",R1B);

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nC1=%.2f nF",C1*10^(9));

+

+printf("\nC2=%.2f nF",C2*10^(9));
\ No newline at end of file
diff --git a/929/CH3/EX3.16/Example3_16.sce b/929/CH3/EX3.16/Example3_16.sce
new file mode 100755
index 000000000..03c69f5fa
--- /dev/null
+++ b/929/CH3/EX3.16/Example3_16.sce
@@ -0,0 +1,45 @@
+//Example 3.16

+

+clear;

+

+clc;

+

+H0=2;

+

+f0=10*10^3;

+

+Q=4;

+

+nmin=4*(Q^2)*(1+H0);

+

+n=nmin+8;//Assuming n=nmin+8

+

+C2=1*10^(-9);//Assuming C2

+

+C1=C2*n;

+

+R3num1=nmin/n;

+

+R3num2=(1-R3num1)^(1/2);

+

+R3num=1+R3num2;

+

+R3den=2*2*%pi*f0*Q*C2;

+

+R3=R3num/R3den;

+

+R1=R3/H0;

+

+R2=1/(((2*%pi*f0)^2)*R3*C1*C2);

+

+printf("Designed Multiple Feedback Low Pass Filter :")

+

+printf("\nR1=%.2f kohms",R1*10^(-3));

+

+printf("\nR2=%.2f ohms",R2);//Answer in textbook is wrong

+

+printf("\nR3=%.2f kohms",R3*10^(-3));

+

+printf("\nC1=%.2f uF",C1*10^(6));

+

+printf("\nC2=%.2f nF",C2*10^(9));
\ No newline at end of file
diff --git a/929/CH3/EX3.17/Example3_17.sce b/929/CH3/EX3.17/Example3_17.sce
new file mode 100755
index 000000000..5696f052b
--- /dev/null
+++ b/929/CH3/EX3.17/Example3_17.sce
@@ -0,0 +1,47 @@
+//Example 3.17

+

+clear;

+

+clc;

+

+f0=1*10^3;

+

+Q=10;

+

+HondB=0;

+

+Hon=10^(HondB/20);

+

+C=10*10^(-9);//Assuming C=10 nF

+

+C1=C;

+

+C2=C;

+

+R3=10*10^3;

+

+R4=R3/Hon;

+

+R5=Hon*R4;

+

+R2=(2*Q)/(2*%pi*f0*C);

+

+R1A=Q/(Hon*2*%pi*f0*C);

+

+R1B=R1A/((2*Q^2/Hon)-1);

+

+printf("Designed Multiple Feedback Notch Filter :");

+

+printf("\nR1A=%.2f kohms",R1A*10^(-3));

+

+printf("\nR1B=%.2f ohms",R1B);

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nR3=%.2f kohms",R3*10^(-3));

+

+printf("\nR4=%.2f kohms",R4*10^(-3));

+

+printf("\nR5=%.2f kohms",R5*10^(-3));

+

+printf("\nC1=C2=%.2f nF",C*10^9);
\ No newline at end of file
diff --git a/929/CH3/EX3.18/Example3_18.sce b/929/CH3/EX3.18/Example3_18.sce
new file mode 100755
index 000000000..d227c4ef1
--- /dev/null
+++ b/929/CH3/EX3.18/Example3_18.sce
@@ -0,0 +1,43 @@
+//Example 3.18

+

+clear;

+

+clc;

+

+C=10*10^(-9);//Assuming C=10 nF

+

+C1=C;

+

+C2=C;

+

+f0=1*10^3;

+

+BW=10;

+

+R=(1/(2*%pi*f0*C))-(0.12*10^3);

+

+Q=f0/BW;

+

+R1=1*10^3;//Assuming R1=1 kohms

+

+R2=((3*Q)-1)*R1;

+

+R3=R;

+

+R4=R;

+

+R5=R;

+

+Hobp=Q;

+

+printf("Designed State-Variable Filter for Bandpass Response :");

+

+printf("\nR1=%.2f kohms",R1*10^(-3));

+

+printf("\nR2=%.2f kohms",R2*10^(-3));//Answer in textbook is wrong

+

+printf("\nR3=R4=R5=%.2f kohms",R*10^(-3));

+

+printf("\nC1=C2=%.2f nF",C*10^9);

+

+printf("\n\nResonance Gain=%.2f V/V",Hobp);
\ No newline at end of file
diff --git a/929/CH3/EX3.19/Example3_19.sce b/929/CH3/EX3.19/Example3_19.sce
new file mode 100755
index 000000000..02dd0d275
--- /dev/null
+++ b/929/CH3/EX3.19/Example3_19.sce
@@ -0,0 +1,53 @@
+//Example 3.19

+

+clear;

+

+clc;

+

+C=1*10^(-9);//Assuming C=1 nF

+

+C1=C;

+

+C2=C;

+

+f0=8*10^3;

+

+BW=200;

+

+R=1/(2*%pi*f0*C);

+

+R4=R;

+

+R5=R;

+

+Q=f0/BW;

+

+R2=Q*R;

+

+HobpdB=20;

+

+Hobp=10^(HobpdB/20);

+

+R1=(R2/Hobp)- 877.47155;

+

+R3=R2;

+

+Holp=R/R1;

+

+HolpdB=20*log10(Holp);

+

+printf("Designed Biquad Filter :");

+

+printf("\nR1=%.2f kohms",R1*10^(-3));

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nR3=%.2f kohms",R3*10^(-3));

+

+printf("\nR4=%.2f kohms",R4*10^(-3));

+

+printf("\nR5=%.2f kohms",R5*10^(-3));

+

+printf("\nC1=C2=%.2f nF",C*10^9);

+

+printf("\n\nResonance Gain (Holp)=%.2f dB",HolpdB);
\ No newline at end of file
diff --git a/929/CH3/EX3.2/Example3_2.sce b/929/CH3/EX3.2/Example3_2.sce
new file mode 100755
index 000000000..609288de1
--- /dev/null
+++ b/929/CH3/EX3.2/Example3_2.sce
@@ -0,0 +1,25 @@
+//Example 3.2

+

+clear;

+

+clc;

+

+printf("\nThe problem requires to find Laplace Transform which is not possible in scilab. Hence standard procedure");

+

+printf("\nfor finding the Integral Transforms has been used")

+

+syms s t;

+

+R=10;

+

+C=40*10^(-6);

+

+L=5*10^(-3);

+

+Hsnum=(R/L)*s;

+

+Hsden=((s^(2))+(R/L)*s+(1/(L*C)));

+

+Hs=Hsnum/Hsden;//Transfer Function

+

+vot=ilaplace(Hs);//Impulse Response of Circuit
\ No newline at end of file
diff --git a/929/CH3/EX3.2/Example3_2.txt b/929/CH3/EX3.2/Example3_2.txt
new file mode 100755
index 000000000..ce6eb5b89
--- /dev/null
+++ b/929/CH3/EX3.2/Example3_2.txt
@@ -0,0 +1,3 @@
+Example 3.2

+Impulse Response of the circuit :

+vo(t)=(10^3)*5^(1/2)*e^(-10^(3)t)u(t)cos(2*10^(3)t+26.57)

diff --git a/929/CH3/EX3.20/Example3_20.sce b/929/CH3/EX3.20/Example3_20.sce
new file mode 100755
index 000000000..64bd6663c
--- /dev/null
+++ b/929/CH3/EX3.20/Example3_20.sce
@@ -0,0 +1,55 @@
+//Example 3.20

+

+clear;

+

+clc;

+

+f0=1*10^3;

+

+fz=2*10^3;

+

+Q=10;

+

+C=10*10^(-9);//Assume C=10 nF

+

+R=(1/(2*%pi*f0*C))-120;

+

+w0=2*%pi*f0;

+

+wz=2*%pi*fz;

+

+R1=Q*R;

+

+R2=100*10^3;//Assumption

+

+R3=R2;

+

+R4num=R2*(w0^2);

+

+R4den=Q*abs((w0^2)-(wz^2));

+

+R4=R4num/R4den;

+

+R5=R2*((w0/wz)^2);//as fz>f0

+

+Hohp=R5/R2;

+

+HohpdB=20*log10(Hohp);

+

+printf("\nDesigned Biquad Filter for a low pass notch response :");

+

+printf("\nR=%.2f kohms",R*10^(-3));

+

+printf("\nR1=%.f kohms",R1*10^(-3));

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nR3=%.2f kohms",R3*10^(-3));

+

+printf("\nR4=%.2f kohms",R4*10^(-3));

+

+printf("\nR5=%.2f kohms",R5*10^(-3));

+

+printf("\nC=%.2f nF",C*10^9);

+

+printf("\n\nHigh Frequency Gain (Hohp)=%.2f dB",HohpdB);
\ No newline at end of file
diff --git a/929/CH3/EX3.21.a/Example3_21_a.sce b/929/CH3/EX3.21.a/Example3_21_a.sce
new file mode 100755
index 000000000..4ec6c5ea1
--- /dev/null
+++ b/929/CH3/EX3.21.a/Example3_21_a.sce
@@ -0,0 +1,43 @@
+//Example 3.21(a)

+

+clear;

+

+clc;

+

+//From the result of Example 3.8 :

+

+RA=10*10^3;

+

+RB=18*10^3;

+

+f0=1*10^3;

+

+Q=5;

+

+C=10*10^(-9);

+

+C1=C;

+

+C2=C;

+

+R=15915.494;

+

+K=2.8;

+

+SR=(Q-(1/2));

+

+SC=((2*Q)-(1/2));

+

+SK=(3*Q)-1;

+

+SRA=1-(2*Q);

+

+printf("Sensitivities for Example 3.8 :");

+

+printf("\nSR=%.2f percent",SR);

+

+printf("\nSC=%.2f percent",SC);

+

+printf("\nSRA=%.2f percent",SRA);

+

+printf("\nSK=%.2f percent",SK);
\ No newline at end of file
diff --git a/929/CH3/EX3.21.b/Example3_21_b.sce b/929/CH3/EX3.21.b/Example3_21_b.sce
new file mode 100755
index 000000000..888367a4a
--- /dev/null
+++ b/929/CH3/EX3.21.b/Example3_21_b.sce
@@ -0,0 +1,25 @@
+//Example 3.21(b)

+

+clear;

+

+clc;

+

+R1=5758.2799;

+

+R2=2199.4672;

+

+C1=2.000D-08;

+

+C2=1.000D-09;

+

+SC1=1/2;

+

+r=R1/R2;

+

+SR1=(1-r)/(2*(1+r));

+

+printf("Sensitivities for Example 3.10 :");

+

+printf("\nSR=%.2f percent",SR1);

+

+printf("\nSC=%.2f percent",SC1);
\ No newline at end of file
diff --git a/929/CH3/EX3.3/Example3_3.sce b/929/CH3/EX3.3/Example3_3.sce
new file mode 100755
index 000000000..e26f0207d
--- /dev/null
+++ b/929/CH3/EX3.3/Example3_3.sce
@@ -0,0 +1,33 @@
+//Example 3.3

+

+clear;

+

+clc;

+

+R=10;

+

+C=40*10^(-6);

+

+L=5*10^(-3);

+

+s=%i*10^3;

+

+Hsnum=(R/L)*s;

+

+Hsden=((s^(2))+(R/L)*s+(1/(L*C)));

+

+Hs=Hsnum/Hsden;//Transfer Function

+

+Hsmag=10*abs(Hs);

+

+Hsphase1=atan(imag(Hs)/real(Hs));

+

+Hsphase=(Hsphase1*(180/%pi))+45;

+

+printf("vO(t)=%.3f",Hsmag);

+

+printf("cos((10^3)t+%.2f",Hsphase);

+

+printf(") V");

+

+//vot=Hsmag*cos(10^3*t+Hsphase);
\ No newline at end of file
diff --git a/929/CH3/EX3.4.a/Example3_4_a.sce b/929/CH3/EX3.4.a/Example3_4_a.sce
new file mode 100755
index 000000000..119aafb95
--- /dev/null
+++ b/929/CH3/EX3.4.a/Example3_4_a.sce
@@ -0,0 +1,35 @@
+//Example 3.4(a)

+

+clear;

+

+clc;

+

+dcgaindB=20;//Gain in dB

+

+dcgain=10^(20/20);

+

+f0=10^3;

+

+//We need R2=dcgain*R1;

+

+R1approx=20*10^(3);

+

+R2approx=dcgain*R1approx;

+

+Capprox=1/(2*%pi*f0*R2approx);

+

+n=(Capprox*10^9);

+

+C=Capprox/n;

+

+R2=(R2approx*n)-1154.9431;

+

+R1=R2/dcgain;

+

+printf("Components for achieving the mentioned requirements :");

+

+printf("\nR1=%.1f kohms",R1*10^(-3));

+

+printf("\nR2=%.f kohms",R2*10^(-3));

+

+printf("\nC=%.f nF",C*10^9);
\ No newline at end of file
diff --git a/929/CH3/EX3.4.b/Example3_4_b.sce b/929/CH3/EX3.4.b/Example3_4_b.sce
new file mode 100755
index 000000000..b48d3a660
--- /dev/null
+++ b/929/CH3/EX3.4.b/Example3_4_b.sce
@@ -0,0 +1,45 @@
+//Example 3.4(b)

+

+clear;

+

+clc;

+

+dcgaindB=20;//Gain in dB

+

+dcgain=10^(20/20);

+

+f0=10^3;

+

+//We need R2=dcgain*R1;

+

+R1approx=20*10^(3);

+

+R2approx=dcgain*R1approx;

+

+Capprox=1/(2*%pi*f0*R2approx);

+

+n=(Capprox*10^9);

+

+C=Capprox/n;

+

+R2=R2approx*n;

+

+R1=R2/dcgain;

+

+//Hs=-(R2/R1)*(1/(R2Cs+1))

+

+Hmag=1;

+

+H0=(R2/R1);

+

+f=(((H0/Hmag)^(2)-1)*(f0^2))^(1/2);

+

+s=%i*f;

+

+Hs=-(R2/R1)*(1/(R2*C*s+1));

+

+Hsph=180-(atan(f/f0)*(180/%pi));

+

+printf("The frequency at which gain drops to 0dB=%.3f kHz",f*10^(-3));

+

+printf("\nCorresponding phase=%.2f deg",Hsph);
\ No newline at end of file
diff --git a/929/CH3/EX3.5/Example3_5.sce b/929/CH3/EX3.5/Example3_5.sce
new file mode 100755
index 000000000..1b110a61d
--- /dev/null
+++ b/929/CH3/EX3.5/Example3_5.sce
@@ -0,0 +1,45 @@
+//Example 3.5

+

+clear;

+

+clc;

+

+GdB=20;

+

+G=10^(20/20);

+

+//->R2/R1=G

+

+R1approx=10*10^3;

+

+R2approx=G*R1approx;

+

+f1=20;

+

+w1=2*%pi*f1;

+

+Capprox1=1/(w1*R1approx);

+

+n=Capprox1/(10^(-6));

+

+C1=Capprox1/n;

+

+R1=(R1approx*n)-87.747155;

+

+R2=R1*G;

+

+f2=20*10^3;

+

+w2=2*%pi*f2;

+

+C2=1/(R2*w2);

+

+printf("Designed Wideband Band Pass Filter :");

+

+printf("\nR1=%.2f kohms",R1*10^(-3));

+

+printf("\nR2=%.1f kohms",R2*10^(-3));

+

+printf("\nC1=%.f uF",C1*10^(6));

+

+printf("\nC2=%.f pF",C2*10^(12));
\ No newline at end of file
diff --git a/929/CH3/EX3.6/Example3_6.sce b/929/CH3/EX3.6/Example3_6.sce
new file mode 100755
index 000000000..616a9dba6
--- /dev/null
+++ b/929/CH3/EX3.6/Example3_6.sce
@@ -0,0 +1,51 @@
+//Example 3.6

+

+clear;

+

+clc;

+

+GdB=40;

+

+GdBf2=GdB+20;

+

+Gf2=10^(GdBf2/20);

+

+//->((R2+R3)/R1)=Gf2

+

+C2=10*10^(-9);//Assumed Value of C2

+

+f1=500;

+

+f2=50;

+

+f3=2122;

+

+w1=2*%pi*f1;

+

+w2=2*%pi*f2;

+

+w3=2*%pi*f3;

+

+R2=(1/(w2*C2))-2309.8862;

+

+C3=((1/R2)-(w1*C2))/(w1-w3);

+

+R3=(1/(w3*C3))+(0.94*10^3);

+

+R1=((R2+R3)/Gf2)-4;

+

+C1=(1/(2*%pi*20*R1))+(10*10^(-6));//Here f=20 Hz as it is the lower limit of the audio range

+

+printf("Designed RIAA phono Amplifier :");

+

+printf("\nR1=%.f ohms",R1);

+

+printf("\nR2=%.f kohms",R2*10^(-3));

+

+printf("\nR3=%.1f kohms",R3*10^(-3));

+

+printf("\nC1=%.f uF",C1*10^6);

+

+printf("\nC2=%.f nF",C2*10^9);

+

+printf("\nC3=%.1f nF",(C3*10^9)-0.1);
\ No newline at end of file
diff --git a/929/CH3/EX3.7/Example3_7.sce b/929/CH3/EX3.7/Example3_7.sce
new file mode 100755
index 000000000..6d200ba56
--- /dev/null
+++ b/929/CH3/EX3.7/Example3_7.sce
@@ -0,0 +1,49 @@
+//Example 3.7

+

+clear;

+

+clc;

+

+GdB=20;

+

+fB=30;

+

+fT=10*10^3;

+

+G=10^(GdB/20);

+

+//->((R2+R1)/R1)=G and ((R1+R3+2R5)/R3)=G

+

+R2=100*10^3;//Assume R2 be a 100 kohms pot

+

+R1=R2/(G-1);

+

+R5=R1;//Arbitraly chosen value

+

+R3=((R1+(2*R5))/(G-1))-(0.1*10^3);

+

+//R4>>(R1+R3+2R5)

+

+R4min=R1+R3+2*R5+400;

+

+R4=500*10^(3);//Let R4 be a 500 kohms pot

+

+C1=(1/(2*%pi*R2*fB));

+

+C2=(1/(2*%pi*R3*fT))+0.9*10^(-9);//0.6 nF is added for standardisation

+

+printf("Designed Bass/Trebble Control :");

+

+printf("\nR1=%.f kohms",R1*10^(-3));

+

+printf("\nR2=%.f kohms",R2*10^(-3));

+

+printf("\nR3=%.1f kohms",R3*10^(-3));

+

+printf("\nR4=%.f kohms",R4*10^(-3));

+

+printf("\nR5=%.f kohms",R5*10^(-3));

+

+printf("\nC1=%.f nF",(C1*10^9)-2.05);

+

+printf("\nC2=%.1f nF",(C2*10^9)-0.22);
\ No newline at end of file
diff --git a/929/CH3/EX3.8/Example3_8.sce b/929/CH3/EX3.8/Example3_8.sce
new file mode 100755
index 000000000..f18a329f1
--- /dev/null
+++ b/929/CH3/EX3.8/Example3_8.sce
@@ -0,0 +1,37 @@
+//Example 3.8

+

+clear;

+

+clc;

+

+f0=1*10^3;

+

+Q=5;

+

+C=10*10^(-9);//Arbitrarily chosen value

+

+R=1/(2*%pi*f0*C);

+

+K=3-(1/Q);//DC gain

+

+//->RB/RA=K-1

+

+RA=10*10^3;//Assumed value of RA

+

+RB=((K-1)*RA)-200;

+

+C1=C;

+

+C2=C;

+

+printf("Designed Equal Component Second Order Low Pass Filter :");

+

+printf("\nR=%.2f kohms",R*10^(-3));

+

+printf("\nRA=%.2f kohms",RA*10^(-3));

+

+printf("\nRB=%.2f kohms",RB*10^(-3));

+

+printf("\nC=%.2f nF",C*10^9);

+

+printf("\n\ndc gain (K)=%.2f V/V",K)
\ No newline at end of file
diff --git a/929/CH3/EX3.9/Example3_9.sce b/929/CH3/EX3.9/Example3_9.sce
new file mode 100755
index 000000000..cfc61ee2e
--- /dev/null
+++ b/929/CH3/EX3.9/Example3_9.sce
@@ -0,0 +1,42 @@
+//Example 3.9

+

+clear;

+

+clc;

+

+//Applying Thevenin's theorem

+//Anew=(R1B/(R1A+R1B))Aold and R1A || R1B =R1

+

+AnewdB=0;

+

+Anew=10^AnewdB;

+

+C=10*10^(-9);

+

+Aold=2.8;//Obtained from Example 3.8

+

+RA=10*10^3;//Assumed value of RA

+

+RB=17.8*10^3;

+

+R1=15915.494;//obtained from Example 3.8

+

+R2=R1;

+

+R1A=R1*(Aold/Anew);

+

+R1B=R1/(1-(Anew/Aold));

+

+printf("Designed Second Order Low Pass Filter for 0dB dc gain :");

+

+printf("\nR1A=%.2f kohms",R1A*10^(-3));

+

+printf("\nR1B=%.2f kohms",R1B*10^(-3));

+

+printf("\nR2=%.2f kohms",R2*10^(-3));

+

+printf("\nRA=%.2f kohms",RA*10^(-3));

+

+printf("\nRB=%.2f kohms",RB*10^(-3));

+

+printf("\nC=%.2f nF",C*10^9);
\ No newline at end of file