initial commit / add all books

44 files changed, 494 insertions, 0 deletions

diff --git a/52/CH2/EX2.1/Example2_1.sce b/52/CH2/EX2.1/Example2_1.sce
new file mode 100755
index 000000000..bd90f996e
--- /dev/null
+++ b/52/CH2/EX2.1/Example2_1.sce
@@ -0,0 +1,15 @@
+//Example 2.1

+//Z- transform of [1 0 3 -1 2] 

+clear;

+clc ;

+close ;

+function[za]=ztransfer(sequence,n)

+z=poly(0,'z','r')

+za=sequence*(1/z)^n'

+endfunction

+x1=[1 0 3 -1 2];

+n=0:length(x1)-1;

+zz=ztransfer(x1,n);    

+//Display the result in command window

+disp (zz,"Z-transform of sequence is:");

+disp('ROC is the entire plane except z = 0');
\ No newline at end of file
diff --git a/52/CH2/EX2.10/Example2_10.sce b/52/CH2/EX2.10/Example2_10.sce
new file mode 100755
index 000000000..9a853b88d
--- /dev/null
+++ b/52/CH2/EX2.10/Example2_10.sce
@@ -0,0 +1,11 @@
+//Example 2.10

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z transform of r^n.cos(Wo*n)

+clc;

+syms r Wo n z;

+x1=(r^n)*exp(sqrt(-1)*Wo*n);

+X1=symsum(x1*(z^-n),n,0,%inf);

+x2=(r^n)*exp(-sqrt(-1)*Wo*n);

+X2=symsum(x2*(z^-n),n,0,%inf);

+X=(X1+X2)/2;

+disp(X,'X(z)=');
\ No newline at end of file
diff --git a/52/CH2/EX2.11/Example2_11.sce b/52/CH2/EX2.11/Example2_11.sce
new file mode 100755
index 000000000..e8bdfd8c3
--- /dev/null
+++ b/52/CH2/EX2.11/Example2_11.sce
@@ -0,0 +1,12 @@
+//Example 2.11

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of n.a^n u(n) 

+clear;

+clc ;

+close ;

+syms a n z;

+x =(a) ^n;

+X= symsum (x*(z^(-n)),n ,0, %inf )

+Y = diff (X,z);

+//Display the result in command window

+disp (Y,"Z-transform of n.a^n u(n)  is:");
\ No newline at end of file
diff --git a/52/CH2/EX2.13.a/Example2_13_a.sce b/52/CH2/EX2.13.a/Example2_13_a.sce
new file mode 100755
index 000000000..42728da95
--- /dev/null
+++ b/52/CH2/EX2.13.a/Example2_13_a.sce
@@ -0,0 +1,15 @@
+//Example 2.13 (a)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of (-1/5)^n u(n)+5(1/2)^(-n)u(-n-1) 

+clear;

+clc ;

+close ;

+syms n z;

+x1 =(-1/5)^n ;

+X1= symsum (x1 *(z^(-n)),n ,0, %inf );

+x2 =(1/2)^(-n);

+X2= symsum (5* x2 *(z^(-n)),n ,0, %inf );

+X = (X1 -X2);

+//Display the result in command window

+disp (X,"Z-transform of [3(3^n)-4(2)^n] u(n)  is:");

+disp('ROC is the Region 1/5 < mod(z) < 2');
\ No newline at end of file
diff --git a/52/CH2/EX2.13.b/Example2_13_b.sce b/52/CH2/EX2.13.b/Example2_13_b.sce
new file mode 100755
index 000000000..30a683da5
--- /dev/null
+++ b/52/CH2/EX2.13.b/Example2_13_b.sce
@@ -0,0 +1,13 @@
+//Example 2.13 (b)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z transform

+clc;

+syms n z k;

+x1=1;

+X1=symsum(x1*z^(-n),n,0,0);

+x2=1;

+X2=symsum(x2*z^(-n),n,1,1);

+x3=1;

+X3=symsum(x3*z^(-n),n,2,2);

+X=0.5*X1+X2-1/3*X3;

+disp(X,'X(z)=');
\ No newline at end of file
diff --git a/52/CH2/EX2.13.c/Example2_13_c.sce b/52/CH2/EX2.13.c/Example2_13_c.sce
new file mode 100755
index 000000000..6256d04bf
--- /dev/null
+++ b/52/CH2/EX2.13.c/Example2_13_c.sce
@@ -0,0 +1,11 @@
+//Example 2.13 (c)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of u(n-2) 

+clear;

+clc ;

+close ;

+syms n z;

+x =1;

+X= (1/(z^2))*symsum (x*(z^(-n)),n ,0, %inf );

+//Display the result in command window

+disp (X,"Z-transform of u(n-2) is:");
\ No newline at end of file
diff --git a/52/CH2/EX2.13.d/Example2_13_d.sce b/52/CH2/EX2.13.d/Example2_13_d.sce
new file mode 100755
index 000000000..d9a228551
--- /dev/null
+++ b/52/CH2/EX2.13.d/Example2_13_d.sce
@@ -0,0 +1,15 @@
+//Example 2.13 (d)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of (n+0.5)((1/3)^n)u(n) 

+clear;

+clc ;

+close ;

+syms n z;

+x1 =(1/3)^n;

+X11= symsum (x1*(z^(-n)),n ,0, %inf )

+X1 = diff (X11,z);

+x2 =(1/3) ^(n);

+X2= symsum (0.5* x2 *(z^(-n)),n ,0, %inf );

+X = (X1+X2);

+//Display the result in command window

+disp (X,"Z-transform of (n+0.5)((1/3)^n)u(n)  is:");
\ No newline at end of file
diff --git a/52/CH2/EX2.16/Example2_16.sce b/52/CH2/EX2.16/Example2_16.sce
new file mode 100755
index 000000000..8dd5a5a10
--- /dev/null
+++ b/52/CH2/EX2.16/Example2_16.sce
@@ -0,0 +1,11 @@
+//Example 2.16

+//To find input h(n)

+//a=[1 2 -4 1], b=[1]

+clear;

+clc ;

+close ;

+z=%z;

+a=z^3+2*(z^(2))-4*(z)+1;

+b=z^3;

+h =ldiv(a,b,4);

+disp (h,"h(n)=");
\ No newline at end of file
diff --git a/52/CH2/EX2.17/Example2_17.jpg b/52/CH2/EX2.17/Example2_17.jpg
new file mode 100755
index 000000000..c177d3489
--- /dev/null
+++ b/52/CH2/EX2.17/Example2_17.jpg
diff --git a/52/CH2/EX2.17/Example2_17.sce b/52/CH2/EX2.17/Example2_17.sce
new file mode 100755
index 000000000..dbc5d815d
--- /dev/null
+++ b/52/CH2/EX2.17/Example2_17.sce
@@ -0,0 +1,9 @@
+//Example 2.17

+//To draw the pole-zero plot

+clear;

+clc ;

+close ;

+z=%z

+H1Z=((z)*(z-1))/((z-0.25)*(z-0.5));

+xset('window',1);

+plzr(H1Z);
\ No newline at end of file
diff --git a/52/CH2/EX2.19/Example2_19.jpg b/52/CH2/EX2.19/Example2_19.jpg
new file mode 100755
index 000000000..0b0ee5ab2
--- /dev/null
+++ b/52/CH2/EX2.19/Example2_19.jpg
diff --git a/52/CH2/EX2.19/Example2_19.sce b/52/CH2/EX2.19/Example2_19.sce
new file mode 100755
index 000000000..a3bb6f748
--- /dev/null
+++ b/52/CH2/EX2.19/Example2_19.sce
@@ -0,0 +1,25 @@
+//Example 2.19

+//Program to Plot Magnitude and Phase Responce

+clear;

+clc ;

+close ;

+w=-%pi:0.01:%pi;

+H=1/(1-0.5*(cos(w)-%i*sin(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
diff --git a/52/CH2/EX2.2/Example2_2.sce b/52/CH2/EX2.2/Example2_2.sce
new file mode 100755
index 000000000..1cf7f1f5a
--- /dev/null
+++ b/52/CH2/EX2.2/Example2_2.sce
@@ -0,0 +1,15 @@
+//Example 2.2

+//Z- transform of [-3 -2 -1 0 1] 

+clear;

+clc ;

+close ;

+function[za]=ztransfer(sequence,n)

+z=poly(0,'z','r')

+za=sequence*(1/z)^n'

+endfunction

+x1=[-3 -2 -1 0 1];

+n=-(length(x1)-1):0;

+zz=ztransfer(x1,n);    

+//Display the result in command window

+disp (zz,"Z-transform of sequence is:");

+disp('ROC is the entire plane except z = %inf');
\ No newline at end of file
diff --git a/52/CH2/EX2.20.a/Example2_20_a.sce b/52/CH2/EX2.20.a/Example2_20_a.sce
new file mode 100755
index 000000000..23a069f2a
--- /dev/null
+++ b/52/CH2/EX2.20.a/Example2_20_a.sce
@@ -0,0 +1,11 @@
+//Example 2.10 (a)

+//To find input h(n)

+//X(z)=(z+0.2)/((z+0.5)(z-1);

+clear;

+clc ;

+close ;

+z=%z;

+a=(z+0.5)*(z-1);

+b=z+0.2;

+h =ldiv(b,a,4);

+disp (h,"h(n)=");
\ No newline at end of file
diff --git a/52/CH2/EX2.22/Example2_22.sce b/52/CH2/EX2.22/Example2_22.sce
new file mode 100755
index 000000000..cd24b210e
--- /dev/null
+++ b/52/CH2/EX2.22/Example2_22.sce
@@ -0,0 +1,11 @@
+//Example 2.22

+//To find input x(n)

+//X(z)=1/(2*z^(-2)+2*z^(-1)+1);

+clear;

+clc ;

+close ;

+z=%z;

+a=(2+2*z+z^2);

+b=z^2;

+h =ldiv(b,a,6);

+disp (h,"First six values of h(n)=");
\ No newline at end of file
diff --git a/52/CH2/EX2.23/Example2_23.sce b/52/CH2/EX2.23/Example2_23.sce
new file mode 100755
index 000000000..776b7f7e9
--- /dev/null
+++ b/52/CH2/EX2.23/Example2_23.sce
@@ -0,0 +1,11 @@
+//Example 2.23

+//To find input x(n)

+//X(z)=1/(1-2z^(-1))(1-z^(-1))^2;

+clear;

+clc ;

+close ;

+z=%z;

+a=(z-2)*(z-1)^2;

+b=z^3;

+h =ldiv(b,a,6);

+disp (h,"First six values of h(n)=");
\ No newline at end of file
diff --git a/52/CH2/EX2.3/Example2_3.sce b/52/CH2/EX2.3/Example2_3.sce
new file mode 100755
index 000000000..559f6dd8d
--- /dev/null
+++ b/52/CH2/EX2.3/Example2_3.sce
@@ -0,0 +1,15 @@
+//Example 2.3

+//Z- transform of [2 -1 3 2 1 0 2 3 -1] 

+clear;

+clc ;

+close ;

+function[za]=ztransfer(sequence,n)

+z=poly(0,'z','r')

+za=sequence*(1/z)^n'

+endfunction

+x1=[2 -1 3 2 1 0 2 3 -1];

+n=-4:4;

+zz=ztransfer(x1,n);    

+//Display the result in command window

+disp (zz,"Z-transform of sequence is:");

+disp('ROC is the entire plane except z = 0 and z = %inf');
\ No newline at end of file
diff --git a/52/CH2/EX2.34/Example2_34.jpg b/52/CH2/EX2.34/Example2_34.jpg
new file mode 100755
index 000000000..31338edf8
--- /dev/null
+++ b/52/CH2/EX2.34/Example2_34.jpg
diff --git a/52/CH2/EX2.34/Example2_34.sce b/52/CH2/EX2.34/Example2_34.sce
new file mode 100755
index 000000000..818855caa
--- /dev/null
+++ b/52/CH2/EX2.34/Example2_34.sce
@@ -0,0 +1,27 @@
+//Example 2.34

+//To plot the impulse responce of the system analyically and using scilab

+clear;

+clc ;

+close ;

+n=0:1:50;

+x=[1,zeros(1,50)];

+b=[1 2];

+a=[1 -3 -4];

+yanaly=6/5*4.^n-1/5*(-1).^n;//Analytical Solution

+ymat=filter(b,a,x);

+subplot(3,1,1);

+plot2d3(n,x);

+xlabel('n');

+ylabel('x(n)');

+title('INPUT SEQUENCE (IMPULSE FUNCTION)');

+subplot(3,1,2);

+plot2d3(n,yanaly);

+xlabel('n');

+ylabel('y(n)');

+title('OUTPUT SEQUENCE yanaly');

+subplot(3,1,3);

+plot2d3(n,ymat);

+xlabel('n');

+ylabel('y(n)');

+title('OUTPUT SEQUENCE ymat');

+//As the Analtical Plot matches the Scilab Plot hence it is the Responce of the system
\ No newline at end of file
diff --git a/52/CH2/EX2.35.a/Example2_35_a.jpg b/52/CH2/EX2.35.a/Example2_35_a.jpg
new file mode 100755
index 000000000..981d4af0c
--- /dev/null
+++ b/52/CH2/EX2.35.a/Example2_35_a.jpg
diff --git a/52/CH2/EX2.35.a/Example2_35_a.sce b/52/CH2/EX2.35.a/Example2_35_a.sce
new file mode 100755
index 000000000..3c8484922
--- /dev/null
+++ b/52/CH2/EX2.35.a/Example2_35_a.sce
@@ -0,0 +1,9 @@
+//Example 2.35 (a)

+//To draw the pole-zero plot

+clear;

+clc ;

+close ;

+z=%z

+H1Z=(z)/(z^2-z-1);

+xset('window',1);

+plzr(H1Z);
\ No newline at end of file
diff --git a/52/CH2/EX2.35.b/Example2_35_b.jpg b/52/CH2/EX2.35.b/Example2_35_b.jpg
new file mode 100755
index 000000000..df5226c81
--- /dev/null
+++ b/52/CH2/EX2.35.b/Example2_35_b.jpg
diff --git a/52/CH2/EX2.35.b/Example2_35_b.sce b/52/CH2/EX2.35.b/Example2_35_b.sce
new file mode 100755
index 000000000..73cc4f1b7
--- /dev/null
+++ b/52/CH2/EX2.35.b/Example2_35_b.sce
@@ -0,0 +1,27 @@
+//Example 2.35 (b)

+//To plot the responce of the system analyically and using scilab

+clear;

+clc ;

+close ;

+n=0:1:20;

+x=ones(1,length(n));

+b=[0 1];

+a=[1 -1 -1];

+yanaly=0.447*(1.618).^n-0.447*(-0.618).^n;//Analytical Solution

+[ymat,zf]=filter(b, a, x);

+subplot(3,1,1);

+plot2d3(n,x);

+xlabel('n');

+ylabel('x(n)');

+title('INPUT SEQUENCE (STEP FUNCTION)');

+subplot(3,1,2);

+plot2d3(n,yanaly);

+xlabel('n');

+ylabel('y(n)');

+title('OUTPUT SEQUENCE yanaly');

+subplot(3,1,3);

+plot2d3(n,ymat,zf);

+xlabel('n');

+ylabel('y(n)');

+title('OUTPUT SEQUENCE ymat');

+//As the Analtical Plot matches the Scilab Plot hence it is the Responce of the system
\ No newline at end of file
diff --git a/52/CH2/EX2.38/Example2_38.jpg b/52/CH2/EX2.38/Example2_38.jpg
new file mode 100755
index 000000000..f3bddeada
--- /dev/null
+++ b/52/CH2/EX2.38/Example2_38.jpg
diff --git a/52/CH2/EX2.38/Example2_38.sce b/52/CH2/EX2.38/Example2_38.sce
new file mode 100755
index 000000000..075bee4f8
--- /dev/null
+++ b/52/CH2/EX2.38/Example2_38.sce
@@ -0,0 +1,27 @@
+//Example 2.38

+//To plot the responce of the system analyically and using scilab

+clear;

+clc ;

+close ;

+n=0:1:20;

+x=n;

+b=[0 1 1];

+a=[1 -0.7 0.12];

+yanaly=38.89*(0.4).^n-26.53*(0.3).^n-12.36+4.76*n;//Analytical Solution

+ymat=filter(b,a,x);

+subplot(3,1,1);

+plot2d3(n,x);

+xlabel('n');

+ylabel('x(n)');

+title('INPUT SEQUENCE (RAMP FUNCTION)');

+subplot(3,1,2);

+plot2d3(n,yanaly);

+xlabel('n');

+ylabel('y(n)');

+title('OUTPUT SEQUENCE yanaly');

+subplot(3,1,3);

+plot2d3(n,ymat);

+xlabel('n');

+ylabel('y(n)');

+title('OUTPUT SEQUENCE ymat');

+//As the Analtical Plot matches the Scilab Plot hence it is the Responce of the system
\ No newline at end of file
diff --git a/52/CH2/EX2.4/Example2_4.sce b/52/CH2/EX2.4/Example2_4.sce
new file mode 100755
index 000000000..bc0802459
--- /dev/null
+++ b/52/CH2/EX2.4/Example2_4.sce
@@ -0,0 +1,12 @@
+//Example 2.4

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of a^n u(n) 

+clear;

+clc ;

+close ;

+syms a n z;

+x =a^n

+X= symsum (x*(z^(-n)),n ,0, %inf );

+//Display the result in command window

+disp (X,"Z-transform of a^n u(n) with is:");

+disp('ROC is the Region mod(z) > a')
\ No newline at end of file
diff --git a/52/CH2/EX2.40/Example2_40.sce b/52/CH2/EX2.40/Example2_40.sce
new file mode 100755
index 000000000..d92ecb1c0
--- /dev/null
+++ b/52/CH2/EX2.40/Example2_40.sce
@@ -0,0 +1,11 @@
+//Example 2.40

+//To find input x(n)

+//h(n)=1 2 3 2, y(n)=[1 3 7 10 10 7 2]

+clear;

+clc ;

+close ;

+z=%z;

+a=z^6+3*(z^(5))+7*(z^(4))+10*(z^(3))+10*(z^(2))+7*(z^(1))+2;

+b=z^6+2*z^(5)+3*z^(4)+2*z^(3);

+x =ldiv(a,b,4);

+disp (x,"x(n)=");
\ No newline at end of file
diff --git a/52/CH2/EX2.41.a/Example2_41_a.sce b/52/CH2/EX2.41.a/Example2_41_a.sce
new file mode 100755
index 000000000..68a491f3d
--- /dev/null
+++ b/52/CH2/EX2.41.a/Example2_41_a.sce
@@ -0,0 +1,12 @@
+//Example 2.41 (a)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of n.(-1)^n u(n) 

+clear;

+clc ;

+close ;

+syms a n z;

+x =(-1) ^n;

+X= symsum (x*(z^(-n)),n ,0, %inf )

+Y = diff (X,z);

+//Display the result in command window

+disp (Y,"Z-transform of n.(-1)^n u(n)  is:");
\ No newline at end of file
diff --git a/52/CH2/EX2.41.b/Example2_41_b.sce b/52/CH2/EX2.41.b/Example2_41_b.sce
new file mode 100755
index 000000000..b5640e261
--- /dev/null
+++ b/52/CH2/EX2.41.b/Example2_41_b.sce
@@ -0,0 +1,12 @@
+//Example 2.41 (b)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of n^2 u(n) 

+clear;

+clc ;

+close ;

+syms n z;

+x =1;

+X= symsum (x*(z^(-n)),n ,0, %inf )

+Y = diff(diff (X,z),z);

+//Display the result in command window

+disp (Y,"Z-transform of n^2 u(n)  is:");
\ No newline at end of file
diff --git a/52/CH2/EX2.41.c/Example2_41_c.sce b/52/CH2/EX2.41.c/Example2_41_c.sce
new file mode 100755
index 000000000..3f675ec2e
--- /dev/null
+++ b/52/CH2/EX2.41.c/Example2_41_c.sce
@@ -0,0 +1,12 @@
+//Example 2.41 (c)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z transform of (-1)^n.cos(%pi/3*n)

+clc;

+syms n z;

+Wo=%pi/3;

+x1=exp(sqrt(-1)*Wo*n);

+X1=(-1)^n*symsum(x1*(z^-n),n,0,%inf);

+x2=exp(-sqrt(-1)*Wo*n);

+X2=(-1)^n*symsum(x2*(z^-n),n,0,%inf);

+X=(X1+X2)/2;

+disp(X,'X(z)=');
\ No newline at end of file
diff --git a/52/CH2/EX2.45/Example2_45.jpg b/52/CH2/EX2.45/Example2_45.jpg
new file mode 100755
index 000000000..1a24182b0
--- /dev/null
+++ b/52/CH2/EX2.45/Example2_45.jpg
diff --git a/52/CH2/EX2.45/Example2_45.sce b/52/CH2/EX2.45/Example2_45.sce
new file mode 100755
index 000000000..ae750c8e1
--- /dev/null
+++ b/52/CH2/EX2.45/Example2_45.sce
@@ -0,0 +1,9 @@
+//Example 2.45

+//To draw the pole-zero plot

+clear;

+clc ;

+close ;

+z=%z

+H1Z=((z)*(z+1))/(z^2-z+0.5);

+xset('window',1);

+plzr(H1Z);
\ No newline at end of file
diff --git a/52/CH2/EX2.5/Example2_5.sce b/52/CH2/EX2.5/Example2_5.sce
new file mode 100755
index 000000000..e33226607
--- /dev/null
+++ b/52/CH2/EX2.5/Example2_5.sce
@@ -0,0 +1,12 @@
+//Example 2.5

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of -b^n u(-n-1) 

+clear;

+clc ;

+close ;

+syms b n z;

+x =b^n

+X= symsum (x*(z^(-n)),n ,0, %inf );

+//Display the result in command window

+disp (X,"Z-transform of b^n u(n) with is:");

+disp('ROC is the Region mod(z) < b')
\ No newline at end of file
diff --git a/52/CH2/EX2.53.a/Example2_53_a.sce b/52/CH2/EX2.53.a/Example2_53_a.sce
new file mode 100755
index 000000000..7bc4991f5
--- /dev/null
+++ b/52/CH2/EX2.53.a/Example2_53_a.sce
@@ -0,0 +1,14 @@
+//Example 2.53 (a)

+//Z- transform of [3 1 2 5 7 0 1] 

+clear;

+clc ;

+close ;

+function[za]=ztransfer(sequence,n)

+z=poly(0,'z','r')

+za=sequence*(1/z)^n'

+endfunction

+x1=[3 1 2 5 7 0 1];

+n=-3:3;

+zz=ztransfer(x1,n);    

+//Display the result in command window

+disp (zz,"Z-transform of sequence is:");
\ No newline at end of file
diff --git a/52/CH2/EX2.53.b/Example2_53_b.sce b/52/CH2/EX2.53.b/Example2_53_b.sce
new file mode 100755
index 000000000..0fede7b16
--- /dev/null
+++ b/52/CH2/EX2.53.b/Example2_53_b.sce
@@ -0,0 +1,8 @@
+//Example 2.53 (b)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z transform of delta(n)

+clc;

+syms n z;

+x=1;

+X=symsum(x*z^(-n),n,0,0);

+disp(X,'X(z)=');
\ No newline at end of file
diff --git a/52/CH2/EX2.53.c/Example2_53_c.sce b/52/CH2/EX2.53.c/Example2_53_c.sce
new file mode 100755
index 000000000..cf0d921ae
--- /dev/null
+++ b/52/CH2/EX2.53.c/Example2_53_c.sce
@@ -0,0 +1,8 @@
+//Example 2.53 (c)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z transform of delta(n)

+clc;

+syms n z k;

+x=1;

+X=symsum(x*z^(-n),n,k,k);

+disp(X,'X(z)=');
\ No newline at end of file
diff --git a/52/CH2/EX2.53.d/Example2_53_d.sce b/52/CH2/EX2.53.d/Example2_53_d.sce
new file mode 100755
index 000000000..92e090818
--- /dev/null
+++ b/52/CH2/EX2.53.d/Example2_53_d.sce
@@ -0,0 +1,8 @@
+//Example 2.53 (d)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z transform of delta(n)

+clc;

+syms n z kc;

+x=1;

+X=symsum(x*z^(-n),n,-k,-k);

+disp(X,'X(z)=');
\ No newline at end of file
diff --git a/52/CH2/EX2.54/Example2_54.sce b/52/CH2/EX2.54/Example2_54.sce
new file mode 100755
index 000000000..daeb4b2da
--- /dev/null
+++ b/52/CH2/EX2.54/Example2_54.sce
@@ -0,0 +1,11 @@
+//Example 2.54

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z transform of cos(Wo*n)

+clc;

+syms Wo n z;

+x1=exp(sqrt(-1)*Wo*n);

+X1=symsum(x1*(z^-n),n,0,%inf);

+x2=exp(-sqrt(-1)*Wo*n);

+X2=symsum(x2*(z^-n),n,0,%inf);

+X=(X1+X2)/2;

+disp(X,'X(z)=');
\ No newline at end of file
diff --git a/52/CH2/EX2.58/Example2_58.jpg b/52/CH2/EX2.58/Example2_58.jpg
new file mode 100755
index 000000000..553104730
--- /dev/null
+++ b/52/CH2/EX2.58/Example2_58.jpg
diff --git a/52/CH2/EX2.58/Example2_58.sce b/52/CH2/EX2.58/Example2_58.sce
new file mode 100755
index 000000000..741170cc8
--- /dev/null
+++ b/52/CH2/EX2.58/Example2_58.sce
@@ -0,0 +1,27 @@
+//Example 2.58

+//To plot the responce of the system analyically and using scilab

+clear;

+clc ;

+close ;

+n=0:1:20;

+x=[1 zeros(1,20)];

+b=[1 -0.5];

+a=[1 -1 3/16];

+yanaly=0.5*(0.75).^n+0.5*(0.25).^n;//Analytical Solution

+ymat=filter(b,a,x);

+subplot(3,1,1);

+plot2d3(n,x);

+xlabel('n');

+ylabel('x(n)');

+title('INPUT SEQUENCE (IMPULSE FUNCTION)');

+subplot(3,1,2);

+plot2d3(n,yanaly);

+xlabel('n');

+ylabel('y(n)');

+title('OUTPUT SEQUENCE yanaly');

+subplot(3,1,3);

+plot2d3(n,ymat);

+xlabel('n');

+ylabel('y(n)');

+title('OUTPUT SEQUENCE ymat');

+//As the Analtical Plot matches the Scilab Plot hence it is the Responce of the system
\ No newline at end of file
diff --git a/52/CH2/EX2.6/Example2_6.sce b/52/CH2/EX2.6/Example2_6.sce
new file mode 100755
index 000000000..4f1275b00
--- /dev/null
+++ b/52/CH2/EX2.6/Example2_6.sce
@@ -0,0 +1,12 @@
+//Example 2.6

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of 2^n u(n) 

+clear;

+clc ;

+close ;

+syms n z;

+x =(2) ^n

+X= symsum (x*(z^(-n)),n ,0, %inf );

+//Display the result in command window

+disp (X,"Z-transform of 2^n u(n) is:");

+disp('ROC is the Region mod(z) > 2');
\ No newline at end of file
diff --git a/52/CH2/EX2.7/Example2_7.sce b/52/CH2/EX2.7/Example2_7.sce
new file mode 100755
index 000000000..55142ef4a
--- /dev/null
+++ b/52/CH2/EX2.7/Example2_7.sce
@@ -0,0 +1,14 @@
+//Example 2.7

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of [3(3^n)-4(2)^n] u(n) 

+clear;

+clc ;

+close ;

+syms n z;

+x1 =(3) ^(n);

+X1= symsum (3* x1 *(z^(-n)),n ,0, %inf );

+x2 =(4) ^(n);

+X2= symsum (4* x2 *(z^(-n)),n ,0, %inf );

+X = (X1 -X2);

+//Display the result in command window

+disp (X,"Z-transform of [3(3^n)-4(2)^n] u(n)  is:");
\ No newline at end of file
diff --git a/52/CH2/EX2.8.a/Example2_8_a.sce b/52/CH2/EX2.8.a/Example2_8_a.sce
new file mode 100755
index 000000000..a7653ac47
--- /dev/null
+++ b/52/CH2/EX2.8.a/Example2_8_a.sce
@@ -0,0 +1,11 @@
+//Example 2.8 (a)

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z transform of cos(Wo*n)

+clc;

+syms Wo n z;

+x1=exp(sqrt(-1)*Wo*n);

+X1=symsum(x1*(z^-n),n,0,%inf);

+x2=exp(-sqrt(-1)*Wo*n);

+X2=symsum(x2*(z^-n),n,0,%inf);

+X=(X1+X2)/2;

+disp(X,'X(z)=');
\ No newline at end of file
diff --git a/52/CH2/EX2.9/Example2_9.sce b/52/CH2/EX2.9/Example2_9.sce
new file mode 100755
index 000000000..984425f71
--- /dev/null
+++ b/52/CH2/EX2.9/Example2_9.sce
@@ -0,0 +1,11 @@
+//Example 2.9

+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

+//Z- transform of (1/3)^n u(n-1) 

+clear;

+clc ;

+close ;

+syms n z;

+x =(1/3)^n;

+X= (1/z)*symsum (x*(z^(-n)),n ,0, %inf );

+//Display the result in command window

+disp (X,"Z-transform of (1/3)^n u(n-1) is:");
\ No newline at end of file