10 files changed, 100 insertions, 0 deletions
diff --git a/162/CH6/EX6.1.a/example61a.sce b/162/CH6/EX6.1.a/example61a.sce
new file mode 100755
index 000000000..db5ee9479
--- /dev/null
+++ b/162/CH6/EX6.1.a/example61a.sce
@@ -0,0 +1,11 @@
+//Example 6.1a
+clc;
+function[za]=ztransfer(sequence,n)
+    z=poly(0,'z','r')
+    za=sequence*(1/z)^n'
+endfunction
+x=[1,2,3,4,5,6,7];
+n1=0:length(x)-1;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
+\ No newline at end of file
diff --git a/162/CH6/EX6.1.b/example61b.sce b/162/CH6/EX6.1.b/example61b.sce
new file mode 100755
index 000000000..1b2b8931d
--- /dev/null
+++ b/162/CH6/EX6.1.b/example61b.sce
@@ -0,0 +1,11 @@
+//Example 6.1b
+clc;
+function[za]=ztransfer(sequence,n)
+    z=poly(0,'z','r')
+    za=sequence*(1/z)^n'
+endfunction
+x=[1,2,3,4,5,6,7];
+n1=-2:length(x)-3;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
+\ No newline at end of file
diff --git a/162/CH6/EX6.12/example612.sce b/162/CH6/EX6.12/example612.sce
new file mode 100755
index 000000000..3a7e3cea7
--- /dev/null
+++ b/162/CH6/EX6.12/example612.sce
@@ -0,0 +1,11 @@
+//Example 6.12
+clc;
+function[za]=ztransfer(sequence,n)
+    z=poly(0,'z','r')
+    za=sequence*(1/z)^n'
+endfunction
+x=[4,2,-1,0,3,-4];
+n1=-2:length(x)-3;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
+\ No newline at end of file
diff --git a/162/CH6/EX6.14.a/example614a.sce b/162/CH6/EX6.14.a/example614a.sce
new file mode 100755
index 000000000..70850790c
--- /dev/null
+++ b/162/CH6/EX6.14.a/example614a.sce
@@ -0,0 +1,9 @@
+//Example 6.14a
+clc;
+syms z n;
+x1=(1/4)^n;
+x2=(1/5)^n;
+X1=symsum(x1*(z^-n),n,0,%inf);
+X2=symsum(x2*(z^-n),n,0,%inf);
+X=X1+X2;
+disp(X,'X(z)=');
+\ No newline at end of file
diff --git a/162/CH6/EX6.14.b/example614b.sce b/162/CH6/EX6.14.b/example614b.sce
new file mode 100755
index 000000000..cfd4f6a34
--- /dev/null
+++ b/162/CH6/EX6.14.b/example614b.sce
@@ -0,0 +1,9 @@
+//Example 6.14b
+clc;
+syms z n;
+x1=(1/5)^n;
+x2=(1/4)^n;
+X1=symsum(x1*(z^-n),n,0,%inf);
+X2=symsum(x2*(z^-n),n,-%inf,-1);
+X=X1+X2;
+disp(X,'X(z)=');
+\ No newline at end of file
diff --git a/162/CH6/EX6.14.c/example614c.sce b/162/CH6/EX6.14.c/example614c.sce
new file mode 100755
index 000000000..10ebb757f
--- /dev/null
+++ b/162/CH6/EX6.14.c/example614c.sce
@@ -0,0 +1,9 @@
+//Example 6.14c
+clc;
+syms z n;
+x1=(1/4)^n;
+x2=(1/5)^n;
+X1=symsum(x1*(z^-n),n,0,%inf);
+X2=symsum(x2*(z^-n),n,-%inf,-1);
+X=X1+X2;
+disp(X,'X(z)=');
+\ No newline at end of file
diff --git a/162/CH6/EX6.2/example62.sce b/162/CH6/EX6.2/example62.sce
new file mode 100755
index 000000000..3bb1a5a0a
--- /dev/null
+++ b/162/CH6/EX6.2/example62.sce
@@ -0,0 +1,20 @@
+//Example 6.2
+clc;
+function[za]=ztransfer(sequence,n)
+    z=poly(0,'z','r')
+    za=sequence*(1/z)^n'
+endfunction
+x1=[1,-3,2];
+n1=0:length(x1)-1;
+X1=ztransfer(x1,n1);
+x2=[1,2,1];
+n2=0:length(x2)-1;
+X2=ztransfer(x2,n2);
+X=X1*X2;
+disp(X,'X(z)=');
+z=poly(0,'z');
+X=[1;-z^-1;-3*z^-2;z^-3;2*z^-4];
+n=0:4;
+ZI=z^n';
+x=numer(X.*ZI);
+disp(x,'x[n]=');
+\ No newline at end of file
diff --git a/162/CH6/EX6.5/example65.sce b/162/CH6/EX6.5/example65.sce
new file mode 100755
index 000000000..c62c310c9
--- /dev/null
+++ b/162/CH6/EX6.5/example65.sce
@@ -0,0 +1,8 @@
+//Example 6.5
+clc;
+syms z n;
+x1=4*(5^n);
+x2=3*(4^n);
+X1=symsum(x1*(z^-n),n,0,%inf);
+X2=symsum(x2*(z^-n),n,0,%inf);
+X=X1-X2;
+\ No newline at end of file
diff --git a/162/CH6/EX6.6.a/example66a.sce b/162/CH6/EX6.6.a/example66a.sce
new file mode 100755
index 000000000..ece04cbcd
--- /dev/null
+++ b/162/CH6/EX6.6.a/example66a.sce
@@ -0,0 +1,5 @@
+//Example 6.6a
+clc;
+syms z n;
+x=(1/3)^n;
+X=symsum(x*(z^-n),n,-%inf,0);
+\ No newline at end of file
diff --git a/162/CH6/EX6.6.b/example66b.sce b/162/CH6/EX6.6.b/example66b.sce
new file mode 100755
index 000000000..65ee0e229
--- /dev/null
+++ b/162/CH6/EX6.6.b/example66b.sce
@@ -0,0 +1,7 @@
+//Example 6.6b
+clc;
+syms z n;
+x=(1/3)^n;
+X1=symsum(x*(z^-n),n,0,%inf);
+X2=symsum(x*(z^-n),n,8,%inf);
+X=X1-X2;
+\ No newline at end of file