Complex mapping re-iterator
- To: mathgroup at smc.vnet.net
- Subject: [mg123645] Complex mapping re-iterator
- From: Chris Young <cy56 at comcast.net>
- Date: Wed, 14 Dec 2011 06:01:10 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Want to link this up with the colored-modulus-surface plot.
Wish there were some way to get more convincing color blending.
Manipulate[
Show[
Table[
ParametricPlot[
{
Through[
Nest[#^2 - (a + b I) &, #, n] & /@ {Re, Im}[
u Exp[(- 15 \[Degree] + (k + v) 30 \[Degree]) I]]]
},
{u, 0, 1}, {v, 0, 1},
Mesh -> None,
PlotStyle -> {Opacity[opac], Hue[k/12, 1, 1]},
BoundaryStyle -> None
],
{k, k0, k1}
],
PlotRange -> All
],
{{a, 0.1}, -4, 4, 0.125},
{{b, 0.1}, -4, 4, 0.125},
{{n, 1}, 0, 20, 1},
{{opac, 0.5}, 0, 1},
{{k0, -2}, -11, 11, 1},
{{k1, 2}, -11, 11, 1}
]