1 files changed, 13 insertions, 0 deletions
diff --git a/692/CH6/EX6.22/P6_22.sce b/692/CH6/EX6.22/P6_22.sce
new file mode 100755
index 000000000..7c0b99992
--- /dev/null
+++ b/692/CH6/EX6.22/P6_22.sce
@@ -0,0 +1,13 @@
+//Example 6.22
+//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM
+//Z transform of rˆn.cos(wo∗n)
+clc ;
+clear;
+syms r wo n z ;
+x1 =(r^n)*exp(%i*wo*n) ;
+X1 = nusum(x1*(z^-n),n,0,%inf);
+x2 =(r^n)*exp(-%i*wo*n) ;
+X2 = nusum(x2*(z^-n),n,0,%inf) ;
+X =(X1+X2)/2 ;
+disp(X,'X(z)=') ;
+disp('ROC : |z|>r');