3 files changed, 43 insertions, 0 deletions
diff --git a/1592/CH3/EX3.14/Fig3_14_1.jpg b/1592/CH3/EX3.14/Fig3_14_1.jpg
new file mode 100755
index 000000000..59d92a36e
--- /dev/null
+++ b/1592/CH3/EX3.14/Fig3_14_1.jpg
diff --git a/1592/CH3/EX3.14/Fig3_14_2.jpg b/1592/CH3/EX3.14/Fig3_14_2.jpg
new file mode 100755
index 000000000..41ad7a314
--- /dev/null
+++ b/1592/CH3/EX3.14/Fig3_14_2.jpg
diff --git a/1592/CH3/EX3.14/example_3_14.sce b/1592/CH3/EX3.14/example_3_14.sce
new file mode 100755
index 000000000..ecfab79c4
--- /dev/null
+++ b/1592/CH3/EX3.14/example_3_14.sce
@@ -0,0 +1,43 @@
+//Scilab Code for Example 3.14 of Signals and systems by
+//P.Ramakrishna Rao
+//CTFS coefficients of a periodic signal 
+//x(wt) = Asin wt, 0<wt<pi, and 0, pi<|t|<2*pi
+clear;
+clc;
+A=6;
+T =2*%pi;
+T1 = T/2;
+t = 0:0.01:T1;
+Wo = 2*%pi/T;
+xt =A*sin(Wo*t);
+for k =0:6
+  C(k+1,:) = exp(-sqrt(-1)*Wo*t.*k);
+  c(k+1) = xt*C(k+1,:)'/length(t);
+  if(abs(c(k+1))<=0.01) 
+    c(k+1)=0;
+  end
+end
+c =c';
+c_conj = real(c(:))-sqrt(-1)*imag(c(:));
+ck = [c_conj($:-1:1)',c(2:$)];
+k = 0:6;
+k = [-k($:-1:1),k(2:$)];
+figure(1);
+c = gca();
+c.y_location = "origin";
+c.x_location = "origin";
+//c.data_bounds=[-2,0;2,2];
+plot2d(t,xt,5)
+poly1 = c.children(1).children(1);
+poly1.thickness = 3; 
+title('x(t)')
+xlabel('t')
+figure(2);
+c = gca();
+c.y_location = "origin";
+c.x_location = "origin";
+plot2d3('gnn',k,abs(ck),9)
+poly1 = c.children(1).children(1);
+poly1.thickness = 3; 
+title('|ck|')
+xlabel('k')