求大神指导怎么加恒定的角速度

lwdzss

求大神指导，怎么给中间的轴加一个恒定的角速度呢

lyxiaoshitou

/PREP7

!定义单元和材料  
ET,1,SOLID164   
MP,DENS,1,7800  
MP,EX,1,2.1e11  
MP,NUXY,1,0.3   
EDMP,RIGI,2,7,4
MP,DENS,2,7800  
MP,EX,2,2.1e11  
MP,NUXY,2,0.3  

!画刚体和弹性体的实体模型
BLOCK,-0.1,0.1,0.4,0.6,0,0.05,   
BLOCK,-0.05,0.05,0.45,0.55,0.05,0.1,


KWPAVE,       9
wpro,,90.000000,
VSBW,       1   

KWPAVE,      10
VSBW,       3   

  
VGLUE,all  

!确定实体模型上线条的网格密度
LESIZE,all,0.025, , , , , , ,1  
lesize,11,,,2
lesize,12,,,2
lesize,31,,,2
lesize,32,,,2
lesize,9,,,2
lesize,10,,,2
lesize,39,,,2
lesize,40,,,2
lesize,21,,,2
lesize,22,,,2
lesize,23,,,2
lesize,24,,,2

numcmp,volu


!划分单元
vsweep,2
vsweep,3
vsweep,4

mat,2
vsweep,1

!建立part
edpart,create

!定义载荷数组
*DIM,time,ARRAY,2,1,1, , ,   
*SET,TIME(2,1,1) , 10   
*DIM,wz,ARRAY,2,1,1, , ,
*SET,WZ(1,1,1) , 5  
*SET,WZ(2,1,1) , 5

!加载
EDLOAD,ADD,RBOZ,0,       2,TIME,WZ, 0, , , , ,

!定义分析选项
FINISH  
/SOL
TIME,0.5,   
EDRST,30,   
EDHTIME,50,
EDDUMP,1,     
EDENERGY,1,1,1,1
/STATUS,SOLU
SOLVE   

!输出动画
FINISH  
/POST1  
SET,LAST
/DSCALE,1,1.0   
/REPLOT  
PLDI, ,
ANTIME,50,0.1, ,1,2,0,0  
FINISH