Changeset 13524
- Timestamp:
- 10/03/12 15:05:41 (12 years ago)
- Location:
- issm/trunk-jpl/src/m/mesh
- Files:
-
- 3 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/m/mesh/ElementsFromEdge.m
r9733 r13524 1 function edgeelements=ElementsFromEdge(elements,A,B) 1 function edgeelements=ElementsFromEdge(elements,A,B) 2 2 %ELEMENTSFROMEDGE: find elements connected to one edge defined by nodes A and B 3 3 % 4 % Usage: edgeelements=ElementsFromEdge(elements,A,B)4 % Usage: edgeelements=ElementsFromEdge(elements,A,B) 5 5 % 6 % Eg: edgeelements=ElementsFromEdge(md.mesh.elements,tip1,tip2)6 % Eg: edgeelements=ElementsFromEdge(md.mesh.elements,tip1,tip2) 7 7 % 8 8 % 9 9 edgeelements=find(... 10 (elements(:,1)==A & elements(:,2)==B )| ...11 (elements(:,1)==A & elements(:,3)==B )| ...12 (elements(:,2)==A & elements(:,3)==B )| ...13 (elements(:,2)==A & elements(:,1)==B )| ...14 (elements(:,3)==A & elements(:,1)==B )| ...15 (elements(:,3)==A & elements(:,2)==B ));10 (elements(:,1)==A & elements(:,2)==B )| ... 11 (elements(:,1)==A & elements(:,3)==B )| ... 12 (elements(:,2)==A & elements(:,3)==B )| ... 13 (elements(:,2)==A & elements(:,1)==B )| ... 14 (elements(:,3)==A & elements(:,1)==B )| ... 15 (elements(:,3)==A & elements(:,2)==B )); -
issm/trunk-jpl/src/m/mesh/rifts/meshprocessoutsiderifts.m
r13012 r13524 41 41 elements=[]; 42 42 43 while 43 while flags(B), %as long as B does not belong to the domain outline, keep looking. 44 44 %detect elements on edge A,B: 45 45 edgeelements=ElementsFromEdge(md.mesh.elements,A,B); … … 69 69 %deal with segments 70 70 tipsegments=find((md.mesh.segments(:,1)==tip) | (md.mesh.segments(:,2)==tip)); 71 for 71 for k=1:length(tipsegments), 72 72 segment_index=tipsegments(k); 73 73 pos=find(md.mesh.segments(segment_index,1:2)~=tip);
Note:
See TracChangeset
for help on using the changeset viewer.