Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
problem_4
PROGRAM CONVERGE IMPLICIT NONE REAL:: X0,Y0,X,Y INTEGER::k,n X0=4.4; Y0=1; n=5; DO k=1,n X=SQRT(7.0-Y0) Y=SQRT(X0-4) X0=X Y0=Y PRINT*,X,Y IF(SQRT(X0-4.0)<0) THEN PRINT*,"Converge" ELSE PRINT*,"Not Converge" END IF END DO END PROGRAM
run
|
edit
|
history
|
help
0
A_04 SIMPSON'S ONE THIRD(3(I))
Shooting method
evaluation
recursive factorial
NEWTON FORWARD DIFFERENT INTERPOLATION
DO END DO
Practice 1(IV)
55
EXERCISE
A_03 1(I)