logphi:log(cabs(z)), fac:1/2, i:0], while i<i_max and cabs(z)<e_r do (z:z*z+c, logphi:logphi+fac*log(cabs(1+c/(z*z))), i:i+1 ), if i=iMax then logphi:0...
