刚做的接触分析例子
刚做了一个接触分析的例子，分享一下。希望高手提点意见。。。/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',' 大哥不要发log文件 好不好 是的，然后最好还要把图片贴上，让大家一目了然了。
呵呵，要求多了点。;@P
页:
[1]