Finish
/clear
/prep7
et,1,63
r,1,.25
ex,1,10e6 ! 材料属性为铝
nuxy,1,0.3
dens,1,0.00073
rect,,10,,10 ! 网格划分为10x10的板单元
esize,1
amesh,all
nsll,s,1 ! 施加四个边的简支
d,all,ux
d,all,uy
d,all,uz
allsel
finish
/solution
antype,modal
modopt,lanb,10 ! block lanczos
mxpand,10,,,on
solve
finish
/solution
antype,spectrum
spopt,mprs,10
mcomb,srss ! 指定srss合并方法
psdunit,1,acel
psdfrq,1,,300,2000
psdval,1,3860,3860 ! 第一个谱为加速度谱
psdunit,2,velo
psdfrq,2,,400,1000
psdval,2,10,20 ! 第二个谱为速度谱
nsel,s,loc,x
d,all,uz,1
nsel,all
pfact,1,base ! 计算第一个谱的参与系数
nsel,s,loc,x,
d,all,uz,0
nsel,s,loc,y,10
d,all,uz,1
nsel,all
pfact,2,base !计算第二个谱的参与系数
outpr,nsol,all
solve !输出文件为jobname.MCOM
finish
/POST1
SET,LIST
/INP,,mcom
PRNSOL,DOF ! 列表节点结果
PRESOL,ELEM ! 列表单元结果
PRRSOL,F !列表反力结果
其中
nsel,s,loc,x
d,all,uz,1
nsel,all
pfact,1,base ! 计算第一个谱的参与系数
nsel,s,loc,x,
d,all,uz,0
nsel,s,loc,y,10
d,all,uz,1
nsel,all
pfact,2,base !计算第二个谱的参与系数
1. 定义的d,all,uz,1有什么用意?
2.多点相应谱的作用方向和作用位置是如何定义的,在前面的命令流里面有和体现? |