42 lines
1.3 KiB
Matlab
42 lines
1.3 KiB
Matlab
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 |