From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:38:01 +0530
Subject: updated the code

---
 773/CH18/EX18.08.01/18_08_01.sci | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

(limited to '773/CH18/EX18.08.01')

diff --git a/773/CH18/EX18.08.01/18_08_01.sci b/773/CH18/EX18.08.01/18_08_01.sci
index 3a33aec94..2bdf13a3d 100755
--- a/773/CH18/EX18.08.01/18_08_01.sci
+++ b/773/CH18/EX18.08.01/18_08_01.sci
@@ -1,5 +1,7 @@
-//symsum//
-exec ztransfer.sce;
-sequence=[0 2 0 0 -3 0 0 8]
-y=ztransfer(sequence);
-disp(y,"ans=")
+//symsum//
+ function [Ztransfer]= ztransfer_new (sequence,n)
+  z = poly (0, 'z' , 'r' );  Ztransfer = sequence *(1/z )^n'
+endfunction
+sequence=[0 2 0 0 -3 0 0 8]
+y=ztransfer(sequence);
+disp(y,"ans=")
\ No newline at end of file
-- 
cgit