刚做的接触分析例子

zxj125

刚做了一个接触分析的例子，分享一下。希望高手提点意见。。。
/BATCH  
! /COM,ANSYS RELEASE 11.0    UP20070125      
/input,start110,ans,'
!*  
/PREP7  
!*  
ET,1,SOLID46
!*  
KEYOPT,1,2,0
KEYOPT,1,1,0
KEYOPT,1,3,0
KEYOPT,1,4,0
KEYOPT,1,5,2
KEYOPT,1,6,0
KEYOPT,1,8,1
KEYOPT,1,9,0
KEYOPT,1,10,0   
!*  
*SET,_RC_SET,1,
R,1
!*  
RMODIF,1,1,3,0,0,0  
RMODIF,1,7,0
!*  
RMODIF,1,13,1,0,0.02,1,0,0.02,  
RMODIF,1,19,1,0,0.02,   
!*  
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,5.35e10
MPDATA,EY,1,,1.784e10   
MPDATA,EZ,1,,1.784e10   
MPDATA,PRXY,1,,0.25
MPDATA,PRYZ,1,,0.25
MPDATA,PRXZ,1,,0.25
MPDATA,GXY,1,,8.92e9
MPDATA,GYZ,1,,7.55e9
MPDATA,GXZ,1,,8.92e9
! SAVE,
! /COM,ANSYS RELEASE 11.0    UP20070125                 
! /REPLOT,RESIZE  
/PREP7  
!*  
ETDEL,1
!*  
ET,1,PLANE183   
!*  
KEYOPT,1,1,0
KEYOPT,1,3,1
KEYOPT,1,6,0
KEYOPT,1,10,0   
!*  
RDEL,1  
!*  
!*  
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,2,,2.1e11
MPDATA,PRXY,2,,0.296
TB,BKIN,2,1,2,1
TBTEMP,0
TBDATA,,0.82e9,2.1e10,,,,   
RECTNG,0.015,0.017,0.08,0.125,  
RECTNG,0.017,0.02,0.08,0.125,   
PCIRC,0.092,0.09,0,90,  
PCIRC,0.095,0.092,0,90,
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
FLST,2,2,5,ORDE,2   
FITEM,2,1   
FITEM,2,3   
AOVLAP,P51X
FLST,2,2,5,ORDE,2   
FITEM,2,2   
FITEM,2,4   
AOVLAP,P51X
FLST,2,4,5,ORDE,4   
FITEM,2,1   
FITEM,2,5   
FITEM,2,7   
FITEM,2,10  
ADELE,P51X, , ,1
FLST,2,3,5,ORDE,3   
FITEM,2,6   
FITEM,2,8   
FITEM,2,-9  
AADD,P51X   
FLST,2,3,5,ORDE,3   
FITEM,2,3   
FITEM,2,11  
FITEM,2,-12
AADD,P51X   
ALLSEL,ALL  
! SAVE
! /COM,ANSYS RELEASE 11.0              
! /REPLOT,RESIZE  
/SOLU   
!*  
!*  
FINISH  
/PREP7  
TYPE,   1   
MAT,       2
REAL,   
ESYS,       0   
SECNUM,
!*  
ESIZE,0.0007,0,
MSHKEY,0
CM,_Y,AREA  
ASEL, , , ,       1
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
! APLOT   
TYPE,   1   
MAT,       1
REAL,   
ESYS,       0   
SECNUM,
!*  
MSHKEY,0
CM,_Y,AREA  
ASEL, , , ,       2
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
FINISH  
/SOL
!*  
NLGEOM,1
NROPT,AUTO, ,   
STAOPT,DEFA
LUMPM,0
EQSLV,PCG, ,0,  
PRECISION,0
MSAVE,0
PCGOPT,0, ,AUTO, , ,AUTO
PIVCHECK,1  
SSTIF   
PSTRES  
TOFFST,0,   
!*  
FLST,2,2,4,ORDE,2   
FITEM,2,12  
FITEM,2,16  
!*  
/GO
DL,P51X, ,UY,0  
FLST,2,2,4,ORDE,2   
FITEM,2,12  
FITEM,2,16  
DLDELE,P51X,ALL
! /REPLOT
FINISH  
/PREP7  
! /PNUM,KP,0  
! /PNUM,LINE,1
! /PNUM,AREA,0
! /PNUM,VOLU,0
! /PNUM,NODE,0
! /PNUM,TABN,0
! /PNUM,SVAL,0
! /NUMBER,0   
!*  
! /PNUM,ELEM,0
! /REPLOT
!*  
! LPLOT   
!*  
!*  
! /COM, CONTACT PAIR CREATION - START
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_KPCM,KP
CM,_LINECM,LINE
CM,_AREACM,AREA
CM,_VOLUCM,VOLU
! /GSAV,cwz,gsav,,temp
MP,MU,2,
MAT,2   
R,3
REAL,3  
ET,2,169
ET,3,172
KEYOPT,3,9,0
KEYOPT,3,10,2   
R,3,
RMORE,  
RMORE,,0
RMORE,0
! Generate the target surface   
LSEL,S,,,20
LSEL,A,,,26
CM,_TARGET,LINE
TYPE,2  
NSLL,S,1
ESLN,S,0
ESURF   
CMSEL,S,_ELEMCM
! Generate the contact surface  
LSEL,S,,,9  
LSEL,A,,,29
LSEL,A,,,33
LSEL,A,,,35
CM,_CONTACT,LINE
TYPE,3  
NSLL,S,1
ESLN,S,0
ESURF   
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
! /PSYMB,ESYS,1   
! /PNUM,TYPE,1
! /NUM,1  
! EPLOT   
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
CMSEL,A,_NODECM
CMDEL,_NODECM   
CMSEL,A,_ELEMCM
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM
CMSEL,S,_LINECM
CMDEL,_LINECM   
CMSEL,S,_AREACM
CMDEL,_AREACM   
CMSEL,S,_VOLUCM
CMDEL,_VOLUCM   
! /GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
! /COM, CONTACT PAIR CREATION - END   
! /MREP,EPLOT
FINISH  
/SOL
! APLOT   
FLST,2,2,4,ORDE,2   
FITEM,2,12  
FITEM,2,16  
!*  
/GO
DL,P51X, ,UY,0  
FLST,2,4,4,ORDE,4   
FITEM,2,19  
FITEM,2,21  
FITEM,2,25  
FITEM,2,27  
/GO
!*  
SFL,P51X,PRES,4e7,  
SBCTRAN
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /FOC,1,0.3,,,1  
! /REP,FAST   
! /FOC,1,0.3,,,1  
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /FOC,1,,-0.3,,1
! /REP,FAST   
! /FOC,1,,0.3,,1  
! /REP,FAST   
! /FOC,1,,0.3,,1  
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
!*  
NLGEOM,1
NROPT,AUTO, ,   
STAOPT,DEFA
LUMPM,0
EQSLV,PCG, ,1,  
PRECISION,0
MSAVE,0
PCGOPT,0, ,AUTO, , ,AUTO
PIVCHECK,1  
SSTIF   
PSTRES  
TOFFST,0,   
!*  
!*  
OUTRES,ALL,ALL,
!*  
TIME,1  
AUTOTS,1
DELTIM,0.05, , ,1   
KBC,0   
!*  
TSRES,ERASE
! SAVE
!*  
TIME,1  
AUTOTS,1
DELTIM,0.1, , ,1
KBC,0   
!*  
TSRES,ERASE
! /STATUS,SOLU
SOLVE   
FINISH  
/POST1  
!*  
! /EFACET,1   
! PLNSOL, S,Z, 0,1.0  
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,0.924021086472,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
! /DIST,1,1.08222638492,1
! /REP,FAST   
AVPRIN,0, ,
!*  
PDEF,seqv,S,EQV,AVG
! /PBC,PATH, ,0   
!*  
! PLPATH,
! SAVE,
! LGWRITE,'1111','lgw','

zhouxman

大哥不要发log文件 好不好

csuwfl

是的，然后最好还要把图片贴上，让大家一目了然了。
呵呵，要求多了点。;@P