Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mso.anu.edu.au/~fbriggs/WAARNEEM/anoise_fft.sm Дата изменения: Thu Sep 27 12:25:21 2001 Дата индексирования: Tue Oct 2 04:00:43 2012 Кодировка: Поисковые слова: transit

define hwid 25
set x=1,512
set y=x*0
set w=-1**x
define N 512
set x=1,$N
do i=1,10 {
set t=random($N)-0.5
set y=y+t
}
set y=y/10
window 1 2 1 2
limits x y
box
connect x y


window 1 2 1 1
set z=x*0
set y=y*w
fft 1 y z r i
set r=r*w
set i=i*w
set xt=x-257
set xx=xt concat xt
set yy=r concat i
limits xx yy
! limits -10 10 yy
box
connect xt r
ctype red
connect xt i
ctype default