Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_03 1(I)
program eulermethod implicit none real:: x,y,xp,h,dy,f integer:: n,int,i write(*,*)'input values of x and y' read(*,*)x,y write(*,*)'input value of x at which y is required' read(*,*)xp write(*,*)'input size h' read(*,*)h !Compute number of steps n=int((xp-x)/h) do i=1,n dy=h*f(x,y) x=x+h y=y+dy write(*,*)i,x,y end do write(*,*)'value of y at x=',x,'is',y end program real function f(x,y) real:: x,y f=x**2-x*y+y**2 end function
run
|
edit
|
history
|
help
0
my_second_code
fucugigugug
Cosine series
New3
Ashish.txt
Adams-Bashforth Method for four step
G p
Practice am4
Me
A_01 NEWTON_RM(B(II))