summaryrefslogtreecommitdiff
path: root/2414/CH7/EX7.12/Ex7_12.sce
blob: 1ec38c228163ef788394999f5e6fab0dea483fb8 (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
clc;
close();
//page no 239
//prob no. 7.12
delta_f=75;   //kHz
fm=[.025 .075 .75 1.5 5 10 15]   //in kHz
function B=Beta(fm,delta_f)
B=delta_f *(1 ./fm);
endfunction
function Bt=Bandwidth(fm,delta_f)
Bt(1:3) = 2 *delta_f;
for i=4:7
   Bt(i) = 2 *(delta_f + fm(i)); 
end
endfunction
B=Beta(fm,delta_f);
Bt=Bandwidth(fm,delta_f);   //applying carsom's rule
disp('Table - 7.2');
disp('fm(kHz)     Beta       Bt(kHz)');
for i=1:7
mprintf('%4.3f         ',fm(i));
mprintf('%4.1f        ',B(i));
mprintf('%i\n',Bt(i));
end
plot(fm,Bt);
xtitle('Bandwidth of FM','fm,kHz','Bt,kHz')