1 files changed, 10 insertions, 0 deletions
diff --git a/692/CH6/EX6.18/P6_18.sce b/692/CH6/EX6.18/P6_18.sce
new file mode 100755
index 000000000..1621ddb18
--- /dev/null
+++ b/692/CH6/EX6.18/P6_18.sce
@@ -0,0 +1,10 @@
+//EXAMPLE 6.18
+//Inverse Z-transform using power series expansion
+clc;
+clear;
+z=%z;
+Xnum=z;
+Xden=(z-1)^2;
+xn=ldiv(Xnum,Xden,15);
+disp(xn,'The function is = ');
+disp(' Thus, xn = n*u(n)');
+\ No newline at end of file