Changeset 2969 for issm/trunk/src/m/classes/public/bamg.m
- Timestamp:
- 02/05/10 13:24:45 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/m/classes/public/bamg.m
r2966 r2969 39 39 nods=domain(i).nods-1; %the domain are closed 1=end; 40 40 bamg_geometry.Vertices=[bamg_geometry.Vertices; [domain(i).x(1:nods) domain(i).y(1:nods) ones(nods,1)]]; 41 bamg_geometry.Edges=[bamg_geometry.Edges; [transp(count+1:count+nods) transp([count+2:count+nods count+1]) ones(nods,1)]];41 bamg_geometry.Edges=[bamg_geometry.Edges; [transp(count+1:count+nods) transp([count+2:count+nods count+1]) 1*ones(nods,1)]]; 42 42 if i>1, 43 43 %if closed : hole … … 51 51 nods=domain(i).nods-1; 52 52 bamg_geometry.Vertices=[bamg_geometry.Vertices; [domain(i).x(:) domain(i).y(:) ones(nods+1,1)]]; 53 bamg_geometry.Edges=[bamg_geometry.Edges; [transp(count+1:count+nods) transp([count+2:count+nods+1]) ones(nods,1)]];53 bamg_geometry.Edges=[bamg_geometry.Edges; [transp(count+1:count+nods) transp([count+2:count+nods+1]) 2*ones(nods,1)]]; 54 54 55 55 else … … 65 65 end 66 66 bamg_geometry.NumVertices=size(bamg_geometry.Vertices,1); 67 bamg_geometry.NumEdges=size(bamg_geometry.Edges,1) 68 bamg_geometry.Edges 67 bamg_geometry.NumEdges=size(bamg_geometry.Edges,1); 69 68 bamg_geometry.NumSubDomains=size(bamg_geometry.SubDomains,1); 70 69 end
Note:
See TracChangeset
for help on using the changeset viewer.