deimapfun.m

computation of conformal maps to polygonally bounded regions

function zdot = deimapfun(wp,yp,flag,scale,z,beta,c);
%   Used by DEINVMAP for solution of an ODE.

%   Copyright 1998 by Toby Driscoll.
%   $Id: deimapfun.m 7 1998-05-10 04:37:19Z tad $

lenyp = length(yp);
lenzp = lenyp/2;
zp = yp(1:lenzp)+sqrt(-1)*yp(lenzp+1:lenyp);

f = scale./dederiv(zp,z,beta,c);
zdot = [real(f);imag(f)];