> Drawing field lines and contour lines is very important to me.
> If I could help I will do my best . (:-)
Adam,
Not sure if this is what you need, but I have transformed the complex
argument into two reals (real and imaginary parts).
GiveSLogPhi(rz, iz,c,e_r,i_max):=
block(
[z:rz+%i*iz, logphi, fac:1/2, i:0],
while i<i_max and cabs(z)<e_r do
(z:z*z+c,
fac:fac/2,
i:i+1 ),
if i=iMax
then logphi:0
else logphi:fac*log(cabs(z)),
float(logphi) )$
load(draw) $
draw3d(
explicit(fun, r,-1,1,i,-1,1),
contour = map);
See also
? contour
? contour_levels
--
Mario