Run Code
|
API
|
Code Wall
|
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
Y
Find HM
Quardratic equation solve
Subroutine problem
Rvc new
The Sum of the chain (fortran)
gauss seidel and jacobi
Factorial problem
Palindromic number
A_01 QN:1(I) BISECTION METHOD