تاريخ : پنجشنبه ۲۲ تیر ۱۳۹۱
منبع : عمران
برچسب‌ها: برنامه نویسی, روش نيوتن, رفسون, زبان فرترن
برنامه نویسی روش نيوتن - رفسون به زبان فرترن
F(X)=X+COS(X)
Fprime(X)=1+SIN(X)
READ (*,*) X0,EPS
X=X0- F(X0)/ Fprime(X0)
N=1
10 IF (ABS(F(X)) .GE. EPS) THEN GOTO 20
X0 = X
X=X0- F(X0)/ Fprime(X0)
N=N+1
GOTO 10
20 WRITE(*,*) "ROOT=",X
WRITE(*,*) "ITERATION=",N
END
بازگشت به صفحه اصلی وبلاگ مهندسی عمران راه و ساختمان(مهندس حسن فراهانی)
برچسب‌ها: برنامه نویسی, روش نيوتن, رفسون, زبان فرترن
ارسال توسط حسن فراهانی
آخرین مطالب
