Igor上での離散フーリエ変換(DFT),取り急ぎ

取り急ぎ,覚書だけ書いておきます.

-----ここから-----

1 : Macro TET()

2 : Make/O/N = 1000 SCA = 0.01 ∗ x

3 : Make/O/N = 1000 TEST = sin(10 ∗ 2 ∗ pi ∗ SCA)

4 : Make/O/N = (1, 1000) FREQ = 0.02 ∗ y

5 : Make/O/N = (1000) FREQx = 0.02 ∗ x

6 : Make/C/O/N = (1000, 1000) WEXP = cmplx(cos(2 ∗ pi ∗ SCA[x] ∗ FREQ[x][y]), － sin(2 ∗ pi ∗ SCA[x] ∗ FREQ[x][y]))

7 : MatrixOp/O CALC = WEXP x TEST

8 : Make/O/N = 1000 CALRE = real(CALC)

9 : Make/O/N = 1000 CALIM = imag(CALC)

10 : Make/O/N = 1000 CALMAG = (CALRE^2 + CALIM^2)^0.5

11 : Display CALMAG vs FREQx

12 : End
-----ここまで-----

何かの助けになればと思います.