102 lines
3.2 KiB
Matlab
102 lines
3.2 KiB
Matlab
%%%%%%%%%%% 一阶四面体单元绘制云图程序 %%%%%%%%%%%
|
||
% Nodes节点坐标信息
|
||
% Elements单元信息
|
||
% U位移矩阵
|
||
% Component云图上节点的值，可以是位移、应力、应变等
|
||
function PlotContour(Nodes,Elements,U,Component)
|
||
NodeCount = size(Nodes,1) ; % 节点个数
|
||
ElementCount = size(Elements,1) ; %单元个数
|
||
|
||
ElementNodeCount=8; %每个单元节点数
|
||
|
||
% for i = 1:1:4
|
||
% Elements_new(:,2*i-1) = Elements(:,i);
|
||
% Elements_new(:,2*i) = Elements(:,i+4);
|
||
% end
|
||
% 矩阵初始化，X Y Z点的坐标：value点的值,对每个单元按照节点序号依次绘制云图
|
||
X = zeros(ElementNodeCount,ElementCount) ;
|
||
Y = zeros(ElementNodeCount,ElementCount) ;
|
||
Z = zeros(ElementNodeCount,ElementCount) ;
|
||
value = zeros(ElementNodeCount,ElementCount) ;
|
||
%判断矩阵类型（位移，应力，应变）
|
||
if size(Component,1)>1
|
||
for i=1:ElementCount
|
||
nd=Elements_new(i,:);
|
||
value(:,i) = Component(nd) ;
|
||
end
|
||
else
|
||
%先进行磨平，再把Component行向量转化成矩阵形式
|
||
Difference=max(Component)-min(Component);%全域上的最大值-最小值
|
||
AVG=0.75; % 默认阈值75%
|
||
for i=1:1:NodeCount %遍历节点，进行应力磨平
|
||
TElements=Elements';%转置Elements
|
||
itemp=(TElements==i);%进行逻辑判断，itemp:元素为0 1的矩阵
|
||
Cut=max(Component(1,itemp))-min(Component(1,itemp));%该节点的应力（应变）差
|
||
if 0<Cut&&Cut<=AVG*Difference(1)%判断是否满足阈值条件
|
||
Component(1,itemp)=mean(Component(1,itemp));%进行应力（应变）磨平
|
||
end
|
||
end
|
||
value=reshape(Component,ElementNodeCount,ElementCount);%将Component的值赋给value
|
||
end
|
||
%定义colormap的颜色
|
||
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];
|
||
% 绘制变形后云图
|
||
newNodes=Nodes';
|
||
newNodes=newNodes(:);
|
||
DeformationCoefficient=5.0e2; %变形放大系数
|
||
newNodes=newNodes+DeformationCoefficient*U;
|
||
newNodes=reshape(newNodes,[2,size(Nodes,1)]);
|
||
newNodes=newNodes';
|
||
% 定义单元每个面的节点顺序(顺时针或逆时针)
|
||
if ElementNodeCount == 4 % C3D4单元
|
||
%
|
||
fm = [1 2 3 4];
|
||
elseif ElementNodeCount==8 %C3D6单元
|
||
% 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 ;
|
||
%将节点位置赋予其对应值
|
||
for e=1:ElementCount %循环获取每个单元内节点的坐标
|
||
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
|
||
% 采用patch函数进行绘图
|
||
figure
|
||
cellfun(@patch,repmat({'Vertices'},1,ElementCount),xyz,.......%用多边形面片的方式显示各个面
|
||
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; %不显示坐标轴
|
||
colormap(myColor);
|
||
% caxis([min(Component),max(Component)]);
|
||
t1=caxis;
|
||
t1=linspace(t1(1),t1(2),13);
|
||
colorbar('ytick',t1,'Location','westoutside');
|
||
axis equal;
|
||
end |