! 物体沿 x 轴移动的命令流
fini
/clear
/filn, dyna_move_along_pathes22
!*
! /GRA,POWER
! /GST,ON
! /PLO,INFO,3
! /GRO,CURL,ON
! /CPLANE,1
! /REPLOT,RESIZE
!*
WPSTYLE,,,,,,,,0
/udoc,1,date,0
!*
/PREP7
!*
ET,1,SOLID164
!*
!*
KEYOPT,1,1,1
KEYOPT,1,5,0
!*
! EDMP,RIGI,1,5,7
MP,DENS,1,7.8e-9
MP,EX,1,201000
MP,NUXY,1,0.3
!*
!*
SPH4, , ,10
!*
WPSTYLE,,,,,,,,1
!*
SMRT,5
MSHAPE,1,3D
MSHKEY,0
!*
VMESH,1
!*
SAVE
!*
EDPART,CREATE
! EDRD, D2R, 1, 0 ! 准备将变形体转换为刚体
!*
*DIM,Time,ARRAY,25,1,1, , ,
*DIM,x_disp,ARRAY,25,1,1, , ,
*DIM,y_disp,ARRAY,25,1,1, , ,
!*
TIME(1,1,1) = 0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9
X_DISP(1,1,1) = 0, 2.5, 5, 2.5, 0, -2.5, -5, -2.5, 0, 2.5
Y_DISP(1,1,1) = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
!*
TIME(11,1,1) = 1, 1.1, 1.2, 1.3, 1.4, 1.5, 1.6, 1.7, 1.8, 1.9, 2, 2.1, 2.2, 2.3, 2.4
X_DISP(11,1,1) = 5, 7.5, 10, 7.5, 5, 2.5, 0, -2.5, -5, -7.5, -10, -7.5, -5, -2.5, 0
Y_DISP(11,1,1) = 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24
!*
EDCURVE,ADD,1,TIME,X_DISP
EDCURVE,ADD,2,TIME,Y_DISP
!*
FINISH
!*
/SOL
!*
WPSTYLE,,,,,,,,0
!*
n0 = node(0,0,0)
NSEL,S, , , n0
allsel,all ! 约束整个小球的 Ux; 如果注解掉,则只约束小球中心点
CM,part-1,NODE ! 创建 Component - Part-1 用于施加约束
!*
ALLSEL,ALL
cm, all_nodes,node !*****
!*
D,all_nodes, , , , , ,UY,UZ, , , ,
!*
EDLOAD,ADD,UX,0,PART-1,TIME,X_DISP, 0, , , , ,
!*
!*
TIME,2,
!*
EDENERGY,1,1,1,1
EDBVIS,1.5,0.06,
EDHGLS,0.1,
!*
EDOPT,ADD,blank,both
EDRST,50,
EDHTIME,50,
EDOUT,ALL
!*
EDTP,,,,2.0
EDHIST,all_nodes
!*
EDCTS,-2.5e-7,0.9,
! EDCTS,0,0.9,
EDDUMP, ,0.5,
!*
ALLSEL,ALL
!*
!*
! /STATUS,SOLU
SOLVE
FINISH
评论