summaryrefslogtreecommitdiff
path: root/3812/CH8
diff options
context:
space:
mode:
Diffstat (limited to '3812/CH8')
-rw-r--r--3812/CH8/EX8.1.a/8_1_a.sce10
-rw-r--r--3812/CH8/EX8.1.b/8_1_b.sce11
-rw-r--r--3812/CH8/EX8.1.c/8_1_c.sce17
-rw-r--r--3812/CH8/EX8.1.d/8_1_d.sce18
-rw-r--r--3812/CH8/EX8.1.e/8_1_e.sce19
-rw-r--r--3812/CH8/EX8.10.a/8_10_a.sce19
-rw-r--r--3812/CH8/EX8.10.b/8_10_b.sce19
-rw-r--r--3812/CH8/EX8.2.a/8_2_a.sce11
-rw-r--r--3812/CH8/EX8.2.b/8_2_b.sce10
-rw-r--r--3812/CH8/EX8.2.c/8_2_c.sce17
-rw-r--r--3812/CH8/EX8.3.a/8_3_a.sce15
-rw-r--r--3812/CH8/EX8.3.b/8_3_b.sce15
-rw-r--r--3812/CH8/EX8.3.c/8_3_c.sce15
-rw-r--r--3812/CH8/EX8.9.a/8_9_a.sce18
-rw-r--r--3812/CH8/EX8.9.b/8_9_b.sce18
-rw-r--r--3812/CH8/EX8.9.c/8_9_c.sce17
16 files changed, 249 insertions, 0 deletions
diff --git a/3812/CH8/EX8.1.a/8_1_a.sce b/3812/CH8/EX8.1.a/8_1_a.sce
new file mode 100644
index 000000000..50639cf96
--- /dev/null
+++ b/3812/CH8/EX8.1.a/8_1_a.sce
@@ -0,0 +1,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);
diff --git a/3812/CH8/EX8.1.b/8_1_b.sce b/3812/CH8/EX8.1.b/8_1_b.sce
new file mode 100644
index 000000000..c11e46f23
--- /dev/null
+++ b/3812/CH8/EX8.1.b/8_1_b.sce
@@ -0,0 +1,11 @@
+//determine the nyquist rate
+//8.1(b)
+clc;
+clear all;
+//x(t)=sin2(200*pi*t)
+//x(t)=0.5-0.5cos(400*pi*t)
+wp=400;
+F1=wp/2;
+Fs=2*F1;
+disp('Nyquist Rate=');
+disp(Fs);
diff --git a/3812/CH8/EX8.1.c/8_1_c.sce b/3812/CH8/EX8.1.c/8_1_c.sce
new file mode 100644
index 000000000..58df853d3
--- /dev/null
+++ b/3812/CH8/EX8.1.c/8_1_c.sce
@@ -0,0 +1,17 @@
+//determine the nyquist rate
+//example 8_1<c>
+clc;
+clear all;
+//x(t)=1+cos(200*pi*t)+sin(400*pi*t)
+wq=200;
+wp=400;
+wf=0;
+if wp>=wq then
+wf=wp;
+else
+wf=wq;
+end
+F1=wf/2;
+Fs=2*F1;
+disp('Nyquist Rate=');
+disp(Fs);
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);
diff --git a/3812/CH8/EX8.1.e/8_1_e.sce b/3812/CH8/EX8.1.e/8_1_e.sce
new file mode 100644
index 000000000..811ccc5a0
--- /dev/null
+++ b/3812/CH8/EX8.1.e/8_1_e.sce
@@ -0,0 +1,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);
diff --git a/3812/CH8/EX8.10.a/8_10_a.sce b/3812/CH8/EX8.10.a/8_10_a.sce
new file mode 100644
index 000000000..8fcf0b070
--- /dev/null
+++ b/3812/CH8/EX8.10.a/8_10_a.sce
@@ -0,0 +1,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);
+
diff --git a/3812/CH8/EX8.10.b/8_10_b.sce b/3812/CH8/EX8.10.b/8_10_b.sce
new file mode 100644
index 000000000..e9ee6bcc0
--- /dev/null
+++ b/3812/CH8/EX8.10.b/8_10_b.sce
@@ -0,0 +1,19 @@
+//Example 8_10 <b>
+//determine the minimum sampling rate
+//x(t)=10cos(2000)cos(8000)
+//x(t)=5cos(6000)+5cos(10000)
+clc;
+clear all;
+Fl=6000/2;
+Fh=10000/2;
+Bandwidth_1=Fh-Fl;
+a=modulo(Fh,Bandwidth_1);
+Fh_1=Fh-a;
+div_12=Fh_1./Bandwidth_1;
+if(a==0) then
+Fs=2*Bandwidth_1;
+else
+Fs=(2*Fh)/div_12;
+end
+disp('Minimum Sampling Frequency=');
+disp(Fs);
diff --git a/3812/CH8/EX8.2.a/8_2_a.sce b/3812/CH8/EX8.2.a/8_2_a.sce
new file mode 100644
index 000000000..44a674131
--- /dev/null
+++ b/3812/CH8/EX8.2.a/8_2_a.sce
@@ -0,0 +1,11 @@
+//Example 8_2 <a>
+//determine the nyquist rate of x(t)=sinc(200*pi*t)
+//sinc(t)=cos(t)/t
+//cos3(t)=3/4[cos(200)+1/4cos(600)]
+clc;
+clear all;
+wp=200;
+F1=wp/2;
+Fs=2*F1;
+disp('Nyquist Rate=');
+disp(Fs);
diff --git a/3812/CH8/EX8.2.b/8_2_b.sce b/3812/CH8/EX8.2.b/8_2_b.sce
new file mode 100644
index 000000000..33519177c
--- /dev/null
+++ b/3812/CH8/EX8.2.b/8_2_b.sce
@@ -0,0 +1,10 @@
+//Example 8_2<b>
+//determine the nyquist rate of x(t)=sinc2(200*pi*t)
+//sinc(400t)=0.5cos(400t)/400t
+clc;
+clear all;
+wp=400;
+F1=wp/2;
+Fs=2*F1;
+disp('Nyquist Rate=');
+disp(Fs);
diff --git a/3812/CH8/EX8.2.c/8_2_c.sce b/3812/CH8/EX8.2.c/8_2_c.sce
new file mode 100644
index 000000000..4d888d65d
--- /dev/null
+++ b/3812/CH8/EX8.2.c/8_2_c.sce
@@ -0,0 +1,17 @@
+//Example 8_2<c>
+//determine the nyquist rate of x(t)=sinc(200*pi*t)+sinc2(200*pi*t)
+//here,sinc(400t)=0.5cos(400t)/400t+
+clc;
+clear all;
+wq=400;
+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);
diff --git a/3812/CH8/EX8.3.a/8_3_a.sce b/3812/CH8/EX8.3.a/8_3_a.sce
new file mode 100644
index 000000000..a4db2084e
--- /dev/null
+++ b/3812/CH8/EX8.3.a/8_3_a.sce
@@ -0,0 +1,15 @@
+//Example 8_3 <a>
+//determine whether the Nyquist criteria satisfy or not
+//Ws>=2Wmax
+//fs>=2fmax
+clc;
+clear all;
+Ts=0.5*10^-3;
+Wc=1000
+Fs=1000
+Ts_test=1/Fs;
+if (Ts<=Ts_test) then
+disp('Nyquist Criteria Satify')
+else
+disp('Nyquist Criteria NOT Satify ');
+end
diff --git a/3812/CH8/EX8.3.b/8_3_b.sce b/3812/CH8/EX8.3.b/8_3_b.sce
new file mode 100644
index 000000000..59b4902aa
--- /dev/null
+++ b/3812/CH8/EX8.3.b/8_3_b.sce
@@ -0,0 +1,15 @@
+//Example 8_3 <b>
+//determine whether the Nyquist criteria satisfy or not
+//Ws>=2Wmax
+//fs>=2fmax
+clc;
+clear all;
+Ts=2*10^-3;
+Wc=1000
+Fs=1000
+Ts_test=1/Fs;
+if (Ts<=Ts_test) then
+disp('Nyquist Criteria Satify')
+else
+disp('Nyquist Criteria NOT Satify ');
+end
diff --git a/3812/CH8/EX8.3.c/8_3_c.sce b/3812/CH8/EX8.3.c/8_3_c.sce
new file mode 100644
index 000000000..d1d3ea992
--- /dev/null
+++ b/3812/CH8/EX8.3.c/8_3_c.sce
@@ -0,0 +1,15 @@
+//Example 8_3 <c>
+//determine whether the Nyquist criteria satisfy or not
+//Ws>=2Wmax
+//fs>=2fmax
+clc;
+clear all;
+Ts=10^-4;
+Wc=1000
+Fs=1000
+Ts_test=1/Fs;
+if (Ts<=Ts_test) then
+disp('Nyquist Criteria Satify')
+else
+disp('Nyquist Criteria NOT Satify ');
+end
diff --git a/3812/CH8/EX8.9.a/8_9_a.sce b/3812/CH8/EX8.9.a/8_9_a.sce
new file mode 100644
index 000000000..b3f622bc2
--- /dev/null
+++ b/3812/CH8/EX8.9.a/8_9_a.sce
@@ -0,0 +1,18 @@
+//Example 8_9 <a>
+//Determine minimum sampling frequency
+clc;
+clear all;
+Fl=9000;
+Fh=12000;
+Bandwidth_1=Fh-Fl;
+a=modulo(Fh,Bandwidth_1);
+Fh_1=Fh-a;
+div_12=Fh_1./Bandwidth_1;
+if(a==0) then
+Fs=2*Bandwidth_1;
+else
+Fs=(2*Fh)/div_12;
+end
+disp('Minimum Sampling Frequency=');
+disp(Fs);
+
diff --git a/3812/CH8/EX8.9.b/8_9_b.sce b/3812/CH8/EX8.9.b/8_9_b.sce
new file mode 100644
index 000000000..7635b23a0
--- /dev/null
+++ b/3812/CH8/EX8.9.b/8_9_b.sce
@@ -0,0 +1,18 @@
+//Example 8_9 <b>
+//Determine minimum sampling frequency
+clc;
+clear all;
+Fl=18000;
+Fh=22000;
+Bandwidth_1=Fh-Fl;
+a=modulo(Fh,Bandwidth_1);
+Fh_1=Fh-a;
+div_12=Fh_1./Bandwidth_1;
+if(a==0) then
+Fs=2*Bandwidth_1;
+else
+Fs=(2*Fh)/div_12;
+end
+disp('Minimum Sampling Frequency=');
+disp(Fs);
+
diff --git a/3812/CH8/EX8.9.c/8_9_c.sce b/3812/CH8/EX8.9.c/8_9_c.sce
new file mode 100644
index 000000000..b44e88da3
--- /dev/null
+++ b/3812/CH8/EX8.9.c/8_9_c.sce
@@ -0,0 +1,17 @@
+//Example 8_9 <c>
+//Determine minimum sampling frequency
+clc;
+clear all;
+Fl=30000;
+Fh=35000;
+Bandwidth_1=Fh-Fl;
+a=modulo(Fh,Bandwidth_1);
+Fh_1=Fh-a;
+div_12=Fh_1./Bandwidth_1;
+if(a==0) then
+Fs=Bandwidth_1;
+else
+Fs=Bandwidth_1;
+end
+disp('Minimum Sampling Frequency=');
+disp(Fs);
generated by cgit (git 2.34.1) at 2024-12-19 19:16:28 +0000