summaryrefslogtreecommitdiff
path: root/2528/CH1/EX1.17/Ex1_17.sce
blob: f6faa341274342c810026586a4ae5e3380e6ab7e (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
//Chapter 1
//page 30
//Example no 1-17
//figure 1.15
//Given 
clc;
clear;
Avmidband=26;
f=(100:.5:40000+.5);

Av=[Avmidband*ones(200+.5:.5:10000-.5)];
for i=0:6/200:6
Av=[Avmidband-i Av]
end
for i=0:12/40000:12
Av=[Av Avmidband-i]
end
for i=0:6/20000:6
Av=[Av Avmidband-12-i]
end
x=ones(Av)
clf
gainplot(f,x)
plot(f,Av)
title('Gainplot for complete amplifier')