function [Ex,Ey,Ez]=GetExEy2(node,elem,EdgesOfElements,Et,Ezz) Elements = elem'; NbrElement=max(size(Elements)); %绘制 u=[0,1,0];v=[0,0,1]; Ex=zeros(NbrElement,3); Ey=zeros(NbrElement,3); Ez=zeros(NbrElement,3); for n=1:NbrElement %节点坐标 x=zeros(3,1);y=zeros(3,1);l=ones(3,1); x(1)=node(Elements(1,n),1);y(1)=node(Elements(1,n),2); x(2)=node(Elements(2,n),1);y(2)=node(Elements(2,n),2); x(3)=node(Elements(3,n),1);y(3)=node(Elements(3,n),2); l(1)=sqrt((x(1)-x(2))*(x(1)-x(2))+(y(1)-y(2))*(y(1)-y(2))); l(2)=sqrt((x(1)-x(3))*(x(1)-x(3))+(y(1)-y(3))*(y(1)-y(3))); l(3)=sqrt((x(2)-x(3))*(x(2)-x(3))+(y(2)-y(3))*(y(2)-y(3))); %雅可比矩阵 Jac=zeros(3,3); Jac(1,1)=x(2)-x(1);Jac(1,2)=y(2)-y(1); Jac(2,1)=x(3)-x(1);Jac(2,2)=y(3)-y(1);Jac(3,3)=1; InvJac=inv(Jac); %基函数 temp=zeros(3,1);et=zeros(3,3,3); for i=1:3 %第i个节点 for j=1:3 %第j个基函数 [temp(1),temp(2)]=BF_Et(j,u(i),v(i));temp(3)=0; et(i,:,j)=InvJac*temp*l(j); end end %数值解 for i=1:3 for j=1:3 Ex(n,i)=Ex(n,i)+et(i,1,j)*Et(EdgesOfElements((n-1)*3+j)); Ey(n,i)=Ey(n,i)+et(i,2,j)*Et(EdgesOfElements((n-1)*3+j)); end Ez(n,i)=Ezz(Elements(i,n)); end end end