1 files changed, 13 insertions, 0 deletions
diff --git a/716/CH4/EX4.21/Solved_Ex_4_21.sce b/716/CH4/EX4.21/Solved_Ex_4_21.sce
new file mode 100755
index 000000000..508154d16
--- /dev/null
+++ b/716/CH4/EX4.21/Solved_Ex_4_21.sce
@@ -0,0 +1,13 @@
+//Determine fourier transform of Given Signal and sketch magnitude and phase spectrum
+clc;
+clear;
+t=0:0.1:15;
+a=1;
+x=exp(-a*t).*(t>=0);
+X=dft(x,-1);
+Xmag=abs(X);
+subplot(1,2,1)
+plot(t,Xmag);
+xphase=atan(imag(X),real(X));
+subplot(1,2,2)
+plot(t,xphase)
+\ No newline at end of file