% elpotential.m elektrische Potentialverteilung 
%  von 2-6 Punktladungen
%  Ein Vektor  LADGVECT kann vordefiniert werden
if exist('LADGVECT') == 0 
  ch = [1 -1 1 -1]; npt = 4;
else
  ch = LADGVECT; npt = length(LADGVECT) ;
end
xbor = [ 0 100 100  0  0];
ybor = [ 0  0  100 100 0];
plot(xbor,ybor,'k'); hold on; axis([0 100 0 100]); axis square;
xv = 1:99; [xg,yg] = meshgrid(xv,xv);
pot = zeros(99);
for k=1:npt
  [xp(k), yp(k)] = ginput(1);
   pot = pot + ch(k)./max(sqrt( (xg-xp(k)).^2+(yg-yp(k)).^2), 2);
end 
contourf(xg,yg,pot,30)
hold off

 