|
阅读：6960回复：7
我有个移动荷载的例子，命令流奉献出来，有用
*SET,long,32 !梁长度32
*SET,ne,100 !单元数量100 *SET,detl,long/ne !定义单元长度 *SET,ii,ne+1 !节点数量100+1 *SET,f,1000 !集中力1000 *SET,v,120 !移动速度120km/h *SET,dett,detl/v*3.6 !每个单元上的时间 !*SET,w,10 !*SET,w,5 *SET,w,1 ! 建模 /config,nres,2000 /prep7 et,1,beam3 ！ 定义单元属性 r,1,0.1,0.0001/12,0.1 mp,ex,1,207e9 mp,prxy,1,0.3 mp,dense,1,2000 ! 循环命令创建节点 *do,i,1,ii,1 n,i,(i-1)*detl *enddo !创建单元 *do,i,1,ne e,i,i+1 *enddo finish !加载求解 /sol d,1,all d,101,all ANTYPE,4 !分析类型为瞬态分析 TRNOPT,FULL !解析方法为full法 OUTRES,BASI,ALL !输出每一子步的基本结果 timint,on !考虑瞬态影响 !施加常力并求解 *do,ii,1,101+8,1 outres,all,all !施加移动荷载 time,ii*dett nsubst,5 *if,ii,lt,8,then fdele,all,all nsel,s,loc,x,(ii-1)*detl f,all,fy,-f allsel solve *elseif,ii,lt,101 fdele,all,all nsel,s,loc,x,(ii-1)*detl nsel,a,loc,x,(ii-1-7)*detl f,all,fy,-f allsel solve *else fdele,all,all nsel,s,loc,x,(ii-7-1)*detl f,all,fy,-f allsel solve *endif *enddo finish !施加匀速简谐力并求解 *do,ii,1,101+8,1 outres,all,all !施加移动荷载 time,ii*dett nsubst,5 *if,ii,lt,8,then fdele,all,all nsel,s,loc,x,(ii-1)*detl f,all,fy,-f*cos(w*ii*dett) allsel solve *elseif,ii,lt,101 fdele,all,all nsel,s,loc,x,(ii-1)*detl nsel,a,loc,x,(ii-1-7)*detl f,all,fy,-f*cos(w*ii*dett) allsel solve *else fdele,all,all nsel,s,loc,x,(ii-7-1)*detl f,all,fy,-f*cos(w*ii*dett) allsel solve *endif *enddo finish /POST26 NSOL,2,51,U,Y,UY_2 ! 定义第二个变量为UY_2,值为50号节点Y方向的位移 XVAR,1 ! 定义时间变量为坐标横轴 PLVAR,2 ! 输出位移图 DERIV,3,2,1,,,,1 ! 将位移对时间求导，得到速度，存为变量3 PLVAR,3 ! 输出速度图 FINISH |
|
|
1楼#
发布于：2010-06-06 21:48
可以试一试，移动荷载作用在简支梁上
包括匀速常力和简谐力 |
|
|
2楼#
发布于：2010-06-06 21:50
ansys分析的典型例子
|
|
|
3楼#
发布于：2010-06-06 22:05
描述：跨中节点位移图 图片：跨中节点位移图.jpg  |
|
|
4楼#
发布于：2010-06-06 22:07
简谐力作用下我位移响应
|
|
|
|
5楼#
发布于：2010-06-06 22:08
不考虑重力
|
|
|
