summaryrefslogtreecommitdiff
path: root/929/CH8/EX8.9/Example8_9.sce
blob: 82793022436f65d4ee6bd682f0ddc611ba840818 (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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
//Example 8.9

clear;

clc;

rd=1*10^6;

g1=2*10^(-3);

R1=100*10^(3);

g2=10*10^(-3);

R2=50*10^3;

ro=100;

f1=100*10^3;

f2=1*10^6;

f3=10*10^6;

PM=45;

a0=g1*R1*g2*R2;

C1=1/(2*%pi*f1*R1);

b1=1;

C21=1/(2*%pi*f2*R2);

f2newap1=g2/[2*%pi*(C1+C21)];

fx1=f3;

f1new1=f3/(b1*a0);

Cc1=1/(2*%pi*R1*g2*R2*f1new1);

f2new1=(g2*Cc1)/(2*%pi*((C1*C21)+(Cc1*C1)+(Cc1*C21)));

fz1=g2/(2*%pi*Cc1);

printf("(a) f1new=%.f Hz",f1new1);

printf("\n    f2new=%.f MHz",f2new1*10^(-6));

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

b2=0.5;

C22=1/(2*%pi*f2*R2);

f2newap2=g2/[2*%pi*(C1+C22)];

fx2=f3;

f1new2=f3/(b2*a0);

Cc2=1/(2*%pi*R1*g2*R2*f1new2);

f2new2=(g2*Cc2)/(2*%pi*((C1*C22)+(Cc2*C1)+(Cc2*C22)));

fz2=g2/(2*%pi*Cc2);

printf("\n\n(b) f1new=%.f Hz",f1new2);

printf("\n    f2new=%.f MHz",f2new2*10^(-6));

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