wzfaigxw 发表于 2006-3-27 09:36

请教一个刚柔接触问题

在刚柔接触问题中,如何在刚体上设置控制节点,如何在刚体上加载,以及在如何控制刚体的运动

TNC 发表于 2006-3-27 20:50

回复:(wzfaigxw)请教一个刚柔接触问题

给你转一个例子吧<BR><BR>THICK=0.1 <BR>RADIUS=0.5 <BR>LENGTH=1.5 <BR>/PREP7 <BR>ET,1,182,1,,2 <BR>ET,2,169 <BR>ET,3,171 <BR>R,2,0,0,1,0.1 <BR>RMORE,0.1,0.01 <BR>R,3,0,0,1,0.1 <BR>RMORE,0.1,0.01 <BR>!* !* Material Properties !* <BR>MP,EX,1,16E6 <BR>MP,NUXY,1,0.33 <BR>MP,MU,1,0.3 <BR>TB,MISO,1,0,9 <BR>TBPT,,0.000625,10000 <BR>TBPT,,0.0025,15000 <BR>TBPT,,0.005,21000 <BR>TBPT,,0.01,29000 <BR>TBPT,,0.015,32600 <BR>TBPT,,0.02,34700 <BR>TBPT,,0.04,36250 <BR>TBPT,,0.10,39000 <BR>TBPT,,0.20,40250 <BR>K,1 <BR>K,2,LENGTH <BR>KGEN,2,1,2,1,,THICK,,2 <BR>A,1,2,4,3 <BR>TYPE,1 <BR>MAT,1 <BR>LESIZE,1,,,70 <BR>LESIZE,2,,,5 <BR>LESIZE,3,,,70 <BR>LESIZE,4,,,5 <BR>AMESH,ALL <BR>NUMMRG,ALL <BR>ASEL,NONE <BR>LSEL,NONE <BR>WPAVE,,THICK+RADIUS <BR>CSWPLA,11,1 <BR>K,20,RADIUS,180 <BR>K,21,RADIUS,-90 <BR>K,22,RADIUS,0 <BR>K,23,0,0 <BR>k,24,radius,90 <BR>l,20,21 <BR>L,21,22 <BR>l,22,24 <BR>l,24,20 <BR>TYPE,2 <BR>REAL,2 <BR>LMESH,ALL <BR>ALLS <BR>CSYS,0 <BR>NSEL,S,LOC,Y,THICK <BR>TYPE,3 <BR>ESURF <BR>nsel,s,loc,y,0 <BR>real,3 <BR>esurf <BR>ASEL,NONE <BR>LSEL,NONE <BR>WPAVE,,-THICK <BR>CSWPLA,12,1 <BR>k,30 <BR>k,31,thick,0 <BR>k,32,thick,90 <BR>k,33,thick,180 <BR>l,31,32 <BR>l,32,33 <BR>type,2 <BR>lmesh,all <BR>KMESH,23 <BR>KSEL,S,KP,,23 <BR>NSLK,S <BR>*GET,N_LOAD,NODE,,NUM,MAX <BR>csys,0 <BR>!* !* Boundary Conditions !* <BR>asel,all <BR>esla,s <BR>nsle,s <BR>nsel,r,loc,x,0 <BR>d,all,ux,0 <BR>nsel,r,loc,y,thick <BR>d,all,uy,0 <BR>alls <BR>FINISH <BR>/SOLU <BR>ANTYPE,STATIC <BR>NLGEOM,ON <BR>SOLC,ON <BR>NSUBST,20,500,10 <BR>OUTRES,ALL,ALL <BR>D,N_LOAD, ,2, , , ,ROTZ, , , , , <BR>SOLVE

whyor 发表于 2006-4-17 17:07

谢谢楼上的<BR>
页: [1]
查看完整版本: 请教一个刚柔接触问题