Numerical Analysis Programs Using Fortran 90 - University of ...

More documents

Recommendations

Info

1.012070 1.009338 1.009135 1.009122 -------------------------------------- 1.008427 1.009067 1.009117 -------------------------------------- 1.009110 1.009121 -------------------------------------- 1.009121 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 44
Problem: Write a Fortran program to find first, second, third, and fourth 3 derivation of the function f ( x) = ln( x ) at x = 1 and h = 0. 01 ! Derivation using Different Formula f(x) = log(x**3) x=1 h=0.01 ! df: Forward, db: Backward, dc: Central df=(f(x+h)-f(x))/h db=(f(x)-f(x-h))/h dc=(f(x+h)-f(x-h))/(2*h) print*,'Forward derivation is', df print*,'Backward derivation is', db print*,'Central derivation is', dc print*,'-----------------------------------------' ! d3p: Three Point, d5p: Five Point d3p=(f(x+h)-f(x-h))/(2*h) d5p=(-1* f(x+2*h)+8*f(x+h)-8*f(x-h)+f(x-2*h))/(12*h) print*,'Three Point derivation is', d3p print*,'Five Point derivation is', d5p print*,'-----------------------------------------' ! d2: Second derivation, d3: Third Derivation, d4: Fourth Derivation" d2=(f(x+h)-2*f(x)+f(x-h))/h**2 d3=(f(x+2*h)-2*f(x+h)+2*f(x-h)-f(x-2*h))/(2*h**3) d4=(f(x+2*h)-4*f(x+h)+6*f(x)-4*f(x-h)+f(x-2*h))/h**4 print*,'Second derivation is', d2 print*,'Third derivation is ', d3 print*,'Fourth derivation is ', d4 end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 45
Page 1 and 2: Kurdistan Region-Iraq Sulaimani Uni
Page 3 and 4: Problem: Write a program to find th
Page 7 and 8: Problem: Write a program to determi
Page 33 and 34: Problem: Write a Fortran program to
Page 43: Problem: Write a Fortran program to
Page 53 and 54: 0 1.000000 E-01 0.1 1.800000 E-01 0
Page 55 and 56: 0 1.000000 E-01 0.1 1.637440 E-01 0

Numerical Analysis Programs Using Fortran 90 - University of ...

Create successful ePaper yourself

Delete template?

Save as template?