Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Taylors method of three order
PROGRAM Q1c_Taylor_method_three_order IMPLICIT NONE INTEGER,PARAMETER::N=5 REAL::a,b,f,f1,f2,h,t(n+1),y(n+1),af2 INTEGER::k h=(b-a)/N DO k=1,N t(k+1)=a+k*h y(k+1)=y(k)+h*f(t(k),y(k))+0.5*h**2*(f1(t(k),y(k)))+(h**3/6)*(f2(t(k),y(k))) WRITE(*,*)t(k+1),y(k+1) END DO END PROGRAM REAL FUNCTION f(t,y) IMPLICIT NONE REAL::t,y f=t**2-t*y+y**2 END FUNCTION REAL FUNCTION f1(t,y) IMPLICIT NONE REAL::t,y f1=t*(2-t**2)+y*(2*y**2-1)+3*t*y*(t-y) END FUNCTION REAL FUNCTION f2(t,y) IMPLICIT NONE REAL::t,y f2=(2-4*t**2+3*t**4)+y**2*(6*y**2-4)+t*y*(15*t*y-12*y**2-9*t**2+7) END FUNCTION
run
|
edit
|
history
|
help
0
Gauss backward elimination
Practice am4
A_03 TAYLOR_METHOD
Finite difference practice
s
Factorial problem
A program to calculate potential energy.
A_02 NEWTON'S ITERATIVE METHOD
lcm and gcd using prime factorization
Rabeya