929/CH8/EX8.4/Example8_4.sce


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

//Example 8.4

clear;

clc;

R1=30*10^3;

R2=R1;

ft=20*10^6;

Cext=3*10^(-12);

GBP=20*10^6;

Cd=7*10^(-12);

Cc=12*10^(-12);

Cf=(R1/R2)*((Cc/2)+Cext);

Cn=Cext+Cd+(Cc/2);

fx=ft/(1+(Cn/Cf));

x=poly(0,'f');

A=(1+(R2/R1))/(1+(%i*(x/fx)));

printf("A(jf)=");

disp(A);

printf("V/V");