MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: FresnelS & FresnelC

  • To: mathgroup at smc.vnet.net
  • Subject: [mg13845] Re: [mg13809] FresnelS & FresnelC
  • From: BobHanlon at aol.com
  • Date: Sat, 29 Aug 1998 04:41:20 -0400
  • Sender: owner-wri-mathgroup at wolfram.com

value=Integrate[Cos[x^2-y^2],{x,0,Sqrt[Pi]},{y,0,Sqrt[Pi]}]

1/2*Pi*(FresnelC[Sqrt[2]]^2 + FresnelS[Sqrt[2]]^2)

N[value]

1.24012

NIntegrate[Cos[x^2-y^2],{x,0,Sqrt[Pi]},{y,0,Sqrt[Pi]}]

1.24012

Plot3D[Cos[x^2-y^2],{x,0,Sqrt[Pi]},{y,0,Sqrt[Pi]}];

Since you are integrating over a region whose area is Pi and the maximum
value of the function is one, then the integral is clearly less than
Pi.

Bob Hanlon

In a message dated 8/28/98 9:12:23 AM, hattons at cpkwebser5.ncr.disa.mil
wrote:

>I copied directly from *Mathematica By Example* in PDF format, pg 220,
>Revised First Ed..   I do not get the same result as the author.  Does
>any body else get ~pi ?  I get 1.24012 for the numerical result, and
>the same thing the book says for the symbolic result.
>
>IN[ ]= value=Integrate[Cos[x^2-y^2],{x,0,Sqrt[Pi]},{y,0,Sqrt[Pi]}]
>
>OUT [ ]=  (Pi (FresnelC[Sqrt[2]]^2 +  FresnelS[Sqrt[2]]^2 )) / 2
>
>IN[ ]= N[value]
>
>OUT[ ]= 3.14159


  • Prev by Date: Saving animations as an AVI?
  • Next by Date: Problem with `Complete Selection'
  • Previous by thread: FresnelS & FresnelC
  • Next by thread: Re: FresnelS & FresnelC