接触分析实例---包含初始间隙

AaronSpark

fini
/clear,nostart

/prep7
et,1,82
KEYOPT,1,3,3
r,1,0.5
mp,ex,1,1e9
mp,prxy,1,0.3

k,1,0,0
k,2,10,0
k,3,10,5
k,4,6.2,5
k,5,7.5,3.4
k,6,2.5,3.4
k,7,3.8,5
k,8,0,5
a,1,2,3,4,5,6,7,8
LFILLT,6,5,0.18, ,   
LFILLT,5,4,0.18, ,   
FLST,2,3,4  
FITEM,2,9   
FITEM,2,11  
FITEM,2,10  
AL,P51X
FLST,2,3,4  
FITEM,2,13  
FITEM,2,14  
FITEM,2,12  
AL,P51X
FLST,2,3,5,ORDE,2   
FITEM,2,1   
FITEM,2,-3  
AADD,P51X

rect,0,10,4.8,5
ASBA,       4,       1  

gap=0.02
k,24,6.2-gap,5
k,25,7.5-gap,3.4
k,26,2.5+gap,3.4
k,27,3.8+gap,5
a,24,25,26,27

LFILLT,4,3,0.2, ,   
LFILLT,3,2,0.2, ,   
FLST,2,3,4  
FITEM,2,7   
FITEM,2,10  
FITEM,2,8   
AL,P51X
FLST,2,3,4  
FITEM,2,13  
FITEM,2,14  
FITEM,2,11  
AL,P51X
FLST,3,2,5,ORDE,2   
FITEM,3,3   
FITEM,3,-4  
ASBA,       1,P51X  

rect,3.8+gap,6.2-gap,5,10
rect,3.8+gap,3.8+gap+8,10,12
FLST,2,3,5,ORDE,3   
FITEM,2,1   
FITEM,2,3   
FITEM,2,5   
AADD,P51X   
rect,3.8+gap+8,3.8+gap+8+2,10,12
FLST,2,2,5,ORDE,2   
FITEM,2,1   
FITEM,2,4   
AGLUE,P51X  

CYL4,2.0,1.8,0.6  
CYL4,7.0,1.8,0.6
FLST,2,3,5,ORDE,3   
FITEM,2,2   
FITEM,2,4   
FITEM,2,-5  
AOVLAP,P51X

esize,0.2
amesh,all

FLST,5,135,2,ORDE,32
FITEM,5,485
FITEM,5,576
FITEM,5,-577
FITEM,5,621
FITEM,5,-625
FITEM,5,707
FITEM,5,-711
FITEM,5,716
FITEM,5,741
FITEM,5,-745
FITEM,5,750
FITEM,5,-751
FITEM,5,766
FITEM,5,797
FITEM,5,-798
FITEM,5,854
FITEM,5,888
FITEM,5,-938
FITEM,5,1101
FITEM,5,1103
FITEM,5,1420
FITEM,5,1628
FITEM,5,1653
FITEM,5,1696
FITEM,5,1699
FITEM,5,-1702   
FITEM,5,1726
FITEM,5,-1728   
FITEM,5,1852
FITEM,5,-1874   
FITEM,5,2044
FITEM,5,-2066   
CM,_Y,ELEM  
ESEL, , , ,P51X
CM,_Y1,ELEM
CMSEL,S,_Y  
CMDELE,_Y   
EREF,_Y1, , ,1,0,1,1
CMDELE,_Y1  


ET,2,TARGE169   
ET,3,CONTA172     
R,3, , ,
R,3,0,0,0.1, 10,0,0
R,4, , ,
R,4,0,0,0.1, 10,-0.02,0  


lsel,s,,,9
lsel,a,,,5
lsel,a,,,12
nsll,s,1
type,3
real,3
esurf,all
alls,

lsel,s,,,19
lsel,a,,,20
nsll,s,1
type,3
real,4
esurf,all
alls,

lsel,s,,,7
lsel,a,,,3
lsel,a,,,11
nsll,s,1
type,2
real,3
esurf,all
alls,

lsel,s,,,25
lsel,a,,,26
nsll,s,1
type,2
real,4
esurf,all
alls,

FLST,2,2,5,ORDE,2   
FITEM,2,4   
FITEM,2,-5  
DA,P51X,ALL,
FLST,2,1,4,ORDE,1   
FITEM,2,6   
SFL,P51X,PRES,500,  

/solu
antype,0
nlgeom,on
outres,all,all
nsubst,200,200,2
neqit,1000
solve

jiong168

谢谢

sczhang

不错，谢谢！！！

wysea82

谢谢

jacy

好啊

health

好东西，楼主辛苦了

terentao

先copy下来，明天试试~~
道谢了~

dkzhu

学习试验一下，谢谢

gaojunyes

ET,2,TARGE169   
ET,3,CONTA172     
R,3, , ,
R,3,0,0,0.1, 10,0,0
R,4, , ,
R,4,0,0,0.1, 10,-0.02,0  
这些指令怎么解释

sssbbbhhh1

ET,2,TARGE169   
ET,3,CONTA172     
这是定义目标单元和接触单元   形成一个接触对
R,3, , ,
R,3,0,0,0.1, 10,0,0
R,4, , ,
R,4,0,0,0.1, 10,-0.02,0  
是定义实常数  你help相应的单元就知道各个数的意义了

[ 本帖最后由 sssbbbhhh1 于 2009-4-14 18:18 编辑 ]

daivder

很好，谢谢

qq358213231

很好，谢谢

gumiaoyu

研究研究，多谢楼主

yyxt007

lz大好，造福后来人。

syxqq123

高手，直接用代码