1 files changed, 9 insertions, 0 deletions
diff --git a/692/CH6/EX6.19/P6_19.sce b/692/CH6/EX6.19/P6_19.sce
new file mode 100755
index 000000000..a8659aa17
--- /dev/null
+++ b/692/CH6/EX6.19/P6_19.sce
@@ -0,0 +1,9 @@
+//EXAMPLE 6.19
+//Inverse Z-transform using Long division method
+clc;
+clear;
+z=%z;
+Hnum=z^2 + 2*z;
+Hden=z^2 + 0.4*z -0.12;
+hn=ldiv(Hnum,Hden,20);
+disp(hn,'The function is, hn = ');