Numerical Analysis Programs Using Fortran 90 - University of ...
Numerical Analysis Programs Using Fortran 90 - University of ... Numerical Analysis Programs Using Fortran 90 - University of ...
1.048701 1.019178 1.011646 1.009753 +++++++++++++++++++++ 1.048701 -------------------------------------- 1.019178 1.009338 -------------------------------------- 1.011646 1.009135 1.009122 -------------------------------------- 1.009753 1.009122 1.009121 1.009121 -------------------------------------- ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 42
Problem: Write a Fortran program to find the value of the integral ∫ 0. 8 0 e t 2 dt with error of order using Simpson’s 1/3 rule and Romberg integration 8 h . dimension y(20),simps(20),romb(20,20) f(t)=exp(t**2) a=0; b=0.8; m=4 do k=1,m n=2**k h=(b-a)/n do i=1,n+1 x=a+h*(i-1) y(i)=f(x) enddo s=0 do i=1,n,2 s=s+(h/3)*(y(i)+4*y(i+1)+y(i+2)) enddo simps(k)=s print*,s enddo print*,'---------------------------' fact=2**2 do k=1,m-1 fact=fact**k do j=1,m-k simps(j)=(fact*simps(j+1)-simps(j))/(fact-1) romb(k,j)=simps(j) print*,romb(k,j) enddo print*,'---------------------------' enddo end ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 43
- Page 1 and 2: Kurdistan Region-Iraq Sulaimani Uni
- Page 3 and 4: Problem: Write a program to find th
- Page 5 and 6: Problem: Write a program to find th
- Page 7 and 8: Problem: Write a program to determi
- Page 9 and 10: Problem: Write a program to determi
- Page 11 and 12: Problem: Write a program to determi
- Page 13 and 14: Problem: Write a program to find th
- Page 15 and 16: Problem: Write a program to find th
- Page 17 and 18: Problem: Write a program to find th
- Page 19 and 20: Problem: Write a program to find th
- Page 21 and 22: Problem: Write a program to find th
- Page 23 and 24: Problem: Write a program to determi
- Page 25 and 26: Problem: Write a program to determi
- Page 27 and 28: Problem: Write a program to determi
- Page 29 and 30: Problem: Write a program to determi
- Page 31 and 32: Problem: Write a program to determi
- Page 33 and 34: Problem: Write a Fortran program to
- Page 35 and 36: Problem: Write a Fortran program to
- Page 37 and 38: Problem: Write a Fortran program to
- Page 39 and 40: Problem: Write a Fortran program to
- Page 41: Problem: Write a Fortran program to
- Page 45 and 46: Problem: Write a Fortran program to
- Page 47 and 48: Problem: Write a Fortran program to
- Page 49 and 50: Problem: Write a Fortran program to
- Page 51 and 52: 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
1.048701<br />
1.019178<br />
1.011646<br />
1.009753<br />
+++++++++++++++++++++<br />
1.048701<br />
--------------------------------------<br />
1.019178<br />
1.009338<br />
--------------------------------------<br />
1.011646<br />
1.009135<br />
1.009122<br />
--------------------------------------<br />
1.009753<br />
1.009122<br />
1.009121<br />
1.009121<br />
--------------------------------------<br />
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^<br />
42