如你所述,作了一个例子。 建模时,将物体 A 直接放在物体 B 上,施加重力(并始终不变),二者之间定义自动接触。然后对物体 A 给以初速度,作了一下计算,可以看到物体 A 确实在物体 B 的表面上滑动了一段距离,由于加了摩擦力所以速度在减小。命令流附后,你看看有参考价值吗?
fini
/clea
!*
/NOPR
/PMETH,OFF,0
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_ELMAG,0
KEYW,MAGNOD,0
KEYW,MAGEDG,0
KEYW,MAGHFE,0
KEYW,MAGELC,0
KEYW,PR_MULTI,0
KEYW,PR_CFD,0
KEYW,LSDYNA,1
/GO
!*
/filname, Dyna - Test
!*
/prep7
!*
!*
ET,1,SOLID164
!*
KEYOPT,1,1,2
KEYOPT,1,5,0
!*
!*
MP,DENS,1,7.8e-9
MP,EX,1,201000
MP,NUXY,1,0.3
!*
MP,DENS,2,2.7e-9
!*
TB,EVIS,2,,,,
TBDAT,46,27000
TBDAT,47,1000
TBDAT,48,21500
TBDAT,61,0.5
!*
!*
BLC4, , ,20,6,4
!*
BLC4, , ,4,4,4
!*
VGEN, ,2, , , , 1,4, , ,1
!*
!*
CM,_Y,VOLU
VSEL, , , , 2
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 2, , 1, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CMSEL,S,_Y
!*
CMSEL,S,_Y1
VATT, 1, , 1, 0
CMSEL,S,_Y
CMDELE,_Y
CMDELE,_Y1
!*
!*
LESIZE,ALL,2, , , ,1, , ,1,
!*
FLST,5,2,6,ORDE,2
FITEM,5,1
FITEM,5,-2
CM,_Y,VOLU
VSEL, , , ,P51X
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
MSHAPE,0,3d
MSHKEY,1
VMESH,_Y1
MSHKEY,0
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
!*
EDPART,CREATE
!*
VSEL,S, , , 1
ALLSEL,BELOW,VOLU
CM,node_1,NODE
!*
VSEL,S, , , 2
ALLSEL,BELOW,VOLU
CM,node_2,NODE
!*
allsel,all
!*
DA,1,ALL,
!*
*DIM,time,array,2,1,1, , ,
time(1)=0,10
!*
*DIM,gz,array,2,1,1, , ,
gz(1)=9800,9800
!*
EDLOAD,ADD,ACLZ,0,node_1,TIME,GZ, 0, , , , ,
EDLOAD,ADD,ACLZ,0,node_2,TIME,GZ, 0, , , , ,
!*
!*
EDCGEN,ASSC, , ,0.01,0.01,0,0,0, , , , ,0,10000000
!*
allsel
!*
! EDVE,VELO,node_2, 10,0,0,0,0,0,0, , , , , ,
!*
EDPV,VELO, 2,10,0,0,0,0,0,
!*
!*
/auto,1
/VIEW, 1 ,,-1
/ANG, 1
vplot
!*
!*
FINISH
/SOL
!*
!*
!*
EDSTART,0, ,7,
EDENERGY,1,1,1,1
EDBVIS,1.5,0.06,
EDHGLS,0.1,
EDMP,HGLS,1,0,0.1,1.5,0.06, , ,
EDDB,0
TIME,0.2,
EDCTS,0,0.9,
EDOPT,ADD,blank,ANSYS
EDRST, ,0.01,
EDHTIME, ,0.01,
EDDUMP, ,0.05,
!*
!*
EDOUT,ALL
EDWRITE,ANSYS, , ,
!*
!*
!*solve
!*
save
!* |