Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_01 FALSE_POSITION_METHOD
PROGRAM FALSE_POSITION_METHOD IMPLICIT NONE REAL::X0,X1,X2,X,TOL,F CALL FP(X1,TOL) END PROGRAM FALSE_POSITION_METHOD SUBROUTINE FP(X1,TOL) IMPLICIT NONE REAL::X0,X1,X2,TOL,F PRINT*,'ENTER THE VALUE OF X0 & X1=' READ*,X0,X1 PRINT*,'ENTER THE VALUE OF TOL=' READ*,TOL IF (F(X0)*F(X1)<0) THEN 40 X2=(X0*F(X1)-X1*F(X0))/(F(X1)-F(X0)) WRITE(*,*)ABS(F(X2)),X2 IF (F(X2)==0) THEN WRITE(*,10)X2 10 FORMAT(1X,'THE ROOT IS:',F8.4) ELSEIF (F(X0)*F(X2)<0) THEN X1=X2 ELSEIF (F(X1)*F(X2)<0) THEN X0=X2 END IF ELSE PRINT *, "ROOT IS NOT IN THE GIVEN INTERVAL" END IF IF(ABS(X1-X0)<TOL)THEN WRITE(*,11)X2 11 FORMAT(1X,'THE REAL ROOT IS:',F8.4) ELSE GOTO 40 END IF END SUBROUTINE FP REAL FUNCTION F(X) IMPLICIT NONE REAL::X F=X**3-2*X-5 END FUNCTION
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
A_02 GUASSIAN_ELIMINATION METHOD
prime list 2
A_04 SHOOTING METHOD
Shooting method 1
Sum of inverse square series
Practice 1(IV)
A_04 SIMPSON'S RULE(3(I))
stochastic matrix
Pivot 2
divisibility rule
Please log in to post a comment.