材料弹性模量:2e11 Pa;
材料密度:7800 kg/m3;
梁长:2000 mm;
梁横截面:正方形2 mm ×2 mm;
阻尼:忽略一切阻尼;
边界条件:两端固支;
单元类型:BEAM188;
网格划分:沿梁长方向分为200段;
FINISH
/CLEAR
/PREP7
/eshape,1
BL = 1
BW = 2e-2
BH = 2e-2
NMESH = 100
ET,1,BEAM188
MP,EX,1,2.1E11
MP,PRXY,1,0.3
MP,DENS,1,7800
SECTYPE,1,BEAM,RECT
SECDATA,BW,BH,2,2
K,1,-BL,0,0
K,3,0,0,0
K,2,BL,0,0
L,2,3,NMESH
L,1,3,NMESH
LMESH,ALL
NSEL,S,LOC,X,-BL
D,ALL,ALL
ALLSEL,ALL
NSEL,S,LOC,X,BL
D,ALL,ALL
ALLSEL,ALL
!**********************
!模态分析
!**********************
!/SOLU
!ANTYPE,2 !指定为模态分析
!MODOPT,LANB,10 !指定提取特征值数及所用方法
!MXPAND,10,,,YES !指定扩展的模态阶数
!SOLVE
/PREP7
*SET,N_CIRCLE,20 !计算的周期数
*SET,NSTP_C,30 !每周期的载荷步数
*SET,FRE,10000 !载荷频率
*SET,CURR_T,0
*SET,DT,1.0/FRE/NSTP_C
*SET,PI,3.141592653
/SOLU
ANTYPE,4 !指定分析类型:动力学分析
TRNOPT,FULL !完全法
TIMINT,ON !时间积分效应
OUTRES,ALL,LAST !所有子步,所有记录写入DATABASE
*DO,I,0,N_CIRCLE-1,1 !外部循环:共计算N_CIRCLE个周期
*DO,J,1,NSTP_C,1 !内部循环:每个周期NSTP_C个载荷步
CURR_T=(I*NSTP_C+J)*DT !计算当前载荷步的时间点
*IF,I,EQ,0,THEN
ALLSEL,ALL
NSEL,S,LOC,X,0 !选择加载点
F,ALL,FY,100*SIN(2*PI*FRE*CURR_T) !施加当前时间点的载荷
ALLSEL,ALL
*ENDIF
ALLSEL,ALL
TIME,CURR_T !设置当前载荷步的时间点
AUTOTS,1 !自动时间步长
KBC,0 !载荷步之间线性插值:递增方式
DELTIM,DT/10,DT/12,DT/8 !本载荷步之中指定时间步长
LSWRITE,I*NSTP_C+J !写载荷步
*ENDDO
*ENDDO
LSSOLVE,1,N_CIRCLE*NSTP_C !求解所有载荷步
FINISH
Copyright © 2021 .长沙麦涛网络科技有限公司 All rights reserved.
湘ICP备20015126号-2
联系我们