22 lines
677 B
Mathematica
22 lines
677 B
Mathematica
|
function PlotResults2(Nodes,Elements,gNTu,SF) % 2<EFBFBD><EFBFBD><EFBFBD>ӳ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ
|
|||
|
|
figure
|
|||
|
|
% global gNdt gElt gNTu
|
|||
|
|
%<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ԫ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳<EFBFBD><EFBFBD>
|
|||
|
|
gElt_plot = zeros(size(Elements,1),size(Elements,2));
|
|||
|
|
for i = 1:1:4
|
|||
|
|
gElt_plot(:,2*i-1) = Elements(:,i);
|
|||
|
|
gElt_plot(:,2*i) = Elements(:,i+4);
|
|||
|
|
end
|
|||
|
|
|
|||
|
|
dFau = SF ; % <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ<EFBFBD>Ŵ<EFBFBD>ϵ<EFBFBD><EFBFBD>
|
|||
|
|
|
|||
|
|
%% <EFBFBD><EFBFBD><EFBFBD>Ʊ<EFBFBD><EFBFBD><EFBFBD>ǰ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
trisurf( gElt_plot , Nodes( : , 1 ) , Nodes( : , 2 ) , zeros(size(Nodes,1),1))
|
|||
|
|
view(2); axis equal; axis off; axis tight; alpha(0.5);
|
|||
|
|
hold on
|
|||
|
|
|
|||
|
|
%% <EFBFBD><EFBFBD>ȡ<EFBFBD><EFBFBD><EFBFBD>κ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
DDisp = Nodes + gNTu * dFau;
|
|||
|
|
% pause( 3.0 );
|
|||
|
|
trisurf( gElt_plot , DDisp( : , 1 ) , DDisp( : , 2 ) , zeros(size(DDisp,1),1));
|
|||
|
|
view(2); axis equal; axis off; axis tight;alpha(0.5);
|