Fortran ~ Newton Raphson Method - Ishwaranand

Ishwaranand News

Fortran ~ Newton Raphson Method

Fortran ~ Newton Raphson Method

  • Let Xo be an approximate value of the root of the equation f(X)=0 either algebraic or transcendental and let h be a real number sufficiently small.
  • F(X)=2*X**3-5.0*X-2.15
  • This is known as the Newton - Raphson formula or Newton's iteration formula.
newton raphson method solved example, newton raphson method python, newton raphson method ppt, newton raphson method pdf, newton raphson method matlab, newton raphson method in c, newton raphson method formula, newton raphson method calculator, newton-raphson method matlab, newton's method calculator, newton raphson method in c, newton's method optimization, newton raphson method fails when, newton's method matlab, newton raphson method calculator, newton raphson method khan academy, newton-raphson method ppt, newton-raphson method mcq, newton raphson method in hindi, initial guess, regula falsi method mit, newton's method matlab, newton raphson method calculator, newton raphson method khan academy, newton-raphson method ppt, newton-raphson method mcq,
Image Source ~ Crafted With ©Ishwaranand - 2020 ~ Image by ©Ishwaranand

Write a program to demonstrate the application of the Newton-Raphson method to find the root of the equation.?

PROGRAM RAPHSN
C
C      PROGRAM TO LOCATE A ROOT OF EQUATION USING NEWTON RAPHSON METHOD
C
C      GIVEN EQUATION
         F(X)=2*X**3-5.0*X-2.15
C      DERIVATIVE OF GIVEN EQUATION
         FD(X)=6.0*X**2-5.0
C
         WRITE(*,*)'ENTER YOUR ESTIMATE OF ROOT...'
         READ(*,*)X
          I=0
300    I=I+1
C       FIND ROOT POSITION
           X=X-F(X)/FD(X)
          CHK=ABS(F(X))
C        EXIT LOOP IF ROOT FOUND
           IF(CHK.LE.0.0001)GOTO 100
C        EXIT LOOP IF UNABLE TO FIND ROOT EVEN AFTER 100+CYCLES
          IF(I.GT.100)GOTO 200
C        START NEXT CYCLE
           GOTO 300
100     WRITE(*,*)'ROOT FOUND AT', X
           STOP
200     WRITE(*,*)'ROOT NOT FOUND'
           STOP
           END

#OUTPUT
ENTER YOUR ESTIMATE OF ROOT
1
ROOT FOUND AT 1.3247180

No comments

Comment on Ishwaranand or Happy Day
Not, Add any types of links