summaryrefslogtreecommitdiff
path: root/2303/CH4/EX4.3/4_3.sce
blob: a92e9891681627a4576b82aeff316effbc186db6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Example 4.3
//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM

clear;
clc ;
close ;

j=sqrt(-1);
syms w n z T j;
f1=exp(j*w*T*n);
F1=symsum(f1*(z^-n),n,0,%inf);
f2=exp(-j*w*T*n);
F2=symsum(f2*(z^-n),n,0,%inf);
F=(F1-F2)/(2*j);
//Display the result in command window
disp (F,"Z-transform of sin(n*w*T) u(n) is:");
disp('ROC is the Region mod(z) > 1);