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
4
A_03 ADAMS FORTH O PRED.CORR.METHOD
ANIRUDDHA
Sum of series
Practice
A_01 NEWTON_RM(B(I))
A_04 SHOOTING METHOD
Q1
A_01 QN:1(I) BISECTION METHOD
A_03 practice 2(ii)