clf
ih = imagesc([ll_r, rr_r], [ll_i, rr_i], svt);
hold on;
set(gca,'YDir','normal');
quiver(real(mzp),imag(mzp),-real(mzd),-imag(mzd),0.2,'g');

k1=tzp;
k2 = zeros(1,length(k1))+max_spot; 
k3 = [k1; k2];
k4 = k3(:);
plot(k4,'k');
print -deps -f1 locate.eps
%plot(k4,'w');
%print -dtiff -f1 -r58 locate.tiff