1 files changed, 14 insertions, 0 deletions
diff --git a/692/CH9/EX9.6/P9_6.sce b/692/CH9/EX9.6/P9_6.sce
new file mode 100755
index 000000000..6ad4a248f
--- /dev/null
+++ b/692/CH9/EX9.6/P9_6.sce
@@ -0,0 +1,14 @@
+//EXAMPLE 9.6
+//LP TO LP Transformation
+
+clc;
+clear;
+z=%z;
+w=0:0.001*%pi:%pi;
+Glz=(0.0662272*(1+1/z)^3)/((1-0.2593284/z)*(1-0.6762858/z+0.3917468/(z^2)))
+wc=0.25*%pi;//Oringinal passband edge
+Wc=0.35*%pi;//Required passband edge
+l=sin((wc-Wc)/2)/sin((wc+Wc)/2)
+disp(l,'lambda = ');
+Gdz=horner(Glz,((1-l/z)/(1/z-l)));
+disp(Gdz,'The transfer function is Gdz = ');
+\ No newline at end of file