1 files changed, 16 insertions, 13 deletions
diff --git a/830/CH3/EX3.2.9/Convolution_Property.sce b/830/CH3/EX3.2.9/Convolution_Property.sce
index 00a1328e2..7b2dfedc4 100755
--- a/830/CH3/EX3.2.9/Convolution_Property.sce
+++ b/830/CH3/EX3.2.9/Convolution_Property.sce
@@ -1,13 +1,16 @@
-//Graphical//
-//Example 3.2.9
-//Convolution Property Proof
-clear;
-clc;
-close;
-x1 = [1,-2,1];
-n1 = 0:length(x1)-1;
-X1 = ztransfer_new(x1,n1)
-x2 = [1,1,1,1,1,1];
-n2 = 0:length(x2)-1;
-X2 = ztransfer_new(x2,n2)
-X = X1.*X2
+//Graphical//
+//Example 3.2.9
+//Convolution Property Proof
+clear;
+clc;
+close;
+function [Ztransfer]= ztransfer_new (sequence,n)
+  z = poly (0, 'z' , 'r' );  Ztransfer = sequence *(1/z )^n'
+endfunction
+x1 = [1,-2,1];
+n1 = 0:length(x1)-1;
+X1 = ztransfer_new(x1,n1)
+x2 = [1,1,1,1,1,1];
+n2 = 0:length(x2)-1;
+X2 = ztransfer_new(x2,n2)
+X = X1.*X2
+\ No newline at end of file