complex wave used in real expression
wenjiezhao
Many thanks,
Wen-Jie
duplicate/O $wave1,w
Variable n=DimSize(w, 0)
if (mod(n, 2)==1)
DeletePoints n-1, 1, w
endif
FFT w
if (f0>0)
w[0, x2pnt(w, f0)]=0
endif
w[x2pnt(w, f1), inf]=0
IFFT w
A sloppy work around would go like this or (recommended) use the /DEST flag to create a temporary complex wave
make /O test
test=gnoise(1)
fft test
wave /C temp=test
temp[0,x2pnt(test, 0.1)]=0
ifft temp
end
HJ
April 2, 2015 at 06:28 am - Permalink
Let me try it.
Best regards,
W-J
April 2, 2015 at 10:39 am - Permalink