Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Practice 2(I)
PROGRAM ABS4 IMPLICIT NONE REAL::T,Y,Z,H,F,DY,K1,K2,K3,K4,X(0:1000),W(0:1000),FUNC(0:1000) INTEGER::I,N 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 DO I= 0,N X(I+1)=X(I)+H END DO W(0)=Y DO I = 0,2 K1=H*F(X(I),W(I)) K3=H*F(X(I)+H/2,W(I)+K1/2) K3=H*F(X(I)+H/2,W(I)+K2/2) K4=H*F(X(I)+H,W(I)+K3) W(I+1)=W(I)+(K1+2*K2+2*K3+K4)/6 END DO DO I=0,3 FUNC(I)=F(X(I),W(I)) END DO H=0.25 DO I= 3,N W(I+1)=W(I)+(H/24)*(55*FUNC(I)-59*FUNC(I-1)+37*FUNC(I-2)-9*FUNC(I-3)) FUNC(I+1)=F(X(I+1),W(I+1)) END DO DO I=0,N PRINT*,X(I),W(I) END DO END PROGRAM ABS4 REAL FUNCTION F(T,Y) REAL::T,Y F=Y-T**2+1 RETURN END FUNCTION F
run
|
edit
|
history
|
help
0
4(ii)
Shooting
fortran-genetic-algo
y
Practice 4(I) recently
Q5
Sffgg
Question1(b)
A_02 QUESTIONS NUMBER 3
Practice 2(I) second time