马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
!等截面简支梁在匀速移动常量力作用下的振动
!计算参数:跨度LSP(m),截面宽度和高度B(m)、H(m),速度v(m/s),移动力P(N),单元长度EL(m)
finish$/clear$/prep7$lsp=20$B=0.3$H=0.6$V=72*1000/3600$P=6000*9.81$EL=0.1
!定义单元类型、材料性质、实常数
ET,1,BEAM3$MP,EX,1,2.1E11$MP,PRXY,1,0.3$MP,DENS,1,7800$R,1,B*H,B*H**3/12,H
!创建模型,单元尺寸为EL
k,1$k,2,LSP$L,1,2$ESIZE,EL$LMESH,ALL
!获得力顺序作用点的节点总数
*GET,NT,NODE,,COUNT
*DIM,PNO,,NT
PNO(1)=NODE(0,0,0)
*DO,I,2,NT
PNO(I)=NNEAR(PNO(I-1))
NSEL,U,,,PNO(i-1)
*ENDDO$NSEL,ALL
DK,1,Ux,,,,UY
DK,2,UY
FINI
!定义瞬态分析控制参数,注意荷载子步数为1
/SOLU$ANTYPE,TRANS$OUTRES,ALL,ALL$AUTOTS,ON$NSUBST,1$TIMINT,ON
*DO,I,1,NT
TI=(NX(PNO(I))-NX(PNO(1)))/V
*IF,TI,LE,1E-10,THEN
TI=1E-6
*ENDIF
TIME,TI
FDELE,ALL,ALL
F,PNO(I),FY,-P
SOLVE
*ENDDO
/POST26$N1=NODE(LB/2,0,0)
NSOL,2,N1,U,Y$NSOL,3,N1,A,Y
PLVAR,2$PLVAE,3
DERIV,4,2,1$DERIV,4,4,1$PLVAR,3,4
|