initial commit / add all books

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