1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
czt(1) Scilab Function czt(1)
NAME
czt - chirp z-transform algorithm
CALLING SEQUENCE
[czx]=czt(x,m,w,phi,a,theta)
PARAMETERS
x : input data sequence
m : czt is evaluated at m points in z-plane
w : magnitude multiplier
phi : phase increment
a : initial magnitude
theta : initial phase
czx : chirp z-transform output
DESCRIPTION
chirp z-transform algorithm which calcultes the z-transform on a spiral in
the z-plane at the points
[a*exp(j*theta)][w^kexp(j*k*phi)] for k=0,1,...,m-1.
EXAMPLE
a=.7*exp(%i*%pi/6);
[ffr,bds]=xgetech(); //preserve current context
rect=[-1.2,-1.2*sqrt(2),1.2,1.2*sqrt(2)];
t=2*%pi*(0:179)/179;xsetech([0,0,0.5,1]);
plot2d(sin(t)',cos(t)',[2],"012",' ',rect)
plot2d([0 real(a)]',[0 imag(a)]',[3],"000")
xsegs([-1.0,0;1.0,0],[0,-1.0;0,1.0])
w0=.93*exp(-%i*%pi/15);w=exp(-(0:9)*log(w0));z=a*w;
zr=real(z);zi=imag(z);
plot2d(zr',zi',[5],"000")
xsetech([0.5,0,0.5,1]);
plot2d(sin(t)',cos(t)',[2],"012",' ',rect)
plot2d([0 real(a)]',[0 imag(a)]',[-1],"000")
xsegs([-1.0,0;1.0,0],[0,-1.0;0,1.0])
w0=w0/(.93*.93);w=exp(-(0:9)*log(w0));z=a*w;
zr=real(z);zi=imag(z);
plot2d(zr',zi',[5],"000")
xsetech(ffr,bds); //restore context
AUTHOR
C. Bunks
|
