大家帮我看看哈!附图是avi
/BATCH
/COM,ANSYS RELEASE 8.0 UP20030930 16:01:26 10/11/2005
/TITLE,10.11eacp01
/PREP7
K,1,-5,0,0,
K,2,5,0,0,
K,3,5,-150,0,
K,4,45,-150,0,
K,5,45,-160,0,
K,6,-5,-160,0,
LSTR, 1, 2
LSTR, 2, 3
LSTR, 3, 4
LSTR, 4, 5
LSTR, 5, 6
LSTR, 6, 1
!*
LFILLT,5,6,10, ,
!*
LFILLT,3,2,8, ,
FLST,2,8,4
FITEM,2,1
FITEM,2,2
FITEM,2,8
FITEM,2,3
FITEM,2,4
FITEM,2,5
FITEM,2,7
FITEM,2,6
AL,P51X
BLC4,-45,-210,90,210
/PNUM,KP,0
/PNUM,LINE,1
/PNUM,AREA,1
/PNUM,VOLU,0
/PNUM,NODE,0
/PNUM,TABN,0
/PNUM,SVAL,0
/NUMBER,0
!*
/PNUM,ELEM,0
/REPLOT
!*
A***A, 2, 1
NUMCMP,LINE
NUMCMP,AREA
LPLOT
BLC4,-5,-100,10,100
LPLOT
APLOT
!*
ET,1,PLANE82
!*
KEYOPT,1,3,2
KEYOPT,1,5,0
KEYOPT,1,6,0
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,70000
MPDATA,PRXY,1,,0.32
TB,MISO,1,1,3,
TBTEMP,0
TBPT,,0.00065,32.66
TBPT,,1.00065,136.63
TBPT,,2.0010,156.41
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MU,1,,0.2
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,2,,220000
MPDATA,PRXY,2,,0.3
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MU,2,,0.2
SAVE
SAVE,geom,db,F:\10.11eacp\
FLST,5,2,4,ORDE,2
FITEM,5,13
FITEM,5,15
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,3, , , , ,1
!*
FLST,5,2,4,ORDE,2
FITEM,5,14
FITEM,5,16
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,8, , , , ,1
!*
TYPE, 1
MAT, 1
REAL,
ESYS, 0
SECNUM,
!*
MSHKEY,0
CM,_Y,AREA
ASEL, , , , 3
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
ALLSEL,ALL
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,1,0.2
MAT,1
R,3
REAL,3
ET,2,169
ET,3,172
KEYOPT,3,9,0
R,3,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
LSEL,S,,,3
LSEL,A,,,4
LSEL,A,,,5
CM,_TARGET,LINE
TYPE,2
LATT,-1,3,2,-1
TYPE,2
LMESH,ALL
! Generate the contact surface
LSEL,S,,,16
CM,_CONTACT,LINE
TYPE,3
NSLL,S,1
ESLN,S,0
ESURF,ALL
*SET,_REALID,3
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,2
ESEL,A,TYPE,,3
ESEL,R,REAL,,3
LSEL,S,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
LSEL,S,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
!*
!*
/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,1,0.2
MAT,1
R,4
REAL,4
ET,4,169
ET,5,172
KEYOPT,5,9,0
R,4,
RMORE,
RMORE,,0
RMORE,0
! Generate the target surface
LSEL,S,,,1
LSEL,A,,,2
LSEL,A,,,6
CM,_TARGET,LINE
TYPE,4
LATT,-1,4,4,-1
TYPE,4
LMESH,ALL
! Generate the contact surface
LSEL,S,,,14
CM,_CONTACT,LINE
TYPE,5
NSLL,S,1
ESLN,S,0
ESURF,ALL
*SET,_REALID,4
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,4
ESEL,A,TYPE,,5
ESEL,R,REAL,,4
LSEL,S,REAL,,4
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,4
ESEL,A,TYPE,,5
ESEL,R,REAL,,4
LSEL,S,REAL,,4
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
/COM, CONTACT PAIR PROPERTIES - START
/COM, CONTACT PAIR PROPERTIES - END
/MREP,EPLOT
ALLSEL,ALL
LPLOT
SAVE,contact,db,F:\10.11eacp\
FINISH
/SOL
ANTYPE,0
NLGEOM,1
NSUBST,160,0,0
TIME,75
LSEL,S, , , 15
NSLL,S,1
FLST,2,7,1,ORDE,3
FITEM,2,8
FITEM,2,24
FITEM,2,-29
!*
/GO
D,P51X, ,-150, , , ,UY, , , , ,
/STATUS,SOLU
SOLVE
FINISH
/POST1
SET,LAST
PLDISP,2
PLDISP,0
!*
ANDSCL,10,0.5 |