       Re: Write a computer program to using Simpson's rule

• To: mathgroup at smc.vnet.net
• Subject: [mg74050] Re: Write a computer program to using Simpson's rule
• From: "Jean-Marc Gulliet" <jeanmarc.gulliet at gmail.com>
• Date: Thu, 8 Mar 2007 04:28:35 -0500 (EST)
• References: <esjfpm\$1tv\$1@smc.vnet.net> <45ED54C7.8@gmail.com>

```Evanescence wrote:
> Hello Dear all:
> My questions are as follows:
> First I definite as follows functions.
> B[=A3f_, =A3b_] function of =A3f, =A3b
> A[=A3f_, =A3b_] function of =A3f, =A3b
> F[=A3f_] function of =A3f
> G[=A3f_] function of =A3f
> K[=A3i_, =A3f_] function of =A3i, =A3f
> Z[=A3f_] function of =A3f
> U[=A3f_] function of =A3f
>
> Then I want to write a computer program about Simpson's 1/3 rule that
> can express below function
> L[=A3b_, =A3i_] :=(1/3)*((16-0)/32)*(0+4(((1/2)*K[=A3i, 1/2] )*(B[1/2,
> =A3b]*F[1/2]*(Z[1/2])+2*( A[1/2, =A3b]-B[1/2, =A3b]*G[1/2])*U[1/2]))+2
> (((1)*K[=A3i, 1] )*(B[1, =A3b]*F*(Z)+2*( A[1, =A3b]-B[1 =A3b]*G)*U=
> ))
> +4(((3/2)*K[=A3i, 3/2] )*(B[3/2, =A3b]*F[3/2]*(Z[3/2])+2*( A[3/2, =A3b]-B[3=
> /2,
> =A3b]*G[3/2])*U[3/2]))
> +2(((2)*K[=A3i, 2] )*(B[2, =A3b]*F*(Z)+2*( A[2, =A3b]-B[2,
> =A3b]*G)*U))
> +=2E.......................................................................
> +(((16)*K[=A3i, 16] )*(B[16, =A3b]*F*(Z)+2*( A[16, =A3b]-B[16,
> =A3b]*G)*U)))
[snip]

You may have not noticed when you sent the email that most of the above
code is unreadable. You should try sending again the message with an
font encoding scheme such as UTF-8, or use only plain ASCII characters.

Regards,
Jean-Marc

```

• Prev by Date: Re: How can I automate this problem in a mathematica notebook?
• Next by Date: Re: Integrate
• Previous by thread: Re: Write a computer program to using Simpson's rule
• Next by thread: Re: beginner plot function with parameter