下边是整体模型,没有利用对称简化:
/PREP7
!*************************数组定义
*DIM,dis,array,11 !建立一个11维的数组。
*DIM,NUMBER_OF_E,,10 !保存单元个数
*DIM,VS,,10 !保存最大结果应力
*DIM,NUM,,10
*DIM,X1,,10
*DIM,Y1,,10
!*************************进入前处理部分
WPSTYLE,,,,,,,,1 !显示工作坐标系
KEYW,PR_SET,1
KEYW,PR_STRUC,1
!*************************参数定义
ET,1,SHELL63
ET,2,SHELL93
R,1,0.0015, , , , , ,
R,2,0.0007, , , , , ,
MPTEMP,1,0
MPDATA,EX,1,,1.93e11
MPDATA,PRXY,1,,.31
MPDATA,DENS,1,,7750
!**************************建立模型
K,1,-0.00225,0.006,,
K,2,-0.00225,-0.006,,
K,3,0,0.006,,
K,4,0,-0.006,,
K,5,0,0.00825,,
K,6,0,-0.00825,,
LSTR, 1, 2 !画线L1
LARC,1,5,3,0.00225 !画线L2
LARC,2,6,4,0.00225 !画线L3
/PNUM,LINE,1
/PNUM,AREA,1
NUMCMP,ALL
NUMMRG,ALL, , , ,LOW
ALLSEL,ALL
LSEL,S,LOC,Z,0
LSYMM,X,ALL,2, , ,0,0 !半边镜像
k,20,,,
k,21,,,0.198
lstr,20,21 !建立拉伸的基准线L7
ALLSEL,ALL
LSEL,S,LOC,Z,0
NUMCMP,ALL
NUMMRG,ALL, , , ,LOW !压缩关键点
ADRAG,all,,,,,,7 !沿着线4拉伸由线1-3围城的3曲线形成面。
LDELE,7, ,,1! 删除拉伸线4
APLOT !显示面
/VIEW,1,1,2,3
/ANG,1
/REP,FAST
!约束
ALLSEL,ALL
LSEL,S,LOC,Z,0
DL,ALL, ,ALL,
ALLSEL,ALL
!网格划分
ESIZE,0.001
SMRT,5
amesh,all
finish
/SOLU !进入求解模块SOLUTION
ANTYPE, MODAL !申明求解类型是模态分析
MODOPT,LANB,5 !使用Block Lanczos方法求解前5阶振型和频率
SOLVE !开始求解
FINISH !退出后模块
/POST1 !进入后处理模块POST1
SET, 1, 1 !读入第一阶频率和振型
SET,LIST !读取模态频率
finish |