1 files changed, 25 insertions, 0 deletions
diff --git a/52/CH1/EX1.64.c/Example1_64_c.sce b/52/CH1/EX1.64.c/Example1_64_c.sce
new file mode 100755
index 000000000..5b8f5c9d9
--- /dev/null
+++ b/52/CH1/EX1.64.c/Example1_64_c.sce
@@ -0,0 +1,25 @@
+//Example 1.64 (c)
+//Program to Calculate Plot Magnitude and Phase Responce
+clear;
+clc ;
+close ;
+w=0:0.01:%pi;
+H=1/(1-0.9*%i*%e^(-%i*w));
+//caluculation of Phase and Magnitude of H
+[phase_H,m]=phasemag(H);
+Hm=abs(H);
+a=gca();
+subplot(2,1,1);
+a.y_location="origin";
+plot2d(w/%pi,Hm);
+xlabel('Frequency in Radians')
+ylabel('abs(Hm)');
+title('MAGNITUDE RESPONSE');
+subplot(2,1,2);
+a=gca();
+a.x_location="origin";
+a.y_location="origin";
+plot2d(w/(2*%pi),phase_H);
+xlabel('Frequency in Radians');
+ylabel('<(H)');
+title('PHASE RESPONSE');
+\ No newline at end of file