cyh3278 发表于 2007-4-18 21:32

怎么获取最大加速?

怎么提取瞬态分析的最大加速度值,如图框选的部分的加速度值,命令流如下:
pi=acos(-1)
YOUNG=210E6
THICKNESS=0.01
length=2
hight=3
DENSITY=7.85
jbgs=2!极板个数
/PREP7
MP,EX,1,YOUNG
MP,NUXY,1,0.3
MP,DENS,1,DENSITY
ET,1,SHELL63
R,1,THICKNESS,THICKNESS,THICKNESS,THICKNESS
ET,2,BEAM188
SECTYPE,   1, BEAM, L, , 0
SECOFFSET, USER, 0.19, 0    !0.19是偏移的距离
SECDATA,0.2,0.2,0.02,0.02,0,0,0,0,0,0   
K,1,0,0,0
K,2,length,0
k,3,length,hight
k,4,0,hight
k,5,-0.05*length,0
!k,6,2*length,0
!k,7,3*length,0
!k,8,4*length,0
!k,9,0,0,length
A,1,2,3,4
L,5,1
!L,7,8
!L,1,9
AESIZE,1,0.3
MSHKEY,0
AMESH,all
lsel,s,loc,y,0,0
!lsel,r,loc,x,0,0
LATT,1,1,2
LESIZE,ALL,,,4
lmesh,all
!LATT,1,1,2
!lmesh,all
/REPLOT
EPLOT
/ESHAPE,1
!NUMSTR,NODE,1
dl,3,all,all
fini
/SOL
antype,transient
trnopt,full
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!fz_k=kp(x,y,z)                      !提取相应坐标的关键点号
contact_T=0.2e-3                           !周期
dt=0.2e-4
re_n=contact_T/dt
!dt=0.001                              !设置循环时间间隔
*do,j,1,re_n                        !执行循环的次数是N次
kbc,1                               !荷载变化方式为渐变
outres,all,all                      !把所有子步的所有结果输入到结果文件
nsubst,1,,,1                        !设置子步
time,dt*j                           !设置荷载步
fk,5,fx,40000*sin(pi*j*dt/contact_T)               !对应加一正弦荷载,
solve
*enddo                              !完成循环
/post26
!n_fz=node(x,y,z)                  !提取相应坐标的节点号
n_n=6                           !node number
nsol,2,n_n,u,z,uz_2                  !定义节点上的位移记录变量为2
Xvar,0
!plvar,2                           !绘制变量1位移随时间的相应曲线
!prvar,2                            !列表显示
!NUMVAR,200
DERIV,3,2,1, ,v_x, , ,1,
!plvar,3
!prvar,3
DERIV,4,3,1, ,a_x, , ,1,
plvar,4
页: [1]
查看完整版本: 怎么获取最大加速?