summaryrefslogtreecommitdiff
path: root/3812/CH8/EX8.10.a/8_10_a.sce
blob: 8fcf0b070fa81d3e170ab1f633ac352c7087701b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Example 8_10 <a>
//determine the Nyquest rate
//x(t)=10cos(2000)cos(8000)
//x(t)=5cos(6000)+5cos(10000)
clc;
clear all;
wq=10000;
wp=6000;
wf=0;
if wp>=wq then
wf=wp;
else
wf=wq;
end
F1=wf/2;
Fs=2*F1;
disp('Nyquist Rate=');
disp(Fs);