function Ae = aloc_2dLaplace(x,ke)

Re = [x(:,2)-x(:,1),x(:,3)-x(:,1)];
Ge = [[-1;-1] [1;0] [0;1]];
Be = inv(Re)'*Ge;
obsahe = abs(det(Re)) / 2;
Ae = ke * Be' * Be * obsahe;