diff options
Diffstat (limited to '3812/CH10')
| -rw-r--r-- | 3812/CH10/EX10.12.a/10_12a.sce | 12 | ||||
| -rw-r--r-- | 3812/CH10/EX10.12.b/10_12b.sce | 12 | ||||
| -rw-r--r-- | 3812/CH10/EX10.12.c/10_12c.sce | 12 | ||||
| -rw-r--r-- | 3812/CH10/EX10.12.d/10_12d.sce | 12 | ||||
| -rw-r--r-- | 3812/CH10/EX10.27/10_27.sce | 7 | ||||
| -rw-r--r-- | 3812/CH10/EX10.33/10_33.sce | 7 | ||||
| -rw-r--r-- | 3812/CH10/EX10.34/10_34.sce | 7 | ||||
| -rw-r--r-- | 3812/CH10/EX10.41/10_41.sce | 7 | ||||
| -rw-r--r-- | 3812/CH10/EX10.53.a/10_53_a.sce | 13 | ||||
| -rw-r--r-- | 3812/CH10/EX10.53.b/10_53_b.sce | 28 | ||||
| -rw-r--r-- | 3812/CH10/EX10.53.c/10_53_c.sce | 12 |
11 files changed, 129 insertions, 0 deletions
diff --git a/3812/CH10/EX10.12.a/10_12a.sce b/3812/CH10/EX10.12.a/10_12a.sce new file mode 100644 index 000000000..9bac1171d --- /dev/null +++ b/3812/CH10/EX10.12.a/10_12a.sce @@ -0,0 +1,12 @@ +//example 10.12(a):
+//Find Z transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[1,2,6,-2,0,3];
+n1=0:length(x)-1;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
diff --git a/3812/CH10/EX10.12.b/10_12b.sce b/3812/CH10/EX10.12.b/10_12b.sce new file mode 100644 index 000000000..2d25e8888 --- /dev/null +++ b/3812/CH10/EX10.12.b/10_12b.sce @@ -0,0 +1,12 @@ +//example 10.12(b)
+//determine Z transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[1,2,6,-2,0,3];
+n1=-2:length(x)-3;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
diff --git a/3812/CH10/EX10.12.c/10_12c.sce b/3812/CH10/EX10.12.c/10_12c.sce new file mode 100644 index 000000000..cbc5615d2 --- /dev/null +++ b/3812/CH10/EX10.12.c/10_12c.sce @@ -0,0 +1,12 @@ +//example 10.12(c):
+//Find Z transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[0,0,1,2,6,-2,3];
+n1=0:length(x)-1;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
diff --git a/3812/CH10/EX10.12.d/10_12d.sce b/3812/CH10/EX10.12.d/10_12d.sce new file mode 100644 index 000000000..5874d796f --- /dev/null +++ b/3812/CH10/EX10.12.d/10_12d.sce @@ -0,0 +1,12 @@ +//example 10.12(d)
+// Find Z Transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[1,2,6,-2,0,3];
+n1=-5:length(x)-6;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
diff --git a/3812/CH10/EX10.27/10_27.sce b/3812/CH10/EX10.27/10_27.sce new file mode 100644 index 000000000..4d166812a --- /dev/null +++ b/3812/CH10/EX10.27/10_27.sce @@ -0,0 +1,7 @@ +//Example 10_27
+//Convolution of given signals
+clc;
+x=[1,-2,1];
+y=[1,1,1,1,1,1];
+X= convol (x,y);
+disp(X,'Convolution of given sequences');
diff --git a/3812/CH10/EX10.33/10_33.sce b/3812/CH10/EX10.33/10_33.sce new file mode 100644 index 000000000..c74724911 --- /dev/null +++ b/3812/CH10/EX10.33/10_33.sce @@ -0,0 +1,7 @@ +//Example 10_33
+//Find the inverse Z-transform
+clc;
+clear;
+z=poly(0,'z');
+x=ldiv((z+1),(z-1/3),4);
+disp(x,'x[n]=');
diff --git a/3812/CH10/EX10.34/10_34.sce b/3812/CH10/EX10.34/10_34.sce new file mode 100644 index 000000000..da8c1d183 --- /dev/null +++ b/3812/CH10/EX10.34/10_34.sce @@ -0,0 +1,7 @@ +//Example 10_34
+//Inverse Z-transform using long division method
+clc;
+clear;
+z=poly(0,'z');
+x=ldiv(z,(z-0.5),4);
+disp(x,'x[n]=');
diff --git a/3812/CH10/EX10.41/10_41.sce b/3812/CH10/EX10.41/10_41.sce new file mode 100644 index 000000000..620bfcbd4 --- /dev/null +++ b/3812/CH10/EX10.41/10_41.sce @@ -0,0 +1,7 @@ +//Example 10_41
+//Find the inverse Z-transform using long division method
+clc;
+clear;
+z=poly(0,'z');
+x=ldiv(z^3-10*z^2-4*z+4,2*z^2-2*z-4,4);
+disp(x,'x[n]=');
diff --git a/3812/CH10/EX10.53.a/10_53_a.sce b/3812/CH10/EX10.53.a/10_53_a.sce new file mode 100644 index 000000000..fc76e2ac9 --- /dev/null +++ b/3812/CH10/EX10.53.a/10_53_a.sce @@ -0,0 +1,13 @@ +//example 10_53<a>:
+//Find unilateral Z transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[1 2 5 4 0 3];
+n1=0:length(x)-1;
+disp(n1)
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
diff --git a/3812/CH10/EX10.53.b/10_53_b.sce b/3812/CH10/EX10.53.b/10_53_b.sce new file mode 100644 index 000000000..483590112 --- /dev/null +++ b/3812/CH10/EX10.53.b/10_53_b.sce @@ -0,0 +1,28 @@ +//example 10_53<b>:
+//Find unilateral Z transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[1,2,5,4,0,3];
+n1=-2:3;
+count=0;
+for a=n1(1):length(x)
+ if a==0 then
+ abc=count;
+ else
+ end
+ count=count+1;
+end
+abc=abc+1;
+ac1=0;
+x11=[1 1 1 1];
+for a=abc:length(x)
+ ac1=ac1+1;
+ x11(ac1)=x(a);
+end
+n11=0:(length(x)-abc);
+X=ztransfer(x11,n11);
+disp(X,'X(z)=');
+funcprot(0);
diff --git a/3812/CH10/EX10.53.c/10_53_c.sce b/3812/CH10/EX10.53.c/10_53_c.sce new file mode 100644 index 000000000..9a7bbabe5 --- /dev/null +++ b/3812/CH10/EX10.53.c/10_53_c.sce @@ -0,0 +1,12 @@ +//example 10_53<c>:
+//Find unilateral Z transform
+clc;
+function[za]=ztransfer(sequence,n)
+z=poly(0,'z','r')
+za=sequence*(1/z)^n'
+endfunction
+x=[0,0,1,2,5,4,0,3];
+n1=0:length(x)-1;
+X=ztransfer(x,n1);
+disp(X,'X(z)=');
+funcprot(0);
|