برنامه های محاسبات عددی به زبان فرترن

[mostafa7043]

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

[omid_phoenix]

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

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

کد 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 


منبع