马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
怎么提取瞬态分析的最大加速度值,如图框选的部分的加速度值,命令流如下:
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 |