summaryrefslogtreecommitdiff
path: root/929/CH8/EX8.5/Example8_5.sce
blob: af204581449e8e471a21a1997fe3271726140515 (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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
//Example 8.5

clear;

clc;

GBP=10*10^6;

ro=100;

A0=-2;

CL=5*10^(-9);

R1=10*10^3;

R2=20*10^3;

Rs=(R1/R2)*ro;

Cf=((1+(R1/R2))^2)*(ro/R2)*CL;

f3dB=1/(2*%pi*R2*Cf);

b=1/3;

fx=b*GBP;

printf("(a) Rs=%.f ohms",Rs);

printf("\n    Cf=%.f pF",Cf*10^12);

x=poly(0,'f');

A=A0/((1+(%i*(x/fx)))*(1+(%i*(x/f3dB))));

printf("\n\n(b) A(jf)=");

disp(A);

printf("V/V");