اريد تحويل هذا البرنامج من لغة الفلترون langage FORTRAN الى لغة
الماتلاب هذا البرنامج
l’algorithme de transformation de
Fourier rapide.
Subroutine TFR_diriv_signal_n_
Subroutine TFR(dirinv_signal,n)
Integer n,i,j,k,m,i step
Real dirinv,scale,arg
Complex signal(n),cmplx,cw,cdel,et
Do i=1,n
Signal(i)=signal(i)scale
End do
J=1
K=1
Do i=1,n
If (i.le.j)then
Ct =signal (j)
Signal(j)=signal(i)
Signal (i)=ct
End if
M=n/2
Do while (j.gt.m.aand.m.gt.l)
J=j-m
End do
Do while(k.ge.n)
I step=2k
Cw=l
Arg=divinv3.14159265/float(k)
Cdel=cmplex(cos(arg),sin(arg))
Do m=1,k
Do i=m,n, I step
Ct=cwsignal (i+k)
Signal (i+k)=signal(i)-ct
Signal (i)=signal (i)+ct
Cw=cw*cdel
End do
K=I step
End do
End do