ايران ويج

سلام .
دوستان کسی هست که برنامه محاسبات عددی به زبان فرترن داشته باشه .
برنامه نیوتن و اگرانز و سیمپسون و ... رو میخوام
ایمیلم mostafakhorsandi.kntu@yahoo.com
ممنون میشم اگه دارید برام میل کنین

سلام
برای گرفتن جواب فقط تاپیک رو پیگیری کرده و از درج ایمیل خودداری کنید!

این روش نیوتن به زبان فرترن؛

کد php: 
PROGRAM NEWTON

IMPLICIT NONE

REAL::F,Fprime,X0,X,EPS,A,B,FA,FB,N,S,I

f(x)=2*x**3+4*x**2-x+1

Fprime(X)=6*x**2+8*x-1

READ*,A

READ*,B
   
  FA=2*a**3+4*a**2-a+1

  FB=2*b**3+4*b**2-b+1

  S=FA*FB

PRINT*,'FA=',FA

PRINT*,'FB=',FB

PRINT*, 'FA * FB =', S

READ*,X0

READ*,EPS

X=X0 - (F(X0)/ Fprime(X0))
 
PRINT*,'X=',X

2   IF (ABS(X-X0) <= EPS) THEN
GOTO 3

ELSE

X0 = X

X=X0- F(X0)/ Fprime(X0)

PRINT*,'X=',X
               
GOTO   2

END IF
  
3 PRINT*,  "ROOT=",X

END PROGRAM NEWTON

منبع

mostafa7043

omid_phoenix