见附件如下:
例题是用GUI做的,因此命令流有些乱,不过是个调通的程序:
/PREP7
!*
ET,1,PLANE182
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,6.9e4
MPDATA,PRXY,1,,0.32
TB,BISO,1,1,2,
TBTEMP,0
TBDATA,,31,200,,,,
SAVE
RECTNG,0,10,0,2,
FLST,2,2,8
FITEM,2,10,7,0
FITEM,2,10,12,0
CIRCLE,P51X, , , ,360,4,
GPLOT
SAVE
FLST,5,1,4,ORDE,1
FITEM,5,3
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,20, , , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,2
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,5, , , , ,1
!*
MSHAPE,0,2D
MSHKEY,1
!*
CM,_Y,AREA
ASEL, , , , 1
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
GPLOT
SAVE
!*
!*
/COM, CONTACT PAIR CREATION - START
CM,_NODECM,NODE
CM,_ELEMCM,ELEM
CM,_LINECM,LINE
CM,_AREACM,AREA
/GSAV,cwz,gsav,,temp
MP,MU,1,0.2
MAT,1
MP,EMIS,1,7.88860905221e-031
R,1
REAL,1
ET,2,169
ET,3,172
R,1,,,1.0,0.1,,
RMORE,,,1.0E20,0.0,1.0,
RMORE,0.0,0,1.0,0,0,0.5
RMORE,,,1.0,0.0
KEYOPT,3,2,0
KEYOPT,3,3,0
KEYOPT,3,4,0
KEYOPT,3,5,0
KEYOPT,3,7,0
KEYOPT,3,8,0
KEYOPT,3,9,0
KEYOPT,3,10,0
KEYOPT,3,11,0
KEYOPT,3,12,0
KEYOPT,2,2,0
KEYOPT,2,3,0
! Generate the target surface
LSEL,S,,,5
LSEL,A,,,6
LSEL,A,,,7
LSEL,A,,,8
CM,_TARGET,LINE
TYPE,2
LATT,-1,1,2,-1
TYPE,2
LMESH,ALL
! Generate the contact surface
LSEL,S,,,3
CM,_CONTACT,LINE
TYPE,3
NSLL,S,1
ESLN,S,0
ESURF,ALL
*SET,_REALID,1
ALLSEL
ESEL,ALL
ESEL,S,TYPE,,2
ESEL,A,TYPE,,3
ESEL,R,REAL,,1
LSEL,S,REAL,,1
/PSYMB,ESYS,1
/PNUM,TYPE,1
/NUM,1
EPLOT
ESEL,ALL
ESEL,S,TYPE,,2
ESEL,A,TYPE,,3
ESEL,R,REAL,,1
LSEL,S,REAL,,1
CMSEL,A,_NODECM
CMDEL,_NODECM
CMSEL,A,_ELEMCM
CMDEL,_ELEMCM
CMSEL,S,_LINECM
CMDEL,_LINECM
CMSEL,S,_AREACM
CMDEL,_AREACM
/GRES,cwz,gsav
CMDEL,_TARGET
CMDEL,_CONTACT
/COM, CONTACT PAIR CREATION - END
*CREATE,cwzplot,mac
/COM,
/COM,PLOT CONTACT PAIR(S)
~eui,'::apdl::noprint 1'
~eui,'::apdl::nooutput 1'
CM,_CWZ_EL,ELEM
CM,_CWZ_ND,NODE
CM,_CWZ_KP,KP
CM,_CWZ_LN,LINE
CM,_CWZ_AR,AREA
CM,_CWZ_VL,VOLU
ESEL,NONE
ESEL,A,REAL,,1
ESEL,R,ENAME,,169,174
NSLE
KSLN,S
LSLK,S,1
ASLL,S,1
/PNUM,TYPE,1
/NUM,1
/PSYMB,ESYS,0
EPLOT
CMSEL,S,_CWZ_EL
CMDEL,_CWZ_EL
CMSEL,S,_CWZ_ND
CMDEL,_CWZ_ND
CMSEL,S,_CWZ_KP
CMDEL,_CWZ_KP
CMSEL,S,_CWZ_LN
CMDEL,_CWZ_LN
CMSEL,S,_CWZ_AR
CMDEL,_CWZ_AR
CMSEL,S,_CWZ_VL
CMDEL,_CWZ_VL
/PSYMB,ESYS,0
/NUM,0
/PNUM,TYPE,0
/PNUM,REAL,0
/mrep,cwzplot
~eui,'::apdl::nooutput 0'
~eui,'::apdl::noprint 0'
*END
cwzplot
SAVE
EPLOT
TYPE, 2
MAT, 1
REAL, 1
ESYS, 0
SECNUM,
TSHAP,PILO
!*
E, 127
SAVE
FINISH
/SOLU
FLST,2,1,4,ORDE,1
FITEM,2,1
!*
/GO
DL,P51X, ,UY,
FLST,2,1,4,ORDE,1
FITEM,2,4
!*
/GO
DL,P51X, ,UX,
FLST,2,1,1,ORDE,1
FITEM,2,127
!*
/GO
D,P51X, ,-0.2, , , ,UY, , , , ,
SAVE
ANTYPE,0
NLGEOM,1
NSUBST,50,500,50
OUTRES,ALL,ALL
AUTOTS,1
TIME,1
/STATUS,SOLU
SOLVE
EPLOT
FLST,2,1,4,ORDE,1
FITEM,2,4
DLDELE,P51X,UX
FLST,2,1,1,ORDE,1
FITEM,2,127
!*
/GO
D,P51X, ,1.57, , , ,ROTZ, , , , ,
SAVE
NSUBST,200,1000,200
/STATUS,SOLU
SOLVE
求解后,进入后处理
/POST1
-999,-999,
ANDATA,0.5, ,1,1,2,1,0,1 |