MathGroup Archive 2007

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

Search the Archive

Re: Real/Comlex function problem with D

  • To: mathgroup at smc.vnet.net
  • Subject: [mg74242] Re: Real/Comlex function problem with D
  • From: "dimitris" <dimmechan at yahoo.com>
  • Date: Thu, 15 Mar 2007 05:03:26 -0500 (EST)
  • References: <et8e29$pqb$1@smc.vnet.net>

On Mar 14, 11:08 am, b... at ANTYSPAM.ap.krakow.pl wrote:
> Hi,
> I have a complex function F[x]
> When i defined:
> ff[x_]:=Arg[F[x]]   (* i tried ComplexExpand[Arg[F[x]]] too *)
>
> I obtainned good Plot[ff[x]] - its real - (no complex)
>
> When i try
> ff1[x_]:=D[ff[x],x];
>  I found ff1 is Complex funtion again !!
>
> Why ?
>
> (i tried Evaluate; Element[x,Reals]; FullSimplify - always the same)
>
> Regards, Olaf

Is it a particular reason that the derivative of Arg[F[x]] should not
be complex?

Print["a complex function"]
F[x_] = x*Exp[3*I*x]
Print["the argument of the complex function"]
ff[x_] = Arg[F[x]]
Print["plots of the real and imaginary\npart of the complex function
\nalong with plot of the argument"]
Show[GraphicsArray[Block[{$DisplayFunction = Identity},
(Plot[#1[F[x]], {x, 0, 2*Pi}, PlotLabel -> #1[F[x]]] & ) /@ {Re,
Im}]],
   ImageSize -> 400];
Show[Block[{$DisplayFunction = Identity}, (Plot[ff[x], {x, #1[[1]],
#1[[2]]}] & ) /@ Partition[Range[0, 2*Pi, Pi/3], 2, 1]],
   Axes -> False, Frame -> {True, True, False, False}, ImageSize ->
200, PlotLabel -> ff[x]];
Print[StyleForm["note the finite discontinuities at n*Pi/3", FontColor
-> Red]]
Print["the derivative of Arg[F[x]] is complex function"]
ff1[x_] = D[ff[x], x]
Print["the real and the imaginary part"]
(ComplexExpand[#1[D[ff[x], x]]] & ) /@ {Re, Im}
Print["the plots of them\nred\[Implies]Re, blue\[Implies]Im"]
Plot[Evaluate[%%], {x, 0, 2*Pi}, PlotStyle -> {Red, Blue}];

Best Regards
Dimitris

P.S.
 The result from Arg[z] is always between -Pi and Pi.
 Arg[z] has a branch cut discontinuity in the complex z plane running
from -Infinity to 0.

Copy paste the following to a notebook

Cell[TextData[ButtonBox["Arg from www.functions.wolfram.com",
  ButtonData:>{
    URL[ "http://functions.wolfram.com/ComplexComponents/Arg/";],
None},
  ButtonStyle->"Hyperlink"]], "Text"]

select the cell and press Shift+Ctrl+E
Then with your mouse click the the hyperlink to go to a relevant web
page for more information.



  • Prev by Date: Re: Integrate (fix a mistake)
  • Next by Date: Re: Re: Multi-core Support in Mathematica 5.2
  • Previous by thread: Re: Real/Comlex function problem with D
  • Next by thread: Publicon: Skipped Figure numbers