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 --- 929/CH3/EX3.1/Example3_1.JPG | Bin 0 -> 40445 bytes 929/CH3/EX3.1/Example3_1.sce | 25 +++++++++++++++++ 929/CH3/EX3.10/Example3_10.sce | 39 ++++++++++++++++++++++++++ 929/CH3/EX3.11.a/Example3_11_a.sce | 39 ++++++++++++++++++++++++++ 929/CH3/EX3.11.b/Example3_11_b.sce | 47 +++++++++++++++++++++++++++++++ 929/CH3/EX3.12/Example3_12.sce | 37 +++++++++++++++++++++++++ 929/CH3/EX3.13.a/Example3_13_a.sce | 45 ++++++++++++++++++++++++++++++ 929/CH3/EX3.13.b/Example3_13_b.sce | 53 +++++++++++++++++++++++++++++++++++ 929/CH3/EX3.14/Example3_14.sce | 45 ++++++++++++++++++++++++++++++ 929/CH3/EX3.15/Example3_15.sce | 37 +++++++++++++++++++++++++ 929/CH3/EX3.16/Example3_16.sce | 45 ++++++++++++++++++++++++++++++ 929/CH3/EX3.17/Example3_17.sce | 47 +++++++++++++++++++++++++++++++ 929/CH3/EX3.18/Example3_18.sce | 43 +++++++++++++++++++++++++++++ 929/CH3/EX3.19/Example3_19.sce | 53 +++++++++++++++++++++++++++++++++++ 929/CH3/EX3.2/Example3_2.sce | 25 +++++++++++++++++ 929/CH3/EX3.2/Example3_2.txt | 3 ++ 929/CH3/EX3.20/Example3_20.sce | 55 +++++++++++++++++++++++++++++++++++++ 929/CH3/EX3.21.a/Example3_21_a.sce | 43 +++++++++++++++++++++++++++++ 929/CH3/EX3.21.b/Example3_21_b.sce | 25 +++++++++++++++++ 929/CH3/EX3.3/Example3_3.sce | 33 ++++++++++++++++++++++ 929/CH3/EX3.4.a/Example3_4_a.sce | 35 +++++++++++++++++++++++ 929/CH3/EX3.4.b/Example3_4_b.sce | 45 ++++++++++++++++++++++++++++++ 929/CH3/EX3.5/Example3_5.sce | 45 ++++++++++++++++++++++++++++++ 929/CH3/EX3.6/Example3_6.sce | 51 ++++++++++++++++++++++++++++++++++ 929/CH3/EX3.7/Example3_7.sce | 49 +++++++++++++++++++++++++++++++++ 929/CH3/EX3.8/Example3_8.sce | 37 +++++++++++++++++++++++++ 929/CH3/EX3.9/Example3_9.sce | 42 ++++++++++++++++++++++++++++ 27 files changed, 1043 insertions(+) create mode 100755 929/CH3/EX3.1/Example3_1.JPG create mode 100755 929/CH3/EX3.1/Example3_1.sce create mode 100755 929/CH3/EX3.10/Example3_10.sce create mode 100755 929/CH3/EX3.11.a/Example3_11_a.sce create mode 100755 929/CH3/EX3.11.b/Example3_11_b.sce create mode 100755 929/CH3/EX3.12/Example3_12.sce create mode 100755 929/CH3/EX3.13.a/Example3_13_a.sce create mode 100755 929/CH3/EX3.13.b/Example3_13_b.sce create mode 100755 929/CH3/EX3.14/Example3_14.sce create mode 100755 929/CH3/EX3.15/Example3_15.sce create mode 100755 929/CH3/EX3.16/Example3_16.sce create mode 100755 929/CH3/EX3.17/Example3_17.sce create mode 100755 929/CH3/EX3.18/Example3_18.sce create mode 100755 929/CH3/EX3.19/Example3_19.sce create mode 100755 929/CH3/EX3.2/Example3_2.sce create mode 100755 929/CH3/EX3.2/Example3_2.txt create mode 100755 929/CH3/EX3.20/Example3_20.sce create mode 100755 929/CH3/EX3.21.a/Example3_21_a.sce create mode 100755 929/CH3/EX3.21.b/Example3_21_b.sce create mode 100755 929/CH3/EX3.3/Example3_3.sce create mode 100755 929/CH3/EX3.4.a/Example3_4_a.sce create mode 100755 929/CH3/EX3.4.b/Example3_4_b.sce create mode 100755 929/CH3/EX3.5/Example3_5.sce create mode 100755 929/CH3/EX3.6/Example3_6.sce create mode 100755 929/CH3/EX3.7/Example3_7.sce create mode 100755 929/CH3/EX3.8/Example3_8.sce create mode 100755 929/CH3/EX3.9/Example3_9.sce (limited to '929/CH3') 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 Binary files /dev/null and b/929/CH3/EX3.1/Example3_1.JPG differ 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 -- cgit