Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_01 NEWTON_RM(B(III))
PROGRAM NR IMPLICIT NONE REAL::X,Y(1000),TOL,F INTEGER::N,I,A Y(0)=0.1 PRINT*,'INPUT A POSITIVE INTEGER:' READ*,A PRINT*,'ENTER THE VALUE OF N AND TOL:' READ*, N,TOL DO I=0,N,1 Y(I+1)=Y(I)*(2.0-A*Y(I)) PRINT*,I,Y(I+1) IF(ABS(Y(I+1)-Y(I))<TOL)THEN WRITE(*,40)Y(I+1) 40 FORMAT('INVERSE OF A IS :',F8.4) STOP END IF END DO END PROGRAM NR REAL FUNCTION F(X) IMPLICIT NONE REAL::X INTEGER::A F=A*X-1.0 END FUNCTION F
run
|
edit
|
history
|
help
0
4 ER 2(I)
Exercicio 1
Secant Method
A_01 NEWTON_RM(B(I))
Practice 3
A_04 SIMPSON'S RULE (3(II))
Comparison of three numbers
A_01 CHEBYSHEV_METHOD
A_002 THE GUASS SEIDEL
Yegon Japheth tries out Fortran,