C PROGRAM TO SOLVE EQUATION BY USING
C NEWTON-RAPHSON METHOD
FUNCTION F(X)
F=X-EXP(-X)
RETURN
END
FUNCTION F1(X)
F1=1+EXP(-X)
RETURN
END
5 WRITE(*,*)'ENTER INITIAL GUESS'
READ(*,*) X0
WRITE(*,*)'ENTER TOLERRENCE'
READ(*,*) EPS
10 X1=X0-F(X0)/F1(X0)
IF(ABS((X1-X0)/X0).LT.EPS) THEN
WRITE(*,1) X1
1 FORMAT('SOLUTION=',F10.4)
STOP
ELSE
X0=X1
GO TO 10
ENDIF
END
|
No responses found. Be the first to respond and make money from revenue sharing program.
|