Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Practice 4(I) recently
PROGRAM NR IMPLICIT NONE REAL::F,X,Y(30),TOL=.0001 INTEGER::N=30,I,M=23 Y(0)=0.1 PRINT*,'positive number is =',M PRINT*,' ','I',' ','Y(I)' DO I=1,N,1 Y(I+1)=(Y(I)/2)+(M/2*Y(I)) PRINT*,I,' ',Y(I+1) IF(ABS(Y(I+1)-Y(I))<TOL)THEN WRITE(*,25)Y(I+1) 25 FORMAT('Square_root of M is =',F8.4) !PRINT*,'SOLUTION IS',Y(I+1) STOP END IF END DO END PROGRAM NR REAL FUNCTION F(X) IMPLICIT NONE REAL::X INTEGER::M F=X**2.0-M END FUNCTION F
run
|
edit
|
history
|
help
0
A_03 RUNGE KUTTA METHOD O(4)
ascending sorting
A_01 FALSE_POSITION_METHOD
Recursive tribonacci
Chebyshev practice
Shooting P1
Gauss backward elimination
Jacobi
evaluation
A_01 QN:1(I) BISECTION METHOD