검색어 입력폼
평가점수D

[신호처리]DFT, IDFT 프로그램

저작시기 2006.05 |등록일 2006.05.24 한글파일한컴오피스 (hwp) | 3페이지 | 가격 800원

소개글

신호처리 부분에서 FFT를 가장 많이 이용하게 됩니다.
FFT의 기초가 되는 DFT를 프로그램으로 구성한 글입니다.

제가 작성한 프로그램은 DFT와 IDFT를 동시에 실행할 수 있도록 하였습니다.

본문내용

프로그램 코드는 포트란으로 구성되어있습니다.
1. 외부에서 데이터를 읽어들입니다.
2. T(측정시간), df(주파수 레졸루션), fre(주파수 스팬), dt(데이터 측정간격), N(획득 데이터 개수)를 프로그램에서 수정해줍니다.
3. 프로그램을 실행시키면 DFT결과와 IDFT 결과를 출력하게 됩니다.
Implicit none

integer(4) :: N, i, k, N1, j
real(8) :: dt, T, fre, pi, c0, temp0
real(8), allocatable :: mat(:,:)
complex(8) :: temp1, cn
complex(8), allocatable :: cmplx_mat(:,:)

! N = 1024 ! Num. of data
N = 1024 ! Num. of data
! N = 99
pi = 4.0d0 * datan(1.0d0)
! dt = 244.14d0 * (10.**(-6))
dt = 10.0d0/1024.0d0
! dt = 4.0d0/10.0d0
T = dt*N
fre = 1.0d0 / T

allocate( mat(n,2), cmplx_mat(n,2) )

! open(1,file=`8_x_data_ellipse.dat`)
open(1,file=`voice_time.txt`)
다운로드 맨위로