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

84 lines
3.0 KiB
Mathematica
Raw Permalink 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=4; %ÿ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԫ<EFBFBD>ڵ<EFBFBD><EFBFBD><EFBFBD>
% <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(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==6 %C3D6<EFBFBD><EFBFBD>Ԫ
fm=[1 2 3 1;4 5 6 4;1 2 5 4;1 3 6 4;2 3 6 5];
elseif ElementNodeCount == 8 % C3D8<EFBFBD><EFBFBD>Ԫ
fm = [1 2 6 5; 2 3 7 6; 3 4 8 7; 4 1 5 8; 1 2 3 4; 5 6 7 8];
elseif ElementNodeCount == 20 % C3D20<EFBFBD><EFBFBD>Ԫ
fm = [1,9,2,10,3,11,4,12;5,13,6,14,7,15,8,16;1,9,2,18,6,13,5,17;
2,10,3,19,7,14,6,18;3,11,4,20,8,15,7,19;1,17,5,16,8,20,4,12];
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) ;
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