Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Practice 3
PROGRAM RKDE IMPLICIT NONE REAL::S(0:100),R(0:100),I(0:100),SP,RP,IP,DT INTEGER::B,G,T,J,N B=10 G=1 T=0 S(1)=0.9 I(1)=0.1 R(1)=0 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
Ghhhb
Fact funsub
A_01 NEWTON_RM(B(I))
Fib series
prime list 2
A_03 1(I)
euler-cromer
A_02 NEWTON'S ITERATIVE METHOD
Pivot 3
Practice 2(I)