Esta segunda visión compleja, nos dice que el cálculo del siguiente iterado complejo equivale a una iteración real del método. Para precisar algo más esta afirmación, vamos a fijar nomenclatura (a partir del iterado
):
Segunda interpretación compleja (Corolario 1 en [8])
Sea
analítica y
tal que
,
. Con la misma notación anterior, supongamos que la recta
viene parametrizada por
,
. Entonces tenemos
Vamos a generar los comandos para realizar los dibujos de esta segunda visión compleja. El plano vertical que pasa por z0 y el siguiente iterado puede generarse mediante
PlaP[exprz_, z0_] := Module[{v},
v=ZaXY[Iterf[Nf[exprz, z],z0,1]-z0];
Simplify[(x-Re[z0])*v[[2]]-(y-Im[z0])*v[[1]]]
]
donde los comandos ZaXY[ ], Iterf[ ] y Nf[ ] se han definido antes. Así, la orden
pt = PlaP[z^3 - 1, 0.3 + 0.5*I] 0.0288351 - 1.03172 x + 0.561361 yasigna a la variable
pt la expresión simbólica (igualada a cero) de la relación que deben cumplir las coordenadas
ContourPlot3D[pt, {x,-1.5,1.5}, {y,-1.5,1.5}, {z,0.,2.}, PlotPoints->3]
que necesita el paquete ContourPlot3D. El resultado de juntar este plano con la superficie se muestra en la Figura 15.
La restricción de
sobre este plano la podemos dibujar a partir de buscar una parametrización suya. Así la dibuja el siguiente comando
Restr[exprz_, z0_, varx_, opt___] := Module[{sol, x2, x3},
sol = Solve[PlaP[exprz, z0] == 0., y][[1]];
x2 = Function[t, (y /. sol) /. {x -> t}];
x3 = Function[t, (ModFz[exprz] /. sol) /. {x -> t}];
ParametricPlot3D[{x, x2[x], x3[x]}, varx, opt]
]
Finalmente, para realizar el dibujo que nos confirmará esta interpretación en nuestro ejemplo, vamos a generar los segmentos (a trazos) que unen los puntos tridimensionales
p = ZaXY[Nf[z^3 - 1, 0.3 + 0.5*I]]
Show[Graphics3D[{Dashing[{0.01, 0.01}],
Line[{{0.3, 0.5, 0.},
{0.3, 0.5, ModFz[z^3 - 1] /. {x -> 0.3, y -> 0.5}},
{p[[1]], p[[2]], 0.}}]}]]
Juntando estos dibujos obtenemos la Figura 16.