1 files changed, 10 insertions, 0 deletions
diff --git a/758/CH5/EX5.21/Ex_5_21.sce b/758/CH5/EX5.21/Ex_5_21.sce
new file mode 100755
index 000000000..7a47eb7a9
--- /dev/null
+++ b/758/CH5/EX5.21/Ex_5_21.sce
@@ -0,0 +1,10 @@
+//Example 5.21
+clc;clear;close;
+z=poly(0,'z');
+H=(1+z^-1)/(1+3/4*z^-1+1/8*z^-2);
+pole=roots(numer(H));
+zero=roots(denom(H));
+disp(H,'System Transfer Function H(z)=');
+disp(zero,'System zeros are at');
+disp(pole,'System poles are at ');
+plzr(H);
+\ No newline at end of file