Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: question

  • To: mathgroup at smc.vnet.net
  • Subject: [mg80092] Re: question
  • From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
  • Date: Sun, 12 Aug 2007 07:19:36 -0400 (EDT)
  • Organization: The Open University, Milton Keynes, UK
  • References: <f9jlom$3oc$1@smc.vnet.net>

dimitris wrote:
<snip>

> In Mathematica 5.2
> 
> In[5]:=
> FourierTransform[Sign[y]*Sign[a*y], y, q]
> 
> Out[5]=
> (1/q)*((I*(1 - E^(I*q*Sqrt[1/Integrate`NLtheoremDump`myMax[0,
> 0]^2]*Integrate`NLtheoremDump`myMax[0, 0]^2) +
>      E^(2*I*q*Sqrt[1/Integrate`NLtheoremDump`myMax[0,
> 0]^2]*Integrate`NLtheoremDump`myMax[0, 0]^2))*Sqrt[2/Pi]*
>     (2 + DiscreteDelta[a] - UnitStep[-a] - UnitStep[a]))/E^(I*q*Sqrt[1/
> Integrate`NLtheoremDump`myMax[0, 0]^2]*
>      Integrate`NLtheoremDump`myMax[0, 0]^2))
> 
> I think outputs like this is a mini nightmare for the developers.
> 
> What does version 6 returns?

Less obfuscated answer Mathematica 6 returns:

In[1]:= $Version
FourierTransform[Sign[y]*Sign[a*y], y, q]

Out[1]= "6.0 for Microsoft Windows (32-bit) (June 19, 2007)"

Out[2]= -Sqrt[2 Pi] DiracDelta[q] UnitStep[-a] +

   Sqrt[2 Pi] DiracDelta[q] UnitStep[a] -

          2
   I Sqrt[--] UnitStep[-a] UnitStep[a]
          Pi
   -----------------------------------
                    q

-- 
Jean-Marc


  • Prev by Date: Re: Mathematica v5 versus v6
  • Next by Date: Re: Indexed element treated as number?
  • Previous by thread: question
  • Next by thread: Re: question