Re: Deriving parametric plot of a branch cut
- To: mathgroup at smc.vnet.net
- Subject: [mg79943] Re: Deriving parametric plot of a branch cut
- From: chuck009 <dmilioto at comcast.com>
- Date: Thu, 9 Aug 2007 05:22:05 -0400 (EDT)
I'm following up on this thread. With the nice Exclusion code provided by version 6, I can easily plot two logarithmic sheets of the imaginary surface for f[z]=Log[1+1/(e^z Sqrt[z]). Note that each logarithmic sheet bifurcates into two square-root sheets. I like the nice interactive 3-D features of version 6. wSheet1 = Log[1 + 1/(Exp[z]*Sqrt[z])]; wSheet1b = Abs[1 + 1/(Exp[z]*Sqrt[z])] + I*(Arg[1 + 1/(Exp[z]*Sqrt[z])] + 2*Pi); wSheet2 = Log[1 + 1/(Exp[z]*Abs[z]^(1/2)* Exp[(I/2)*(Arg[z] + 2*Pi*I)])]; wSheet2b = Abs[1 + 1/(Exp[z]*Abs[z]^(1/2)*Exp[(I/2)*(Arg[z] + 2*Pi*I)])] + I*(Arg[1 + 1/(Exp[z]*Abs[z]^(1/2)* Exp[(I/2)*(Arg[z] + 2*Pi*I)])] + 2*Pi); xmax = 15; pSheet1 = Plot3D[Evaluate[Im[wSheet1 /. z -> x + I*y]], {x, -4, 4}, {y, -xmax, xmax}, AspectRatio -> 1, Mesh -> All, PlotRange -> {{-xmax, xmax}, {-xmax, xmax}, {-xmax, xmax}}, BoxRatios -> {1, 1, 1}, ClippingStyle -> None, PlotPoints -> 25, PlotStyle -> Red]; pSheet1b = Plot3D[Evaluate[Im[wSheet1b /. z -> x + I*y]], {x, -4, 4}, {y, -xmax, xmax}, AspectRatio -> 1, Mesh -> All, PlotRange -> {{-xmax, xmax}, {-xmax, xmax}, {-xmax, xmax}}, BoxRatios -> {1, 1, 1}, ClippingStyle -> None, PlotPoints -> 25, PlotStyle -> Green]; pSheet2 = Plot3D[Evaluate[Im[wSheet2 /. z -> x + I*y]], {x, -4, 4}, {y, -xmax, xmax}, AspectRatio -> 1, Mesh -> All, PlotRange -> {{-xmax, xmax}, {-xmax, xmax}, {-xmax, xmax}}, BoxRatios -> {1, 1, 1}, ClippingStyle -> None, PlotPoints -> 25, PlotStyle -> Blue]; pSheet2b = Plot3D[Evaluate[Im[wSheet2b /. z -> x + I*y]], {x, -4, 4}, {y, -xmax, xmax}, AspectRatio -> 1, Mesh -> All, PlotRange -> {{-xmax, xmax}, {-xmax, xmax}, {-xmax, xmax}}, BoxRatios -> {1, 1, 1}, ClippingStyle -> None, PlotPoints -> 25, PlotStyle -> Yellow]; Show[{pSheet1, pSheet1b, pSheet2, pSheet2b}, Boxed -> False, Axes -> False] > chuck009 wrote: > > I've been working on an interesting problem of > late: f[z_]:=Log[1+Exp[-z]/Sqrt[z]] posted in here > earlier. I'm unable to plot the Riemann surface of > this function even with the nice code written by > Michael Trott (his code fails to handle the branch > cuts).