Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Newton Raphson
Language: FORTRAN
Code:
C      NEWTON RAPHSON METHOD
          F(X)= COS(X) - 3*X + 1
          DF(X)= -SIN(X) - 3
          WRITE (*,*) 'ENTER X0 AND ERR'
           READ (*,*) X0, ERR
           ITN=1
10        X1= X0 - (F(X0) / DF(X0))
            WRITE (*,20) ITN, X0, X1
20         FORMAT (2X , I3 , 2F10.6)
             DIFF = ABS (X1 - X0)
             IF (DIFF . LE . ERR) GOTO 30
             X0=X1
             ITN=ITN+1
             GOTO 10
30          WRITE (*, 40) X1
40          FORMAT(2X, 'REAL ROOT=',F10.6)
              STOP
              END
Comments: