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