1 files changed, 7 insertions, 5 deletions
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