- #1

- 6

- 0

For this problem use Simpson's Rule with N=256 for numerical integration function is y=×^2

and the lower limit is 1 & 3 is the upper limit.

I=[itex]\frac{h}{3}[/itex] {f

Find the numerical integration, using FORTRAN

my solution follows like this:

Program SimpsonRule

IMPLICIT NONE

REAL :: Xmax, Xmin,h , y

INTEGER :: N

Xmax=1.0

Xmin=3.0

N256

contains

h=[itex]\frac{(X

oddweight=4

evenweight=2

DO i=1,256

I=[itex]\frac{h}{3}[/itex] {f

integrate y=x^2

print*,I

END DO

END Program SimpsonRule

I have be told that the code must have subroutine, Do statement, function and call if statement.

my problem most start when i have to tell the computer to sum odd number and multiply by factor of 4 and sum the even number also multiply by factor of two.

and the lower limit is 1 & 3 is the upper limit.

I=[itex]\frac{h}{3}[/itex] {f

_{start}+f_{end}+2Ʃf_{even}+4Ʃf_{odd}}Find the numerical integration, using FORTRAN

my solution follows like this:

Program SimpsonRule

IMPLICIT NONE

REAL :: Xmax, Xmin,h , y

INTEGER :: N

Xmax=1.0

Xmin=3.0

N256

contains

h=[itex]\frac{(X

_{max}-X_{min})}{N}[/itex]oddweight=4

evenweight=2

DO i=1,256

I=[itex]\frac{h}{3}[/itex] {f

_{start}+f_{end}+2Ʃf_{even}+4Ʃf_{odd}}integrate y=x^2

print*,I

END DO

END Program SimpsonRule

**comment**I have be told that the code must have subroutine, Do statement, function and call if statement.

my problem most start when i have to tell the computer to sum odd number and multiply by factor of 4 and sum the even number also multiply by factor of two.

**the answer for the problem is 8.66667**
Last edited: