summaryrefslogtreecommitdiff
path: root/3812/CH8/EX8.1.e/8_1_e.sce
blob: 811ccc5a090743b9feaaa0670abf520b470374ee (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//determine the nyquist rate
//example 8_1<e>
clc;
clear all;
//x(t)=cos3(200*pi*t)
//cos3(t)=1/4[3cos(t)+cos(3t)]
//cos3(t)=3/4[cos(200)+1/4cos(600)]
wq=600;
wp=200;
wf=0;
if wp>=wq then
wf=wp;
else
wf=wq;
end
F1=wf/2;
Fs=2*F1;
disp('Nyquist Rate=');
disp(Fs);