www.pudn.com > fem2d_nonlinear.rar > localdj.m, change:1999-02-15,size:1660b


function M = localdj(vertices,U)
% localDF  Computes local functional J(U,V) in considered problem.
%    M = LOCALDJ(VERTICES,U) computes the discretized total derivative
%    DJ(U,V_j;W_k) of the local functional J(U,V_j) over the triangle
%    specified by VERTICES for given U and for V_j and W_k each being the
%    three local hat functions at the vertices of the triangle. This M-file
%    is problem dependent and must be chosen by the user. VERTICES has
%    dimension 3 X 2 where the first column gives the x-coordinates of the 3
%    vertices and the second column their y-coordinates. U is a 3 x 1
%    dimensional array consisting of the values at the corresponding
%    vertices. M is a 3 x 3 dimensional array returning the value of
%    DJ(U,V_j;W_k).
%
%
%    See also FEM2D_NONLINEAR and LOCALJ.

%    J. Alberty, C. Carstensen and S. A. Funken  02-11-99
%    File <localdj.m> in $(HOME)/acf/fem2d_nonlinear/

Eps = 1/100;
G = [ones(1,3);vertices'] \ [zeros(1,2);eye(2)];
Area = det([ones(1,3);vertices']) / 2;
M = Area*(Eps*G*G'-[2,1,1;1,2,1;1,1,2]/12 + ...
    [12*U(1)^2+2*(U(2)^2+U(3)^2+U(2)*U(3))+6*U(1)*(U(2)+U(3)),...
      3*(U(1)^2+U(2)^2)+U(3)^2+4*U(1)*U(2)+2*U(3)*(U(1)+U(2)),...
      3*(U(1)^2+U(3)^2)+U(2)^2+4*U(1)*U(3)+2*U(2)*(U(1)+U(3));
  3*(U(1)^2+U(2)^2)+U(3)^2+4*U(1)*U(2)+2*U(3)*(U(1)+U(2)),...
      12*U(2)^2+2*(U(1)^2+U(3)^2+U(1)*U(3))+6*U(2)*(U(1)+U(3)),...
      3*(U(2)^2+U(3)^2)+U(1)^2+4*U(2)*U(3)+2*U(1)*(U(2)+U(3));
  3*(U(1)^2+U(3)^2)+U(2)^2+4*U(1)*U(3)+2*U(2)*(U(1)+U(3)),...
      3*(U(2)^2+U(3)^2)+U(1)^2+4*U(2)*U(3)+2*U(1)*(U(2)+U(3)),...
      12*U(3)^2+2*(U(1)^2+U(2)^2+U(1)*U(2))+6*U(3)*(U(1)+U(2))]/60);