Tree @lintian-fixes/main (Download .tar.gz)
- .git_filters
- debian
- doc
- meshfix
- sample
- tools
- .gitattributes
- .gitignore
- .gitmodules
- advancefront.m
- affinemap.m
- AUTHORS.txt
- barydualmesh.m
- base64decode.m
- base64encode.m
- bbxflatsegment.m
- binsurface.m
- bwislands.m
- cgals2m.m
- cgalv2m.m
- ChangeLog.txt
- closestnode.m
- Content.txt
- COPYING.txt
- decodevarname.m
- deislands2d.m
- deislands3d.m
- delendelem.m
- deletemeshfile.m
- DESCRIPTION
- dist2surf.m
- edgeneighbors.m
- elemfacecenter.m
- elemvolume.m
- encodevarname.m
- extractloops.m
- extrudecurve.m
- extrudesurf.m
- faceneighbors.m
- fallbackexeext.m
- fast_match_bracket.m
- fillholes3d.m
- fillsurf.m
- finddisconnsurf.m
- flatsegment.m
- gendocs.sh
- getexeext.m
- getintersecttri.m
- getoptkey.m
- getplanefrom3pt.m
- getvarfrom.m
- gzipdecode.m
- gzipencode.m
- highordertet.m
- i2m.m
- i2m.png
- i2m.prj
- imedge3d.m
- img2mesh.fig
- img2mesh.m
- INDEX
- innersurf.m
- insurface.m
- internalpoint.m
- iso2meshver.m
- isoctavemesh.m
- jdatadecode.m
- jdataencode.m
- jload.m
- jnifticreate.m
- jnii2nii.m
- jsave.m
- jsonopt.m
- latticegrid.m
- layersurf.m
- linextriangle.m
- loadbj.m
- loadjnifti.m
- loadjson.m
- loadmsgpack.m
- loadnifti.m
- loadubjson.m
- lz4decode.m
- lz4encode.m
- lz4hcdecode.m
- lz4hcencode.m
- lzipdecode.m
- lzipencode.m
- lzmadecode.m
- lzmaencode.m
- m2v.m
- maskdist.m
- match_bracket.m
- maxsurf.m
- mcpath.m
- memmapstream.m
- mergemesh.m
- mergestruct.m
- mergesurf.m
- mesh2mask.m
- mesh2vol.m
- meshabox.m
- meshacylinder.m
- meshanellip.m
- meshasphere.m
- meshcentroid.m
- meshcheckrepair.m
- meshconn.m
- meshcylinders.m
- meshedge.m
- mesheuler.m
- meshface.m
- meshgrid5.m
- meshgrid6.m
- meshinterp.m
- meshquality.m
- meshrefine.m
- meshremap.m
- meshreorient.m
- meshresample.m
- meshunitsphere.m
- metchgui.fig
- metchgui.m
- metchgui_one.m
- mwpath.m
- ndgaussian.m
- ndimfilter.m
- neighborelem.m
- nestbracket2dim.m
- nifticreate.m
- nii2jnii.m
- niicodemap.m
- niiformat.m
- nodesurfnorm.m
- nodevolume.m
- orderloopedge.m
- orthdisk.m
- outersurf.m
- plotedges.m
- plotmesh.m
- plotsurf.m
- plottetra.m
- polylineinterp.m
- polylinelen.m
- polylinesimplify.m
- proj2mesh.m
- qmeshcut.m
- raysurf.m
- raytrace.m
- readasc.m
- readgts.m
- readinr.m
- README.md
- README.txt
- readmedit.m
- readmptiff.m
- readnifti.m
- readnirfast.m
- readoff.m
- readsmf.m
- readtetgen.m
- regpt2surf.m
- remeshsurf.m
- removedupelem.m
- removedupnodes.m
- removeisolatednode.m
- removeisolatedsurf.m
- rotatevec3d.m
- rotmat2vec.m
- s2m.m
- s2v.m
- saveabaqus.m
- saveasc.m
- savebinstl.m
- savebj.m
- savebnii.m
- savedxf.m
- savegts.m
- saveinr.m
- savejmesh.m
- savejnifti.m
- savejnii.m
- savejson.m
- savemedit.m
- savemphtxt.m
- savemsgpack.m
- savemsh.m
- savenifti.m
- savenirfast.m
- saveoff.m
- savesmf.m
- savestl.m
- savesurfpoly.m
- savetetgenele.m
- savetetgennode.m
- saveubjson.m
- savevrml.m
- slicesurf.m
- slicesurf3.m
- smoothbinvol.m
- smoothsurf.m
- sms.m
- sortmesh.m
- surf2mesh.m
- surf2vol.m
- surf2volz.m
- surfaceclean.m
- surfacenorm.m
- surfboolean.m
- surfdiffuse.m
- surfedge.m
- surfinterior.m
- surfpart.m
- surfplane.m
- surfreorient.m
- surfseeds.m
- surfvolume.m
- thickenbinvol.m
- thinbinvol.m
- TODO.txt
- uniqedges.m
- uniqfaces.m
- v2m.m
- v2s.m
- varargin2struct.m
- vol2mesh.m
- vol2restrictedtri.m
- vol2surf.m
- volface.m
- volmap2mesh.m
- zlibdecode.m
- zlibencode.m
saveabaqus.m @lintian-fixes/main — raw · history · blame
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 | function saveabaqus(node,face,elem,fname,heading) % % saveabaqus(node,fname) % saveabaqus(node,face,fname) % saveabaqus(node,face,elem,fname) % % save a tetrahedral and/or surface mesh as an ABAQUS input file % % author: Qianqian Fang, <q.fang at neu.edu> % date: 2012/07/05 % % input: % node: input, surface node list, dimension (nn,3) % face: input, surface face element list, dimension (be,3) % elem: input, tetrahedral element list, dimension (ne,4) % fname: output file name % heading: optional, a descriptive string for the mesh % % -- this function is part of iso2mesh toolbox (http://iso2mesh.sf.net) % if(nargin==2) fname=face; face=[]; elem=[]; end if(nargin==3) fname=elem; elem=[]; end fid=fopen(fname,'wt'); if(fid==-1) error('You do not have permission to save mesh files.'); end fprintf(fid,'*HEADING\n'); if(exist('heading','var')) fprintf(fid,'**%s\n',heading); end fprintf(fid,'*PREPRINT,MODEL=NO,HISTORY=NO,ECHO=NO\n'); if(~isempty(node)) node=[(1:size(node,1))' node(:,1:3)]; fprintf(fid,'*NODE, NSET=MeshNode\n'); fprintf(fid,'%d,\t%e,\t%e,\t%e\n',node'); end if(~isempty(elem)) if(size(elem,2)==4) elem(:,5)=0; labels=0; elseif(size(elem,2)<4) error('elem must have at least 4 columns'); else labels=unique(elem(:,5)); end len=length(labels); count=0; elsetall=''; for i=1:len idx=find(elem(:,5)==labels(i)); fprintf(fid,'*ELEMENT, ELSET=MeshTetra%d, TYPE=C3D4\n',labels(i)); fprintf(fid,'%d,\t%d,\t%d,\t%d,\t%d\n',[count+(1:length(idx))' elem(idx,1:4)]'); count=count+length(idx); if(length(elsetall)==0) elsetall=['MeshTetra' num2str(labels(i))]; else elsetall=sprintf('%s,MeshTetra%d',elsetall,labels(i)); end end if(length(elsetall)) fprintf(fid,'*ELSET, ELSET=MeshTetraAll\n%s\n',elsetall); end end if(~isempty(face)) if(size(face,2)==3) face(:,4)=0; labels=0; elseif(size(face,2)<3) error('face must have at least 3 columns'); else labels=unique(face(:,4)); end len=length(labels); if(exist('count','var')==0) count=0; end elsetall=''; for i=1:len idx=find(face(:,4)==labels(i)); fprintf(fid,'*ELEMENT, ELSET=MeshTri%d, TYPE=S3R\n',labels(i)); fprintf(fid,'%d,\t%d,\t%d,\t%d\n',[count+(1:length(idx))' face(idx,1:3)]'); count=count+length(idx); if(length(elsetall)==0) elsetall=['MeshTetra' num2str(labels(i))]; else elsetall=sprintf('%s,MeshTri%d',elsetall,labels(i)); end end if(length(elsetall)) fprintf(fid,'*ELSET, ELSET=MeshTriAll\n%s\n',elsetall); end end fclose(fid); |