=================
新浪博客
=================
/PREP7
ET,1,182,1,,2
ET,2,169
ET,3,171
R,2,0,0,1,0.1
RMORE,0.1,0.01
!*
!* Material Properties
!*
MP,EX,1,16E6
MP,NUXY,1,0.33
MP,MU,1,0.3
TB,MISO,1,0,9
TBPT,,0.000625,10000
TBPT,,0.0025,15000
TBPT,,0.005,21000
TBPT,,0.01,29000
TBPT,,0.015,32600
TBPT,,0.02,34700
TBPT,,0.04,36250
TBPT,,0.10,39000
TBPT,,0.20,40250
K,1
K,2,CONTACT
K,3,LENGTH
KGEN,2,1,3,1,,THICK,,3
A,1,2,5,4
A,2,3,6,5
TYPE,1
MAT,1
LESIZE,4,,,10
LESIZE,2,,,10
LESIZE,6,,,10
LESIZE,1,,,12
LESIZE,3,,,12
LESIZE,5,,,12,5
LESIZE,7,,,12,1/5
AMESH,ALL
ARSYM,X,ALL
NUMMRG,ALL
ASEL,NONE
LSEL,NONE
WPAVE,,THICK+RADIUS
CSWPLA,11,1
K,20,RADIUS,180
K,21,RADIUS,-90
K,22,RADIUS,0
K,23,0,0
L,20,21
L,21,22
TYPE,2
REAL,2
LMESH,ALL
KMESH,23
KSEL,S,KP,,23
NSLK,S
*GET,N_LOAD,NODE,,NUM,MAX
ALLS
CSYS,0
NSEL,S,LOC,Y,THICK
TYPE,3
ESURF
!*
!* Boundary Conditions
!*
NSEL,S,LOC,Y,0
D,ALL,UY
NSEL,S,LOC,X,0
NSEL,R,LOC,Y,0
D,ALL,UX
NSEL,ALL
FINISH
/SOLU
ANTYPE,STATIC
NLGEOM,ON
SOLC,ON
NSUBST,20,500,10
OUTRES,ALL,ALL
F,N_LOAD,FY,-20000
SOLVE
F,N_LOAD,FY,0
SOLVE
FINI
/EXIT