summaryrefslogtreecommitdiff
path: root/1850/CH6/EX6.8/exa_6_8.sce
blob: 2941e9aa585ec3a4c2a4c0dedc26a64001652987 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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")