1 files changed, 13 insertions, 0 deletions
diff --git a/3812/CH10/EX10.53.a/10_53_a.sce b/3812/CH10/EX10.53.a/10_53_a.sce
new file mode 100644
index 000000000..fc76e2ac9
--- /dev/null
+++ b/3812/CH10/EX10.53.a/10_53_a.sce
@@ -0,0 +1,13 @@
+//example 10_53<a>:
+//Find unilateral Z transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[1 2 5 4 0 3];
+n1=0:length(x)-1;
+disp(n1)
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);