MathGroup Archive 2007

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

Search the Archive

FullSimplify regress?


In Mathematica 5.2:


FullSimplify[ComplexExpand[ArcTan[Cos[Arg[z w]-Arg[z]-
     Arg[w]],Sin[Arg[z w]-Arg[z]-Arg[w]]],{z,w},TargetFunctions-> 
{Re,Im}]]


0


In Mathematica 6.01:

FullSimplify[ComplexExpand[
      ArcTan[Cos[Arg[z*w] - Arg[z] - Arg[w]],
        Sin[Arg[z*w] - Arg[z] - Arg[w]]], {z, w},
      TargetFunctions -> {Re, Im}]]

  ArcTan[Cos[ArcTan[Re[w], Im[w]] + ArcTan[Re[z],
          Im[z]] - ArcTan[Re[w]*Re[z] - Im[w]*Im[z],
          Re[z*Im[w] + w*Im[z]]]],
    -Sin[ArcTan[Re[w], Im[w]] + ArcTan[Re[z], Im[z]] -
          ArcTan[Re[w]*Re[z] - Im[w]*Im[z],
            Re[z*Im[w] + w*Im[z]]]]]


This looks like a bit of a regress to me.

Andrzej Kozlowski


  • Prev by Date: Re: Can i render a Disk[] in Graphics3D?
  • Next by Date: Plotting y-axis in reverse order for atmospheric profiles
  • Previous by thread: Re: Labeling longitudes and latitudes
  • Next by thread: Re: FullSimplify regress?