6 files changed, 90 insertions, 0 deletions
diff --git a/758/CH4/EX4.13/Ex_4_13.sce b/758/CH4/EX4.13/Ex_4_13.sce
new file mode 100755
index 000000000..60409211c
--- /dev/null
+++ b/758/CH4/EX4.13/Ex_4_13.sce
@@ -0,0 +1,15 @@
+//Example 4.13
+
+clc;clear;close;
+z=poly(0,'z');
+x1=[4 -2 1];n1=0:length(x1)-1;
+X1=x1*(z^-n1)';
+x2=[1 1 1 1 1];n2=0:length(x2)-1;
+X2=x2*(z^-n2)';
+X3=X1*X2;
+l=coeff(numer(X3));
+x3=l(:,$:-1:1);
+disp(X1,'x1(n)={4,-2,1} X1(z)=');
+disp(X2,'x2(n)={1,1,1,1,1} X2(z)=');
+disp(X3,'Z transform of convolution of the two signals X3(z)=');
+disp(x3,'Convolution result of the two signals= ')
diff --git a/758/CH4/EX4.14/Ex_4_14.sce b/758/CH4/EX4.14/Ex_4_14.sce
new file mode 100755
index 000000000..9acd571ee
--- /dev/null
+++ b/758/CH4/EX4.14/Ex_4_14.sce
@@ -0,0 +1,15 @@
+//Example 4.14
+
+clc;clear;close;
+z=poly(0,'z');
+x1=[2 1 0 0.5];n1=0:length(x1)-1;
+X1=x1*(z^-n1)';
+x2=[2 2 1 1];n2=0:length(x2)-1;
+X2=x2*(z^-n2)';
+X3=X1*X2;
+l=coeff(numer(X3));
+x3=l(:,$:-1:1);
+disp(X1,'x1(n)={2,1,0,0.5} X1(z)=');
+disp(X2,'x2(n)={2,2,1,1} X2(z)=');
+disp(X3,'Z transform of convolution of the two signals X3(z)=');
+disp(x3,'Convolution result of the two signals= ')
diff --git a/758/CH4/EX4.16/Ex_4_16.sce b/758/CH4/EX4.16/Ex_4_16.sce
new file mode 100755
index 000000000..a8832c8ae
--- /dev/null
+++ b/758/CH4/EX4.16/Ex_4_16.sce
@@ -0,0 +1,16 @@
+//Example 4.16
+
+clc;clear;close;
+z=poly(0,'z');
+x1=[1 2 3 4];n1=0:length(x1)-1;
+X1=x1*(z^-n1)';
+x2=[4 3 2 1];n2=0:length(x2)-1;
+X2=x2*(z^-n2)';
+X2_=x2*(z^n2)';
+X3=X1*X2_;
+l=coeff(numer(X3));
+x3=l(:,$:-1:1);
+disp(X1,'x1(n)={4,-2,1} X1(z)=');
+disp(X2,'x2(n)={4,-2,1} X2(z)=');
+disp(X3,'Z transform of cross crrelation of the two signals X3(z)=');
+disp(x3,'Cross correlation result of the two signals= ')
diff --git a/758/CH4/EX4.19/Ex_4_19.sce b/758/CH4/EX4.19/Ex_4_19.sce
new file mode 100755
index 000000000..0898afc8b
--- /dev/null
+++ b/758/CH4/EX4.19/Ex_4_19.sce
@@ -0,0 +1,15 @@
+//Example 4.19
+
+clc;clear;close;
+z=poly(0,'z');
+h=[1 2 3];n1=0:length(h)-1;
+H=h*(z^-n1)';
+y=[1 1 2 -1 3];n2=0:length(y)-1;
+Y=y*(z^-n2)';
+X=Y/H;
+l=coeff(numer(X));
+x=l(:,$:-1:1);
+disp(H,'h(n)={1,2,3} H(z)=');
+disp(Y,'y(n)={1,1,2,-1,3} Y(z)=');
+disp(X,'Z transform of input sequence X(z)=');
+disp(x,'Inpput Sequence = ')
diff --git a/758/CH4/EX4.2/Ex_4_2.sce b/758/CH4/EX4.2/Ex_4_2.sce
new file mode 100755
index 000000000..15e720fdd
--- /dev/null
+++ b/758/CH4/EX4.2/Ex_4_2.sce
@@ -0,0 +1,22 @@
+//Example 4.2
+
+clc;clear;close;
+z=poly(0,'z');
+x1=[3 1 2 5 7 0 1];n1=-3:3;
+X1=x1*(z^-n1)';
+x2=[2 4 5 7 0 1 2];n2=-2:4;
+X2=x2*(z^-n2)';
+x3=[1 2 5 4 0 1]; n3=0:5;
+X3=x3*(z^-n3)';
+x4=[0 0 1 2 5 4 0 1];n4=0:7;
+X4=x4*(z^-n4)';
+X5=z^0;
+X6=z^-5;
+X7=z^5;
+disp(X1,'x1(n)={3,1,2,5,7,0,1} X1(z)=');
+disp(X2,'x2(n)={2,4,5,7,0,1,2} X2(z)=');
+disp(X3,'x3(n)={1,2,5,4,0,1} X3(z)=');
+disp(X4,'x4(n)={0,0,1,2,5,4,0,1} X4(z)=');
+disp(X5,'x5(n)=delta(n) X5(z)=');
+disp(X6,'x6(n)=delta(n-5) X6(z)=');
+disp(X7,'x7(n)=delta(n+5) X7(z)=');
+\ No newline at end of file
diff --git a/758/CH4/EX4.4/Ex_4_4.sce b/758/CH4/EX4.4/Ex_4_4.sce
new file mode 100755
index 000000000..9143d4362
--- /dev/null
+++ b/758/CH4/EX4.4/Ex_4_4.sce
@@ -0,0 +1,7 @@
+//Example 4.4
+
+clc;clear;close;
+z=poly(0,'z');
+x=[1 3 0 0 6 -1];n=-1:4;
+X=x*(z^-n)';
+disp(X,'x(n)={1,3,0,0,6,-1} X(z)=');
+\ No newline at end of file