[신호처리]DFT, IDFT 프로그램
- 최초 등록일
- 2006.05.24
- 최종 저작일
- 2006.05
- 3페이지/
한컴오피스
- 가격 1,000원
![할인쿠폰받기](/images/v4/document/ico_det_coupon.gif)
소개글
신호처리 부분에서 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`)
참고 자료
없음