Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_01 NEWTON_R_M(B(I))
PROGRAM NEWTON_RAPHSON_M IMPLICIT NONE REAL::TOL INTEGER::N,I,A REAL, DIMENSION(1000)::X PRINT*,'INPUT A POSITIVE INTEGER:' READ*,A PRINT*,'INPUT THE VALUE OF I AND TOL:' READ*,I,TOL X(1)=9.0 N=1 DO WHILE (N<I) X(N+1)=(X(N)/2.0)+(A/(2.0*X(N))) Print*, X(N+1) IF(ABS(X(N+1)-X(N))<TOL)THEN WRITE(*,25)X(N+1) 25 FORMAT('THE SOLUTION IS =',F8.4) STOP END IF N=N+1 END DO END PROGRAM NEWTON_RAPHSON_M
run
|
edit
|
history
|
help
0
Ashish.txt
euler-cromer
SIUM(3.5)
Practice 2(I)
LU gauss
euler-cromer
222
New3
Formatted Output 001
Gauss pivot elimination