Services & ResourcesWolfram ForumsMathGroup Archive

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

Plotter for complex polynomials (complex coefficients)

• To: mathgroup at smc.vnet.net
• Subject: [mg124706] Plotter for complex polynomials (complex coefficients)
• From: Chris Young <cy56 at comcast.net>
• Date: Wed, 1 Feb 2012 03:51:32 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Not sure if this is done right. Could I speed it up by using Set 
instead of SetDelayed in the converter to complex point? If so, 
shouldn't I protect the "z" by wrapping the definition in a Module with 
"z" as a local variable?

I have the coloring going from green for 0 to red for Ï? and then back 
again, so colors are the same for plus and minus arguments (i.e., 
angles) for the complex polynomial. Probably should have some 
indication which is which, or a way to toggle it.

http://home.comcast.net/~cy56/Mma/ComplexCoeffPlotter.nb
http://home.comcast.net/~cy56/Mma/ComplexCoeffPlotterPic2.png

Chris Young
cy56 at comcast.net


Manipulate[
 Module[
  {f, \[ScriptCapitalC]},

  \[ScriptCapitalC][P_] := P[[1]] + P[[2]] I;   (*
  Convert 2D point to complex point *)

  f[z_] = \[ScriptCapitalC][a]  z^3 + \[ScriptCapitalC][
      b] z^2 + \[ScriptCapitalC][c] z + \[ScriptCapitalC][ d];

  Plot3D[
   Abs[f[x + y I]],   {x, -6, 6},  {y, -6, 6},

   PlotPoints -> 100,
   MaxRecursion -> 2,

   Mesh -> 11,
   MeshStyle -> Directive[Gray, AbsoluteThickness[0.01]],
   MeshFunctions -> ({x, y} \[Function] (\[Pi] -
       Abs[Arg[f[x + I y]]])/\[Pi]),

   ColorFunctionScaling -> False,
   ColorFunction -> ({x, y} \[Function]
      Hue[0.425 \[LeftFloor]12 (\[Pi] -
           Abs[Arg[f[x + I y]]])/\[Pi]\[RightFloor]/12, sat, bri]),
   PlotStyle -> Opacity[opac],
   AxesLabel -> {"x", "i y", "|f(x + iy)|"}]
  ],
 (*Item["The complex coefficients"],*)
 {a, {-2, -2}, {2, 2}},
 {b, {-2, -2}, {2, 2}},
 {c, {-2, -2}, {2, 2}},
 {d, {-2, -2}, {2, 2}},
 {{opac, 0.75, "Opacity"}, 0, 1},
 {{sat, 0.75, "Saturation"}, 0, 1},
 {{bri, 1, "Brightness"}, 0, 1},

 ControlPlacement -> {Left, Left, Left, Left, Bottom, Bottom, Bottom}
 ]

• Follow-Ups:
  • Re: Plotter for complex polynomials (complex coefficients)
    • From: DrMajorBob <btreat1@austin.rr.com>
  • Re: Plotter for complex polynomials (complex coefficients)
    • From: DrMajorBob <btreat1@austin.rr.com>