1 files changed, 18 insertions, 0 deletions
diff --git a/3812/CH8/EX8.1.d/8_1_d.sce b/3812/CH8/EX8.1.d/8_1_d.sce
new file mode 100644
index 000000000..3ab5b587e
--- /dev/null
+++ b/3812/CH8/EX8.1.d/8_1_d.sce
@@ -0,0 +1,18 @@
+//determine the nyquist rate
+//example 8_1<d>
+clc;
+clear all;
+//x(t)=cos(150*pi*t)sin(100*pi*t)
+//x(t)=0.5sin(250*pi*t)*0.5*sin(50*pi*t)
+wq=50;
+wp=250;
+wf=0;
+if wp>=wq then
+wf=wp;
+else
+wf=wq;
+end
+F1=wf/2;
+Fs=2*F1;
+disp('Nyquist Rate=');
+disp(Fs);