بحث:فرترن

فورترن 4

سلام کسی بلده این کد فورترن 4 رو به 90 ترجمه کنه یا یه توضیح کلی بده؟ ممنون اگه کسی زحمتشو بکشه. DO 350 I=1,NDIM

FM(I)=0.

DO 351 J=1,NSAMP

351 FM(I)= FM(I)+Y(J,I)

350 FM(I)= FM(I)/ANSAMP

C------------------------

FEATURE VARIANCES

C--------------------------

DO 352 I=1,NDIM

FVAR (I)=0.

DO 353 J=1,NSAMP

FILE : KMEANS FORTRAN A 3/18/83 …

353 FVAR (I)=FVAR(I)+((Y(J,I)-FM(I))**2)

352 FVAR(I)=FVAR(I)/ANSAMP

PAYAMH71@GMAIL.COM 86.57.61.38 ‏۴ ژوئیهٔ ۲۰۱۳، ساعت ۰۶:۴۲ (UTC)