اريد مساعدة عالجة اخوان

اريد تحويل هذا البرنامج من لغة الفلترون 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=2
k
Cw=l
Arg=divinv3.14159265/float(k)
Cdel=cmplex(cos(arg),sin(arg))
Do m=1,k
Do i=m,n, I step
Ct=cw
signal (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

الله يعينك وتلقى مين يساعدك
بالتوفيق

[SIZE=4]Hلسلام عليكم ورحمة الله وبركانه

ارجو مساعدتكم في كتابة برنامج يقوم بتوليد ارقام عشوائية من 1-100
لحاجتي الماسة اليه في مشروع تخرج وهو دخول سيارات مختلفة الاحجام والانواع الى بارك سبارات .
مع شكري الجزيل لكم ووفقكم الله[/size]


المصدر: توليد الاعداد العشوائية في برنامج الفوتران Generating random numbers in FORTRAN - منتدى المهندس
Follow us: @almohandes_org on Twitter | Almohandes.forum on Facebook