1 files changed, 12 insertions, 0 deletions
diff --git a/3812/CH10/EX10.12.d/10_12d.sce b/3812/CH10/EX10.12.d/10_12d.sce
new file mode 100644
index 000000000..5874d796f
--- /dev/null
+++ b/3812/CH10/EX10.12.d/10_12d.sce
@@ -0,0 +1,12 @@
+//example 10.12(d)
+// Find Z Transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[1,2,6,-2,0,3];
+n1=-5:length(x)-6;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);