Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Practice
PROGRAM RKDE IMPLICIT NONE REAL::S(0:100),R(0:100),I(0:100),SP,RP,IP,DT=0.1,S0,R0,I0,T,B,G INTEGER::J,N=100 B=10 G=1 T=0 S(1)=0.9 I(1)=0.1 R(1)=0 PRINT*,'J-1 T S R I ' DO J=1,N+1 SP=-1*B*S(J)*I(J) RP=G*I(J) IP=-1*(SP+RP) PRINT*,J-1,T,S(J),R(J),I(J) S(J+1)=S(J)+DT*SP R(J+1)=R(J)+DT*RP I(J+1)=I(J)+DT*IP T=T+DT END DO END PROGRAM RKDE
run
|
edit
|
history
|
help
0
Sum 1 to 99 divided by 12 to 100
A
Shooting method 1
Example 45 175 page
Ashish.txt
A_03 MODIFIED EULER METHOD
NEWTON SECOND LAW
Fortran Homework 1
A_04 TRAPEZOIDAL RULE (3(II))
Input Output formatting