|
本帖最后由 Rainyboy 于 2011-8-29 21:56 编辑
另外,谐响应分析中只提取响应的实步子步也是不完善的。应当将SET,1和SET,2的结果都提出出来加以处理。
这些结果与瞬态分析的稳定结果相比,都是相当吻合的,见:
SX:X向正应力
SY:Y向正应力
SZ:Z向正应力
SXY:XY平面内剪应力
SYZ:YZ平面内剪应力
SZX:XZ平面内剪应力
EQV:VON MISES 等效应力
××××××××××××××××××代码×××××××××××××××××××建模
- finish
- /clear
- /CONFIG,NRES,5000
- *SET,PI,acos(-1)
- *SET,L_FREQ_HZ,100.0
- *SET,L_FREQ ,2*PI*L_FREQ_HZ
- *SET,N_CIRCLE,100
- *SET,NSTP_C,15
- *SET,DT,1.0/L_FREQ_HZ/NSTP_C
- *SET,AMP,100
- /PREP7
- ET,1,SOLID45
- MP,EX,1,2E11
- MP,PRXY,1,0.3
- MP,DENS,1,7800
- MP,DAMP,1,2*5E-2/L_FREQ
- BLOCK,0,5,0,1,0,1,
- ESIZE,1,0,
- vmesh,all
- nsel,s,loc,x,0
- d,all,all
- alls
- finish
复制代码
瞬态分析
- /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个载荷步
- ALLSEL,ALL
- CURR_T=(I*NSTP_C+J)*DT !计算当前载荷步的时间点
- F,3,FY,AMP*COS(L_FREQ*CURR_T) !施加当前时间点的载荷
- 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
复制代码
谐响应分析
- /solu
- antype,3
- harfrq,100,100
- nsubst,1
- kbc,0
- f,3,fy,AMP
- solve
复制代码
|
|