summaryrefslogtreecommitdiff
path: root/52/CH3/EX3.23.c/Example3_23_c.sce
blob: 4db5d70257bea5448ffe30b3575fdbb328037e80 (plain)
1
2
3
4
5
6
7
8
//Example 3.23 (c)
//MAXIMA SCILAB TOOLBOX REQUIRED FOR THIS PROGRAM
//N point DFT of a^n
clc;
syms a n k N;
x=a^n;
X=symsum(x*exp(-%i*2*%pi*n*k/N),n,0,N-1);
disp(X,'X(k)=');