summaryrefslogtreecommitdiff
path: root/135/CH10/EX10.15/EX15.sce
blob: 5c3caf0fbecd05f7c24c6858c3fc08fa785303d0 (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
// Example 10.15: (a) CB and CL
//                (b) Zero introduced by CE
clc, clear
RE=1.5e3; // in ohms
Rs=600; // in ohms
bta=100;
r_pi=1e3; // in ohms
fL=50; // in hertz

disp("Part (a)");
fLB=fL/2; // in hertz
fLE=fLB; // in hertz
CB=1/(2*%pi*fLB*(Rs+r_pi)); // in farads
CB=CB*1e6; // in micro-farads
function[c]=parallel(a,b)
    c=a*b/(a+b);
endfunction
CE=1/(2*%pi*fLE*parallel(RE,(Rs+r_pi)/(1+bta))); // in farads
CE=CE*1e6; // in micro-farads
disp(CB,"CB (µF) =");
disp(CE,"CE (µF) =");

disp("Part (b)");
fE=1e6/(2*%pi*RE*CE); // in hertz
disp(fE, "fE (Hz) =");