3812/CH8/EX8.1.a/8_1_a.sce


1
2
3
4
5
6
7
8
9
10

//determine the nyquist rate
//8.1(a)
clc;
clear all;
//x(t)=sin(200*pi*t)
wp=200;
F1=wp/2;
Fs=2*F1;
disp('Nyquist Rate=');
disp(Fs);