Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
False position
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
Backward
Exercicio 1
Gauss backward elimination
Matrix 3×3
fortran-genetic-algo
euler-cromer
IF GO TO
euler-cromer
Check identity matrix or not?
Gauss seidal