Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_03 MODIFIED EULER METHOD
PROGRAM MEM IMPLICIT NONE REAL::T,Y,Z,H,F,DY,W INTEGER::I,N,INT PRINT*,'ENTER THE VALUE OF T:' READ*,T PRINT*,'ENTER THE VALUE OF Y:' READ*,Y PRINT*,'ENTER THE VALUE OF Y(T):' READ*,Z PRINT*,'ENTER THE VALUE OF STEP SIZE :' READ*,H N=INT((Z-T)/H) DO I = 1,N W=Y+H*F(T,Y) Y=(F(T,Y)+F(T+H,W))*(H/2)+Y T=T+H PRINT*, I ,T ,Y END DO PRINT*,' THE ESTIMATE VALUE OF Y AT T IS:',Y END PROGRAM MEM REAL FUNCTION F(T,Y) REAL::T,Y F=T**2.0-T*Y+Y**2.0 END FUNCTION F
run
|
edit
|
history
|
help
0
test for linear congruential method
Rabeya
Gauss backward elimination
Dynamical Memory Allocation fortran
underoverflow
Practice 4(I) recently
euler-cromer
Prime
Find HM
A_04 POWER METHOD