FINISH
/SOLU
ANTYPE,4
TRNOPT,FULL
NLGEOM,On !-----关闭大变形选项
OUTPR,ALL,ALL
OUTRES,ALL,ALL
TIMINT,ON
AUTOTS,ON
T_END=10!------定义载荷向量长度
TINTP,,0.25,0.5,0.5 !-----
!当3=0.005时,计算出a= 0.0496,b= 4.76e-4
!当3=0.008时,计算出a= 0.0828,b= 7.1e-4
!当3=0.01 时,计算出a= 0.0605,b= 1.56E-3
!当3=0.02 时,计算出a= 0.1694,b= 2.36e-3
ALPHAD,0.0496, !-----定义质量阻尼
BETAD,4.76e-4, !-----定义刚度阻尼
*DIM,V_H,ARRAY,T_END !-----定义载荷向量1
V_H(1)=1,-1,1,-1,1,-1,1,-1,1,-1
*DIM,V_L,ARRAY,T_END !-----定义载荷向量2
V_L(1)=0,0,0,0,0,0,0,0,0,0
T_INT=0.1 !-----定义时间步长
*DO,I,1,T_END,1
NSUBST,20!-----定义载荷步
KBC,1 !-----设置阶跃加载方式
TIME,I*T_INT !-----时间步长
NSEL,,,,662,664,2 !压电片上表面
NSEL,A,,,732,754,22
CM,N_H,NODE
D,N_H,VOLT,10*V_H(I,1) !-----加方波形式的电压信号
ALLSEL
NSEL,,,,648,657,9 !压电片下表面
NSEL,A,,,545,776,231
CM,N_L,NODE
D,N_L,VOLT,10*V_L(I,1) !-----接地
ALLSEL
LSWR,I !-----把第I个载荷数据写入文件
ALLSEL
*ENDDO
ALLSEL
LSSOLVE,1,T_END |