Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: plotting complex functions in (x,y,t) space

• To: mathgroup at smc.vnet.net
• Subject: [mg131796] Re: plotting complex functions in (x,y,t) space
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Mon, 7 Oct 2013 08:23:41 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-outx@smc.vnet.net
• Delivered-to: mathgroup-newsendx@smc.vnet.net
• References: <20131006074734.D77A66A1D@smc.vnet.net>

One approach:


f[x_, y_, t_] = Sqrt[x^2 + y^2 + t^2]*Exp[I*t];


Module[{func,
  xmin = -1, ymin = -1, tmin = -1,
  xmax = 1, ymax = 1, tmax = 1,
  xstep = .1, ystep = .1, tstep = .1},
 Graphics3D[
  Flatten[
   Table[
    {Hue[Arg[func = f[x, y, t]]],
     Opacity[1 - Abs[func]],
     EdgeForm[],
     Cuboid[{x, y, t},
      {x + xstep, y + ystep, t + tstep}]},
    {x, xmin, xmax - xstep, xstep},
    {y, ymin, ymax - ystep, ystep},
    {t, tmin, tmax - tstep, tstep}]],
  Axes -> True,
  AxesLabel -> (Style[#, 18] & /@
     {"x", "y", "t"})]]



Bob Hanlon




On Sun, Oct 6, 2013 at 3:47 AM, Michael B. Heaney <mheaney at alum.mit.edu>wrote:

>
> Hi,
>
> I'd like to plot, on [x,y,t] axes, a complex function F[x,y,t], with the
> magnitude of F represented by opacity, and the phase of F represented by
> color. Does anyone have suggestions on how best to do this?
>
> Thanks,
>
> Michael
>
>
>

• References:
  • plotting complex functions in (x,y,t) space
    • From: "Michael B. Heaney" <mheaney@alum.mit.edu>