Structural-Mechanical
/
FEM-Course-Matlab
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
FEM-Course-Matlab/10.四节点八节点四边形单元悬臂梁的Matlab有限元编程/8_nodes/no_use/PlotContour.m

102 lines
3.2 KiB
Mathematica
Raw Normal View History

init project
2024-01-28 16:46:36 +00:00
%%%%%%%%%%% һ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>嵥Ԫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> %%%%%%%%%%%
% Nodes<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ
% Elements<EFBFBD><EFBFBD>Ԫ<EFBFBD><EFBFBD>Ϣ
% Uλ<EFBFBD>ƾ<EFBFBD><EFBFBD><EFBFBD>
% Component<EFBFBD><EFBFBD>ͼ<EFBFBD>Ͻڵ<EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD>ơ<EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
function PlotContour(Nodes,Elements,U,Component)
NodeCount = size(Nodes,1) ; % <EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ElementCount = size(Elements,1) ; %<EFBFBD><EFBFBD>Ԫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
ElementNodeCount=8; %ÿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԫ<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD>
% for i = 1:1:4
% Elements_new(:,2*i-1) = Elements(:,i);
% Elements_new(:,2*i) = Elements(:,i+4);
% end
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʼ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>X Y Z<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>꣺value<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ,<EFBFBD><EFBFBD>ÿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԫ<EFBFBD><EFBFBD><EFBFBD>սڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ
X = zeros(ElementNodeCount,ElementCount) ;
Y = zeros(ElementNodeCount,ElementCount) ;
Z = zeros(ElementNodeCount,ElementCount) ;
value = zeros(ElementNodeCount,ElementCount) ;
%<EFBFBD>жϾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD>λ<EFBFBD>ƣ<EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>䣩
if size(Component,1)>1
for i=1:ElementCount
nd=Elements_new(i,:);
value(:,i) = Component(nd) ;
end
else
%<EFBFBD>Ƚ<EFBFBD><EFBFBD><EFBFBD>ĥƽ<EFBFBD><EFBFBD><EFBFBD>ٰ<EFBFBD>Component<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ת<EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʽ
Difference=max(Component)-min(Component);%ȫ<EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ-<EFBFBD><EFBFBD>Сֵ
AVG=0.75; % Ĭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ75%
for i=1:1:NodeCount %<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ㣬<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD>ĥƽ
TElements=Elements';%ת<EFBFBD><EFBFBD>Elements
itemp=(TElements==i);%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>߼<EFBFBD><EFBFBD>жϣ<EFBFBD>itemp:Ԫ<EFBFBD><EFBFBD>Ϊ0 1<EFBFBD>ľ<EFBFBD><EFBFBD><EFBFBD>
Cut=max(Component(1,itemp))-min(Component(1,itemp));%<EFBFBD>ýڵ<EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>䣩<EFBFBD><EFBFBD>
if 0<Cut&&Cut<=AVG*Difference(1)%<EFBFBD>ж<EFBFBD><EFBFBD>Ƿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
Component(1,itemp)=mean(Component(1,itemp));%<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧ<EFBFBD>䣩ĥƽ
end
end
value=reshape(Component,ElementNodeCount,ElementCount);%<EFBFBD><EFBFBD>Component<EFBFBD><EFBFBD>ֵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>value
end
%<EFBFBD><EFBFBD><EFBFBD><EFBFBD>colormap<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɫ
myColor=1/255*[0,0,255; 0,93,255; 0,185,255; 0,255,232;
0,255,139; 0,255,46; 46,255,0; 139,255,0;
232,255,0; 255,185,0; 255,93,0; 255,0,0];
% <EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><EFBFBD>κ<EFBFBD><EFBFBD><EFBFBD>ͼ
newNodes=Nodes';
newNodes=newNodes(:);
DeformationCoefficient=5.0e2; %<EFBFBD><EFBFBD><EFBFBD>ηŴ<EFBFBD>ϵ<EFBFBD><EFBFBD>
newNodes=newNodes+DeformationCoefficient*U;
newNodes=reshape(newNodes,[2,size(Nodes,1)]);
newNodes=newNodes';
% <EFBFBD><EFBFBD><EFBFBD>嵥Ԫÿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ľڵ<EFBFBD>˳<EFBFBD><EFBFBD>(˳ʱ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><EFBFBD>)
if ElementNodeCount == 4 % C3D4<EFBFBD><EFBFBD>Ԫ
%
fm = [1 2 3 4];
elseif ElementNodeCount==8 %C3D6<EFBFBD><EFBFBD>Ԫ
% fm=[1 2 3 4 5 6 7 8];
fm=[8 7 6 5 4 3 2 1];
end
xyz = cell(1,ElementCount) ;
profile = xyz ;
%<EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD>λ<EFBFBD>ø<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ӧֵ
for e=1:ElementCount %ѭ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡÿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԫ<EFBFBD>ڽڵ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
nd=Elements(e,:);
X = newNodes(nd,1) ;
Y = newNodes(nd,2) ;
% Z = newNodes(nd,3) ;
for mm=1:4
XX(2*mm-1)=X(mm);
XX(2*mm)=X(mm+4);
YY(2*mm-1)=Y(mm);
YY(2*mm)=Y(mm+4);
value_new(2*mm-1)=value(mm,e);
value_new(2*mm)=value(mm+4,e);
end
xyz{e} = [XX' YY' ] ;
profile{e} = value_new';
% nd=Elements(e,:);
% X = newNodes(nd,1) ;
% Y = newNodes(nd,2) ;
% % Z = newNodes(nd,3) ;
% xyz{e} = [X Y ] ;
% profile{e} = value(:,e);
end
% <EFBFBD><EFBFBD><EFBFBD><EFBFBD>patch<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>л<EFBFBD>ͼ
figure
cellfun(@patch,repmat({'Vertices'},1,ElementCount),xyz,.......%<EFBFBD>ö<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƭ<EFBFBD>ķ<EFBFBD>ʽ<EFBFBD><EFBFBD>ʾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
repmat({'Faces'},1,ElementCount),repmat({fm},1,ElementCount),......
repmat({'FaceVertexCdata'},1,ElementCount),profile,......
repmat({'FaceColor'},1,ElementCount),repmat({'interp'},1,ElementCount));
% view(3);
% rotate3d on;
axis off; %<EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
colormap(myColor);
% caxis([min(Component),max(Component)]);
t1=caxis;
t1=linspace(t1(1),t1(2),13);
colorbar('ytick',t1,'Location','westoutside');
axis equal;
end