XIAN-FEM-2026June/三维matlab代码/2023-2-端口激励问题(四面体网格)/波束包络/FacesRecoding.m

13 lines
321 B
Matlab

function [NodesMapping,NewFaces]=FacesRecoding(Faces)
%output
%NodesMapping-Mapping between old and new nodes
%NewFaces-new faces coding
%input
%Faces-old faces coding
NbrFaces=length(Faces);
AllNodes=reshape(Faces',NbrFaces*3,1);
[NodesMapping,~,NewFaces]=unique(AllNodes);
NewFaces=reshape(NewFaces,3,NbrFaces)';
end