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
Exercicio 1
Jacobi
A_02 JACOBI METHOD
4(ii)
Shooting
Fhhjhh
A program to calculate potential energy.
Fib series
G b
A_01 CHEBYSHEV_METHOD