Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_03 ADAMS FORTH O PRED.CORR.METHOD
PROGRAM AFOPCM IMPLICIT NONE REAL::T,Y,Z,H,F,DY,K(4),X(0:1000),W(0:1000),TP,WP INTEGER::I,N,J 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) X(0)=T W(0)=Y DO I = 1,3 K(1)=H*F(X(I-1),W(I-1)) K(2)=H*F(X(I-1)+H/2,W(I-1)+K(1)/2) K(3)=H*F(X(I-1)+H/2,W(I-1)+K(2)/2) K(4)=H*F(X(I-1)+H,W(I-1)+K(3)) W(I)=W(I-1)+(K(1)+2*K(2)+2*K(3)+K(4))/6 X(I)=T+I*H PRINT*,I,X(I),W(I) END DO DO I= 4,N TP=T+I*H WP=W(3)+H*(55*F(X(3),W(3))-59*F(X(2),W(2))+37*F(X(1),W(1))-9*F(X(0),W(0)))/24 WP=W(3)+H*(9*F(TP,WP)+19*F(X(3),W(3))-5*F(X(2),W(2))+F(X(1),W(1)))/24 PRINT*,'THE ESTIMATE VALUE OF Y AT T IS:',WP DO J=0,2 X(J)=X(J+1) W(J)=W(J+1) END DO X(3)=TP W(3)=WP END DO END PROGRAM AFOPCM REAL FUNCTION F(T,Y) IMPLICIT NONE REAL::T,Y F=Y-T**2.0+1.0 END FUNCTION F
run
|
edit
|
history
|
help
0
NEWTON FORWARD DIFFERENT INTERPOLATION
DO END DO
Backward
testcompiler.f90
spl
A_02 JACOBI METHOD
Practice
stochastic matrix
fucugigugug
Practice am4