Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
euler-cromer
!gfortran, gcc version 5.4.0 20160609 program euler_cromer implicit none integer, parameter :: DP=8 real(DP) :: x, v, h, a,t integer :: i, j x=1.0_DP v=-1.0_DP t=0.0_DP write(*,*)t,x,v h=0.05_DP a=-1.0 do i=1,20 v=v+a*h x=x+v*h a=-1.0 t=t+h write(*,*)t,x,v if(i.eq.5) then v=-v write(*,*)'velocity reversed' write(*,*)t,x,v end if end do end program
run
|
edit
|
history
|
help
0
prime list 2
A_03 1(I)
We subroutine
Cosine series
Gauss forward elimination
Bissection Method
A_04 GUASSIAN QUADRATURE METHOD
A_02 THE GUASS SEIDEL METHOD
A_01 FIXED_POINT_IM(I)
Exercise 02